VB的combo控件怎样添加选项

使用AddItem 方法为添加选项。

AddItem 方法，用于将项目添加到 ListBox 或 ComboBox 控件，或者将行添加到 MS Flex Grid

控件。不支持命名参数。

AddItem 方法示例代码，选OK增加100个项目到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

'    Msg = "选OK删除任一个Entry."

'    MsgBox Msg   ' 显示信息。

'    For I = 1 To 50   ' 确定如何

'        Combo1.RemoveItem I   ' 每隔一项

'    Next I   ' 删除。

'    Msg = "选OK删除全部"

'    MsgBox Msg   ' 显示信息。

'    Combo1.Clear   ' 清除列表框。

1、定义控件对应变量

假定已经创建了一个Dialog，并且从控件工具箱将 Combo Box 控件拖放到上面。打开 Class Wizard，添加控件对应变量，如：CComboBoxm_cbExamble

在后面的代码中会不断使用这个变量。

2、在ComboBox控件属性的Data标签里面添加，一行表示ComboBox下拉列表中的一行。换行用ctrl+回车。

3、在程序初始化时动态添加

如： //控件内容初始化

CString strTemp

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->ResetContent()//消除现有所有内容

for(int i=1i<=100i++)

{

strTemp.Format("%d",i)

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->AddString(strTemp)

}

4、下拉的时候添加

如： CString strTemp

intiCount=((CComboBox*)GetDlgItem(IDC_COMBO_CF))->GetCount()//取得目前已经有的行数

if(iCount<1)//防止重复多次添加

{

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->ResetContent()

for(inti=1i<=100i++)

{

strTemp.Format("%d",i)

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->AddString(strTemp)

}

}

5、取得Combo Box框内容

取当前内容

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->GetWindowText(strTemp)

取其他行内容

((CComboBox*)GetDlgItem(IDC_COMBO_CF))->GetLBText(n,strTemp)

---