新手求教有关组合框的问题

megastephtr 2008-02-29 08:16:52
Private Sub Combo1_Change()
Label1.FontSize = Val(Combo1.Text)
End Sub

Private Sub Combo2_Change()

Label1.FontName = Combo2.Text
End Sub

Private Sub Form_Load()
Combo2.AddItem "宋体"
Combo2.AddItem "幼圆"
Combo2.AddItem "黑体"
End Sub

form上有一个标签两个组合框

在combo1中选择一个字号,在combo2中选择一个字体,则标签中的字变为相应字号和字体

为什么我这样做不对?
怎么选都没有反应
...全文
25 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
megastephtr 2008-03-02
谢谢大家的热心帮忙啊
回复
of123 2008-02-29
Private Sub Combo1_click()
Label1.FontSize = Val(Combo1.Text)
End Sub

Private Sub Combo2_click()

Label1.FontName = Combo2.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem "9"
Combo1.AddItem "11"
Combo1.AddItem "16"
Combo1.AddItem "24"

Combo2.AddItem "宋体"
Combo2.AddItem "幼圆"
Combo2.AddItem "黑体"
End Sub
回复
maby_ 2008-02-29
Private Sub Combo1_click()
Label1.FontSize = Val(Combo1.Text)
End Sub

Private Sub Combo2_click()

Label1.FontName = Combo2.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem "9"
Combo1.AddItem "11"
Combo1.AddItem "16"
Combo1.AddItem "24"

Combo2.AddItem "宋体"
Combo2.AddItem "幼圆"
Combo2.AddItem "黑体"
End Sub
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-02-29 08:16
社区公告
暂无公告