VB作业 帮帮忙呀
在窗体上画3个标签,标题分别为“计算机程序设计”“选择字号”“选择字体”,再画两个组合框。然后为第一个组合框添加“10”“16”“20”3个项目,为第二个组合框添加“黑体...
在窗体上画3个标签,标题分别为“计算机程序设计”“选择字号”“选择字体”,再画两个组合框。然后为第一个组合框添加“10”“16”“20”3个项目,为第二个组合框添加“黑体”“隶书”“宋体”3个项目,编写适当的事件过程。程序运行后,如果在第一个组合框中选择一种字号,或者在第二个组合框中选择一种字体,则标签中的文字立即变为所选定的字号或字体。
又是VB作业 各位大师帮帮忙呀 谢谢啦~~ 展开
又是VB作业 各位大师帮帮忙呀 谢谢啦~~ 展开
1个回答
展开全部
在窗体上画3个标签,再画两个组合框。
这个不用说吧?如果这个也要说,下面的话旧可以不看了。
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()
Label1 = "计算机程序设计"
Label2 = "选择字号"
Label3 = "选择字体"
Combo1.AddItem 10
Combo1.AddItem 16
Combo1.AddItem 20
Combo2.AddItem "黑体"
Combo2.AddItem "隶书"
Combo2.AddItem "宋体"
End Sub
这个不用说吧?如果这个也要说,下面的话旧可以不看了。
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()
Label1 = "计算机程序设计"
Label2 = "选择字号"
Label3 = "选择字体"
Combo1.AddItem 10
Combo1.AddItem 16
Combo1.AddItem 20
Combo2.AddItem "黑体"
Combo2.AddItem "隶书"
Combo2.AddItem "宋体"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询