如何在vb组合框中添加数据

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

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

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

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

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

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

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

假定“数据记录3”是基念念控件数组Text1，“字符累计4”是控件数组Text2，“数据输入1”是Text3，“指点位置2”搏困是Text4，按钮是Command1，则

Private Sub Command1_Click()

Dim s As Long, i As Long, j As Long

For i = Text2.LBound To Text2.UBound

If Val(Text2(i).Text) = Val(Text4.Text) Then Exit For

Next

If i <高丛= Text2.UBound Then

For j = Text1.UBound To i + 1 Step -1

Text1(j).Text = Text1(j - 1).Text

Next

Text1(i).Text = Text3.Text

For i = Text1.LBound To Text1.UBound

s = s + Len(Text1(i).Text)

Text2(i).Text = s

Next

End If

End Sub

---