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

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

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

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

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

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

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

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

VB6.0可使用绑定到数据源、使用AddItem方法添加数据或逐一单元格添加数据，来向

MSFlexGrid控件添加数据。

1）使用绑定到数据源。

可使用ADODB数据源或Data控件绑定MSFlexGrid控件。

2）使用AddItem方法添加数据。

AddItem 方法 (MSHFlexGrid)，该方法将一个行添加到 MSHFlexGrid 控件中。

Private Sub Command1_Click()

    MSFlexGrid1.Cols = 5

    MSFlexGrid1.AddItem vbTab & "1" & vbTab & "2" & vbTab & "3" & vbTab & "4"

    MSFlexGrid1.AddItem vbTab & "5" & vbTab 清首宏& "6" & vbTab & "7" & vbTab & "8"

    MSFlexGrid1.AddItem vbTab & "9" & vbTab & "10" & vbTab & "11" & vbTab & "12"

    MSFlexGrid1.AddItem vbTab & "13" & vbTab & "14" & vbTab 答册& "15" & vbTab & "16"

    MSFlexGrid1.RemoveItem (1) '删除默认空白行

End Sub 3）逐一单元格添加数据。

Private Sub Command2_Click()

    Dim i, j, k As Integer

    '设置行列数

    With MSFlexGrid1

    .Rows = 5

    .Cols = 5

    End With

    '添加表头

    MSFlexGrid1.Row = 0

    For i = 1 To MSFlexGrid1.Cols - 1

        MSFlexGrid1.Col = i

        MSFlexGrid1.Text = "列" & i

    Next

    '添加记芹毕录

    k = 1

    For i = 1 To MSFlexGrid1.Rows - 1

        For j = 1 To MSFlexGrid1.Cols - 1

            MSFlexGrid1.Row = i

            MSFlexGrid1.Col = j

            MSFlexGrid1.Text = k

            k = k + 1

        Next

    Next

End Sub

VB使用AddItem 方法给ComboBox控件添加数据。

AddItem 方法，用于将项目添加到 ListBox 或 ComboBox 控件。不支持命名参数。

Private Sub Form_Click()

    Dim Entry, I, Msg 稿哪  ' 声明变量。

    Msg = "点OK增加100项到ComboBox控件"

    MsgBox Msg   ' 显示信息。

    For I = 1 To 100   ' 计数历敬闹值从 1 到 100。

         Entry = "Entry " & I   ' 创建输入项。

         Combo1.AddItem Entry   ' 添加该输入项。

 肢罩   Next I

End Sub

---