combobox控件怎么插入两条信息合并

Combo Box (组合框)控件很简单，可以节省空间。从用户角度来看，这个控件是由一个文本输入控件和一个下拉菜单组成的。用户可以从一个预先定义的列表里选择一个选项，同时也可以直接在文本框里面输入文本。下面的例子简要说明如何利用 MFC CComboBox Class来 *** 作字符串列表。

1、定义控件对应变量

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

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

2、向控件添加 Items

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

2) 利用函数 AddString() 向 Combo Box 控件添加 Items，如：

m_cbExample.AddString(“StringData1”)

m_cbExample.AddString(“StringData2”)

m_cbExample.AddString(“StringData3”)

3) 也可以调用函数 InsertString() 将 Item 插入指定位置 nIndex，如：

m_cbExample.InsertString( nIndex, “StringData” )

3、从控件得到选定的Item

假设在控件列表中已经选定某项，现在要得到被选定项的内容，首先要得到该项的位置，然后得到对应位置的内容。这里会用到两个函数，如：

int nIndex = m_cbExample.GetCurSel()

CString strCBText

m_cbExample.GetLBText( nIndex, strCBText)

这样，得到的内容就保存在 strCBText 中。

若要选取当前内容，可调用函数GetWindowText(strCBText)。

4、在控件中查找给定Item

这种 *** 作一般用于在程序中动态修改控件中该项的值，可以用函数FindStringExact() 精确匹配，如：

int nIndex = m_cbExample.FindStringExact( nStartAfter, “value to be found”)

nStartAfter指明从哪一行开始查找。如果查找成功，返回的是该项的位置；否则，返回CB_ERR。

也可以选中包含指定字符串的项，如：

int nIndex = m_cbExample.SelectString( nStartAfter, “value to be selected”)

5、删除控件中的Item

该 *** 作可以利用函数DeleteString()，需要指定被删除项的位置，如：

m_cbExample.DeleteString(nIndex)

也可以使用函数ResetContent()，清除目前的所有项，如：

m_cbExample.ResetContent()

6、显示控件中的某项

int nIndex = m_cbExample.GetCurSel()//当前选中的项

m_cbExample.SetCurSel(nIndex)//设置第nIndex项为显示的内容

7、得到或设置输入框中被选中的字符位置

DWORD GetEditSel( ) /BOOL SetEditSel( int nStartChar, int nEndChar )

BOOL LimitText( int nMaxChars )设置输入框中可输入的最大字符数。

8、列表框常用消息映射宏

ON_CBN_DBLCLK 鼠标双击

ON_CBN_DROPDOWN 列表框被d出

ON_CBN_KILLFOCUS / ON_CBN_SETFOCUS 在输入框失去/得到输入焦点时产生

ON_CBN_SELCHANGE 列表框中选择的行发生改变

ON_CBN_EDITUPDATE 输入框中内容被更新

你应该说的是winform中的下拉列表控件吧！

如果这些选项是固定的，可以直接在控件的属性面板中找到Items属性中去添加选项；

如果需要代码添加，就可以使用 控件名.Items.Add("选项") 的语句来添加；

如果是数据源中取出来的数据，可以使用数据绑定的方式添加；

控件名.DataSource=数据源 的语句来添加选项。

Dim s As String '当用户选择combo1中的“其他”时，允许用户输入一个字符串变量添加到combo1中

Dim h As Integer '循环变量

Private Sub Combo1_Click()

If Combo1.ListIndex = Combo1.ListCount - 1 Then

    s = InputBox("请输入测试项目")

    If s <> "" Then

        Combo1.AddItem s, Combo1.ListCount - 1

        Combo1.ListIndex = Combo1.ListCount - 2

    End If

End If

End Sub

Private Sub Command1_Click() '保存按钮

SaveSetting "MyApp", "setup", "Form3.Text1", Text1.Text

SaveSetting "MyApp", "setup", "Form3.Text2", Text2.Text

SaveSetting "MyApp", "setup", "Form3.Text3", Text3.Text

s = ""

For h = 4 To Combo1.ListCount - 2

    If s <> "" Then s = s & "|"

    s = s & Combo1.List(h)

Next h

If s <> "" Then SaveSetting "MyApp", "setup", "Combo1.List", s

SaveSetting "MyApp", "setup", "Form3.Combo1", Combo1.ListIndex

Unload Me

End Sub

Private Sub Command2_Click() '取消按钮

Unload Me

End Sub

Private Sub Form_Load()

Dim ss() As String

Text1.Text = GetSetting("MyApp", "setup", "Form3.Text1", Text1.Text)

Text2.Text = GetSetting("MyApp", "setup", "Form3.Text2", Text2.Text)

Text3.Text = GetSetting("MyApp", "setup", "Form3.Text3", Text3.Text)

s = GetSetting("MyApp", "setup", "Combo1.List", "")

If s <> "" Then

    ss = Split(s, "|")

    For h = 0 To UBound(ss)

        Combo1.AddItem ss(h), Combo1.ListCount - 1

    Next h

End If

Combo1.ListIndex = GetSetting("MyApp", "setup", "Form3.Combo1", Combo1.ListIndex)

End Sub

---