VB 想使标签控件中字号大小改变，假如原来是3号字体，变成四号字体 用代码怎么写？

我来完完整整地写给你代码吧。

（如图）首先在窗体form1中部画一个标签控件Label1，然后画三个命令按钮Command1(放大)、Command2(缩小)、Command3(将此命令再复制三个出来组成一个“四个command3”的数组控件代表“→”“←”“↑”“↓”)，属性均为默认，最后复制以下代码到代码窗口运行即可：

Private Sub Command1_Click()  '放大命令

Label1FontSize = Label1FontSize + 1

End Sub

Private Sub Command2_Click()  '缩小命令

Label1FontSize = Label1FontSize - 1

End Sub

Private Sub Command3_Click(Index As Integer)   '移动命令（是command3组成的数组控件）

Select Case Index

Case 0  ‘Command3的index=0时

If Label1Left + Label1Width < MeScaleWidth Then

Label1Left = Label1Left + 50

End If

Case 1  ‘Command3的index=1时

If Label1Left > 0 Then

Label1Left = Label1Left - 50

End If

Case 2  ‘Command3的index=2时

If Label1Top > 0 Then

Label1Top = Label1Top - 50

End If

Case 3  ‘Command3的index=3时

If Label1Top + Label1Height < MeScaleHeight Then

Label1Top = Label1Top + 50

End If

End Select

End Sub

Private Sub Form_Load()

Label1Caption = "VB应用程序！"

Label1FontSize = 16

Label1AutoSize = True

Label1FontBold = True

End Sub

如果用DROPDOWNLIST来实现控制条数这个功能，那还是算了吧，明确告诉您不可能。
因为DROPDOWNLIST生成的HTML控件是SELECT，它的呈现是由具体的浏览器来做的。
不过DROPDOWNLIST和select标签默认的是显示30个，然后在多就自动会有滚动条的，如果硬是要控制的话，只有用select标签通过css或者JS去完成了

的确有这样的效果，但用select标签本身是做不到的，一般是用图层重新和表格重新画一个类似select框的东西平时把表格隐藏并且讲的高度设为0，遇到事件触发时，用动画慢慢把高度拉大。而且select的外观是由系统外观决定的无法改变，一般看到的网页上的很漂亮的下拉菜单，如果不是用flash做的话，都是用其他标签重画的。

<div class="selectbox">
      <select>
            <option>默认值</option>
            <option>选项之</option>
      </select>
</div>

css代码：

