编程论坛 → VB6论坛

初学者请教如何改变字体大小

lhj050530 发布于 2013-09-11 13:16， 946 次点击

如图，我想通过选择组合框里的数字来改变字体大小，程序如下，但是运行不了？新手请教。
Private Sub Combo1_change()
Text1.FontSize = Val(Combo1.Text)
End Sub

只有本站会员才能查看附件，请登录

11 回复

风吹过b2013-09-11 14:17

Text1.Font.Size = Val(Combo1.Text)

lhj0505302013-09-11 18:26

回复 2楼风吹过b

试了还是不行，只有组合框里输入数字的时候可以改变他字体大小，但是用选取的方法没有改变？

亵渎魔鬼2013-09-11 20:55

回复 3楼 lhj050530

它的事件你搞错了，是click事件，不是change事件

chen35232013-09-11 21:07

Private Sub Combo1_Click()
Text1.Font.Size = Combo1.Text
End Sub
我试了可以改变的

[ 本帖最后由 chen3523 于 2013-9-12 17:15 编辑 ]

亵渎魔鬼2013-09-11 21:12

回复 5楼 chen3523

这个就要具体问题具体分析了

bczgvip2013-09-11 22:31

你确定那是ComboBox 而不是 ListBox ？

亵渎魔鬼2013-09-12 09:44

当代码像这样的时候
Private Sub Combo1_Change()
Text1.FontSize = Val(Combo1.Text)
End Sub
是在combo1中输入数字，text1的字体大小改变

当代码是这样时
Private Sub Combo1_Click()
Text1.FontSize = Val(Combo1.Text)
End Sub
是用选择的方法改变text1.fontsize

lhj0505302013-09-12 11:07

回复 7楼 bczgvip

是comboBOX

#10

lhj0505302013-09-12 11:09

回复 8楼亵渎魔鬼

是的，但我要实现两种方式都能改变，应该怎么写？

#11

亵渎魔鬼2013-09-12 14:34

我不是很清楚，你两种事件都写下去，应该就能实现，但是要注意溢出错误，比如你在combox中输入一个数值比你设定的下拉内容大的话，就会出现溢出错误
希望对你有用

#12

hyfjy2013-09-16 14:48

弱弱地问一下，能否改变（增大）VB程序中的字体？我总嫌VB程序中的字体太小，尤其是在笔记本中，字太小，看不清，要是能像一般的文档那样，可以把界面放大，只取局部，同时字体也放大就好了，找不到这样的操作哦。高手能否说一下，是否只有改变屏幕，换大的显示屏才行？