请vb高手帮忙

Private Sub Form_Load()

'向组合框中添加内容

Combo1.AddItem "10"

Combo1.AddItem "20"

Combo1.AddItem "30"

Combo2.AddItem "黑体"

Combo2.AddItem "隶书"

Combo2.AddItem "楷体"

End Sub

Private Sub Combo1_Click()

'判断对应的索引值 做相应的改变

If Combo1.ListIndex = 0 Then

Label1.FontSize = 10 '字体大小=10

ElseIf Combo1.ListIndex = 1 Then

Label1.FontSize = 20

Else

Label1.FontSize = 30

End If

End Sub

Private Sub Combo2_Click()

'判断对应的索引值 做相应的改变

If Combo2.ListIndex = 0 Then

Label1.Font = "黑体"'字体=黑体

ElseIf Combo2.ListIndex = 1 Then

Label1.Font = "隶书"

Else

Label1.Font = "楷体"

End If

End Sub

Private Sub Combo1_click()

Label1.Font.Size = Combo1.Text

End Sub

Private Sub Combo2_click()

Label1.Font.Name = Combo2.Text

End Sub

Private Sub Form_Load()

Dim i As Integer

Combo1.AddItem 18

Combo1.AddItem 42

Combo2.AddItem "隶书"

Combo2.AddItem "黑体"

Combo2.AddItem "宋体"

Combo2.AddItem "幼圆"

End Sub

1、用VS2012新建一个VB窗口应用程序，进入窗体设计视图，添加一个菜单。

2、右击需要更改为组合框的菜单项，在d出的内容选择“转换为”->"ComboBox"。

3、对应的菜单项便由按钮变成了组合框。

4、运行程序可以看到刚刚添加的“串口”菜单项是以组合框的形式出现的。

5、结束调试，回到窗体设计，右击“串口”菜单项，选择“属性”。

6、关注“设计”下的Name，这个就是刚刚添加的组合框菜单项的名称，可以通过这个名称对该菜单项进行 *** 作，可以看到在VS2012的VB中是可以使用汉字作为控件名称的。

7、在窗体的Load事件中添加该组合框的初始化代码，即添加“串口1”、“串口2”、“串口3”等。

---