selectbox{ width: 200px; display: inline-block; overflow-x: hidden; height: 28px; line-height: 28px; font-size: 0;  background:#fff url(images/selectbgpng) right center no-repeat; border: 1px solid #dcdbdb; vertical-align: middle;}
selectbox select{cursor: pointer; padding: 0 8px; height: 28px; line-height: 28px; font-size: 12px; width:118%; padding-right: 18%; background:none; border: none;}
selectbox select option{ padding:5px;}

1selectbox select  有个padding-right:18%； 和宽度100%+18% 的意思是故意超出selectbox的。

2这个超出部分刚好能把后面的默认下拉按键隐藏掉，同时设置selectbox的背景为下拉小按钮，居右边垂直居中。

3之所以用百分比(18%)，没有用固定值设置超出，是因为外层的selectbox只要定宽就不必考虑内层的select的宽度和padding样式值，很利于设置不同的宽度值，这里只需要设置selectbox的宽度，内层的select控件就自动获得宽度并超出。

最终效果如下：

selectbgpng背景如下：

1对查询进行优化，应尽量避免全表扫描，首先应考虑在 where 及 order by 涉及的列上建立索引。
2应尽量避免在 where 子句中对字段进行 null 值判断，否则将导致引擎放弃使用索引而进行全表扫描，如：
select id from t where num is null
可以在num上设置默认值0，确保表中num列没有null值，然后这样查询：
select id from t where num=0
3应尽量避免在 where 子句中使用!=或<> *** 作符，否则将引擎放弃使用索引而进行全表扫描。
4应尽量避免在 where 子句中使用 or 来连接条件，否则将导致引擎放弃使用索引而进行全表扫描，如：
select id from t where num=10 or num=20
可以这样查询：
select id from t where num=10
union all
select id from t where num=20
5in 和 not in 也要慎用，否则会导致全表扫描，如：
select id from t where num in(1,2,3)
对于连续的数值，能用 between 就不要用 in 了：
select id from t where num between 1 and 3
6下面的查询也将导致全表扫描：
select id from t where name like '%abc%'
若要提高效率，可以考虑全文检索。
7如果在 where 子句中使用参数，也会导致全表扫描。因为SQL只有在运行时才会解析局部变量，但优化程序不能将访问计划的选择推迟到运行时；它必须在编译时进行选择。然而，如果在编译时建立访问计划，变量的值还是未知的，因而无法作为索引选择的输入项。如下面语句将进行全表扫描：
select id from t where num=@num
可以改为强制查询使用索引：
select id from t with(index(索引名)) where num=@num
8应尽量避免在 where 子句中对字段进行表达式 *** 作，这将导致引擎放弃使用索引而进行全表扫描。如：
select id from t where num/2=100
应改为:
select id from t where num=1002
9应尽量避免在where子句中对字段进行函数 *** 作，这将导致引擎放弃使用索引而进行全表扫描。如：
select id from t where substring(name,1,3)='abc'--name以abc开头的id
select id from t where datediff(day,createdate,'2005-11-30')=0--‘2005-11-30’生成的id
应改为:
select id from t where name like 'abc%'
select id from t where createdate>='2005-11-30' and createdate<'2005-12-1'
10不要在 where 子句中的“=”左边进行函数、算术运算或其他表达式运算，否则系统将可能无法正确使用索引。
11在使用索引字段作为条件时，如果该索引是复合索引，那么必须使用到该索引中的第一个字段作为条件时才能保证系统使用该索引，否则该索引将不会被使用，并且应尽可能的让字段顺序与索引顺序相一致。
12不要写一些没有意义的查询，如需要生成一个空表结构：
select col1,col2 into #t from t where 1=0
这类代码不会返回任何结果集，但是会消耗系统资源的，应改成这样：
create table #t()
13很多时候用 exists 代替 in 是一个好的选择：
select num from a where num in(select num from b)
用下面的语句替换：
select num from a where exists(select 1 from b where num=anum)
14并不是所有索引对查询都有效，SQL是根据表中数据来进行查询优化的，当索引列有大量数据重复时，SQL查询可能不会去利用索引，如一表中有字段sex，male、female几乎各一半，那么即使在sex上建了索引也对查询效率起不了作用。
15索引并不是越多越好，索引固然可以提高相应的 select 的效率，但同时也降低了 insert 及 update 的效率，因为 insert 或 update 时有可能会重建索引，所以怎样建索引需要慎重考虑，视具体情况而定。一个表的索引数最好不要超过6个，若太多则应考虑一些不常使用到的列上建的索引是否有必要。
16应尽可能的避免更新 clustered 索引数据列，因为 clustered 索引数据列的顺序就是表记录的物理存储顺序，一旦该列值改变将导致整个表记录的顺序的调整，会耗费相当大的资源。若应用系统需要频繁更新 clustered 索引数据列，那么需要考虑是否应将该索引建为 clustered 索引。
17尽量使用数字型字段，若只含数值信息的字段尽量不要设计为字符型，这会降低查询和连接的性能，并会增加存储开销。这是因为引擎在处理查询和连接时会逐个比较字符串中每一个字符，而对于数字型而言只需要比较一次就够了。
18尽可能的使用 varchar/nvarchar 代替 char/nchar ，因为首先变长字段存储空间小，可以节省存储空间，其次对于查询来说，在一个相对较小的字段内搜索效率显然要高些。
19任何地方都不要使用 select from t ，用具体的字段列表代替“”，不要返回用不到的任何字段。
20尽量使用表变量来代替临时表。如果表变量包含大量数据，请注意索引非常有限（只有主键索引）。
21避免频繁创建和删除临时表，以减少系统表资源的消耗。
22临时表并不是不可使用，适当地使用它们可以使某些例程更有效，例如，当需要重复引用大型表或常用表中的某个数据集时。但是，对于一次性事件，最好使用导出表。
23在新建临时表时，如果一次性插入数据量很大，那么可以使用 select into 代替 create table，避免造成大量 log ，以提高速度；如果数据量不大，为了缓和系统表的资源，应先create table，然后insert。
24如果使用到了临时表，在存储过程的最后务必将所有的临时表显式删除，先 truncate table ，然后 drop table ，这样可以避免系统表的较长时间锁定。
25尽量避免使用游标，因为游标的效率较差，如果游标 *** 作的数据超过1万行，那么就应该考虑改写。
26使用基于游标的方法或临时表方法之前，应先寻找基于集的解决方案来解决问题，基于集的方法通常更有效。
27与临时表一样，游标并不是不可使用。对小型数据集使用 FAST_FORWARD 游标通常要优于其他逐行处理方法，尤其是在必须引用几个表才能获得所需的数据时。在结果集中包括“合计”的例程通常要比使用游标执行的速度快。如果开发时间允许，基于游标的方法和基于集的方法都可以尝试一下，看哪一种方法的效果更好。
28在所有的存储过程和触发器的开始处设置 SET NOCOUNT ON ，在结束时设置 SET NOCOUNT OFF 。无需在执行存储过程和触发器的每个语句后向客户端发送 DONE_IN_PROC 消息。
29尽量避免大事务 *** 作，提高系统并发能力。
30尽量避免向客户端返回大数据量，若数据量过大，应该考虑相应需求是否合理。

如果客户端的话用javascript写它的onchange事件，在代码中根据需要设置另外两个控件的可见性（display属性），如果服务器短的话，把Select换成DropDownList控件，然后双击它，之后写代码，在代码中根据需要设置另外两个控件的可见性（visible属性）。

---