combobox
MFC ComboBox
一、入门篇
ComboBox (组合框)控件很简单，可以节省空间。从用户角度来看，这个控件是由一个文本输入控件和一个下拉菜单组成的。用户可以从一个预先定义的列表里选择一个选项，同时也可以直接在文本框里面输入文本。下面的例子简要说明如何利用 MFC CComboBox Class来操作字符串列表。
1、定义控件对应变量
假定已经创建了一个Dialog，并且从控件工具箱将 Combo Box 控件拖放到上面。打开 Class Wizard，添加控件对应变量，如：CComboBoxm_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 befound”);
nStartAfter指明从哪一行开始查找。如果查找成功，返回的是该项的位置；否则，返回CB_ERR。
也可以选中包含指定字符串的项，如：
int nIndex = m_cbExample.SelectString( nStartAfter, “value to beselected”);
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 列表框被弹出
ON_CBN_KILLFOCUS / ON_CBN_SETFOCUS 在输入框失去/得到输入焦点时产生
ON_CBN_SELCHANGE 列表框中选择的行发生改变
ON_CBN_EDITUPDATE 输入框中内容被更新
一、如何添加/删除Combo Box内容
1，在ComboBox控件属性的Data标签里面添加，一行表示ComboBox下拉列表中的一行。换行用ctrl+回车。
2，在程序初始化时动态添加
如： //控件内容初始化
CString strTemp;
((CComboBox*)GetDlgItem(IDC_COMBO_CF))->ResetContent();//消除现有所有内容
for(int i=1;i<=100;i++)
{
strTemp.Format("%d",i);
((CComboBox*)GetDlgItem(IDC_COMBO_CF))->AddString(strTemp);
}
3，下拉的时候添加
如： CString strTemp;
intiCount=((CComboBox*)GetDlgItem(IDC_COMBO_CF))->GetCount();//取得目前已经有的行数
if(iCount<1)//防止重复多次添加
{
((CComboBox*)GetDlgItem(IDC_COMBO_CF))->ResetContent();
for(inti=1;i<=100;i++)
{
strTemp.Format("%d",i);
((CComboBox*)GetDlgItem(IDC_COMBO_CF))->AddString(strTemp);
}
}
4，删除
DeleteString( UINT nIndex )//删除指定行，
5，插入
InsertString( int nIndex,LPCTSTR lpszItem )//将行插入到指定位置
6，查找
FindString( int nStartAfter,LPCTSTR lpszItem )//可以在当前所有行中查找指定的字符传的位置，nStartAfter指明从那一行开始进行查找。
int SelectString( intnStartAfter, LPCTSTR lpszItem )//可以选中包含指定字符串的行
二、如何控制Combo Box的下拉长度
1，首先要知道两点：一、那就是在设计界面里，点击一下Combo Box的下拉箭头，此时出现的调整框就是Combo Box的下拉调整框。
2，二、属性里有个 No integral height 钩选项，表示最大长度为设计长度，如果实际内容比设计长度多，就出现滚动条，少就以实际长度显示。
三、选择其中的某行
1，选中：
intiPos=((CComboBox*)GetDlgItem(IDC_COMBO_CF))->GetCurSel();//当前选中的行。
2，设置
((CComboBox*)GetDlgItem(IDC_COMBO_CF))->SetCurSel(n)//设置第n行内容为显示的内容。
四、取得Combo Box框内容
1取当前内容
((CComboBox*)GetDlgItem(IDC_COMBO_CF))->GetWindowText(strTemp);
2取其他行内容
((CComboBox*)GetDlgItem(IDC_COMBO_CF))->GetLBText(n,strTemp);
四、获得焦点
通常要判断控件是否获得了焦点，可以用GetFocus()函数
例如：if(GetFocus()==GetDlgItem(IDC_EDIT_VALUE2))//判断焦点是否在编辑框IDC_EDIT_VALUE2内。
但是combobox 的焦点不同，因为它是由edit和listbox两部分组成的
所以获得焦点要用GetParent()：if((GetFocus()->GetParent())==GetDlgItem(IDC_COMBO_CF))
控制Combo Box的下拉长度
1，首先要知道两点：一、那就是在设计界面里，点击一下Combo Box的下拉箭头，此时出现的调整框就是Combo Box的下拉调整框。
二、属性里有个 No integral height 钩选项，表示最大长度为设计长度，如果实际内容比设计长度多，就出现滚动条，少就以实际长度显示。
VC++Combo Box/Combo Box Ex控件
组合窗口是由一个输入框和一个列表框组成。创建一个组合窗口可以使用成员函数：
BOOLCListBox::Create( LPCTSTR lpszText, DWORD dwStyle, const RECT& rect, CWnd*pParentWnd, UINT nID = 0xffff );
其中dwStyle将指明该窗口的风格，除了子窗口常用的风格WS_CHILD,WS_VISIBLE外，你可以针对列表控件指明专门的风格。
CBS_DROPDOWN下拉式组合框
CBS_DROPDOWNLIST下拉式组合框，但是输入框内不能进行输入
CBS_SIMPLE输入框和列表框同时被显示
LBS_SORT所有的行按照字母顺序进行排序
由于组合框内包含了列表框，所以列表框的功能都能够使用，如可以利用：
intAddString( LPCTSTR lpszItem )添加行，
intDeleteString( UINT nIndex )删除指定行，
intInsertString( int nIndex, LPCTSTR lpszItem )将行插入到指定位置。
voidResetContent( )可以删除列表框中所有行。
通过调用int GetCount( )得到当前列表框中行的数量。
如果需要得到/设置当前被选中的行的位置，可以调用int GetCurSel( )/intSetCurSel(int iIndex)。通过调用int GetLBText( intnIndex, LPTSTR lpszText )得到列表框内指定行的字符串。
此外通过调用int FindString( intnStartAfter, LPCTSTR lpszItem )可以在当前所有行中查找指定的字符传的位置，nStartAfter指明从那一行开始进行查找。
intSelectString( int nStartAfter, LPCTSTR lpszItem )可以选中包含指定字符串的行。
此外输入框的功能都能够使用，如可以利用：
DWORDGetEditSel( ) /BOOL SetEditSel( int nStartChar, int nEndChar )得到或设置输入框中被选中的字符位置。
BOOLLimitText( int nMaxChars )设置输入框中可输入的最大字符数。
输入框的剪贴板功能Copy,Clear,Cut,Paste动可以使用。
最后介绍一下列表框几种常用的消息映射宏：
ON_CBN_DBLCLK鼠标双击
ON_CBN_DROPDOWN列表框被弹出
ON_CBN_KILLFOCUS/ ON_CBN_SETFOCUS 在输入框失去/得到输入焦点时产生
ON_CBN_SELCHANGE列表框中选择的行发生改变
ON_CBN_EDITUPDATE输入框中内容被更新
使用以上几种消息映射的方法为定义原型如：afx_msg voidmemberFxn( );的函数，并且定义形式如ON_Notification( id,memberFxn )的消息映射。如果在对话框中使用组合框，Class Wizard会自动列出相关的消息，并能自动产生消息映射代码。
在MFC 4.2中对组合框进行了增强，你可以在组合框中使用ImageList，有一个新的类CComboBoxEx（由CComboBox派生）来实现这一功能。在CComboBoxEx类中添加了一些新的成员函数来实现新的功能：首先你需要调用CImageList*SetImageList( CImageList* pImageList );来设置ImageList，然后调用
intInsertItem( const COMBOBOXEXITEM* pCBItem );来添加行，其中COMBOBOXEXITEM定义如下：
typedefstruct { UINT mask; int iItem; LPTSTR pszText; int cchTextMax; int iImage; intiSelectedImage; int iOverlay; int iIndent; LPARAMlParam;} COMBOBOXEXITEM, *PCOMBOBOXEXITEM;
你需要设置mask=CBEIF_IMAGE CBEIF_TEXT，并设置iItem为插入位置，设置pszText为显示字符串，设置iImage为显示的图标索引。下面的代码演示了如何进行插入：
/*m_cbeWnd为已经创建的CComboBox对象
m_list为CImageList对象IDB_IMG 为16*(16*4)的位图，每个图片为16*16共4个图标*/
m_list.Create(IDB_IMG,16,4,RGB(0,0,0));
m_cbeWnd.SetImageList(&m_list);
COMBOBOXEXITEMinsItem;insItem.mask=CBEIF_IMAGE CBEIF_TEXT;insItem.iItem=0;insItem.iImage=0;insItem.pszText="Line1";m_cbeWnd.InsertItem(&insItem);insItem.iItem=1;insItem.iImage=1;insItem.pszText="Line2";m_cbeWnd.InsertItem(&insItem);
通过调用int DeleteItem( intiIndex );来删除行，并指明行的位置。
通过调用BOOL GetItem( COMBOBOXEXITEM*pCBItem )/BOOL SetItem( const COMBOBOXEXITEM* pCBItem );来得到/设置行数据。
二、提高篇（控件应用方案）
1．功能
组合框（ComboBox）是文本框（TextBox）和列表框（ListBox）的组合。用户可以从文本框中输入文本，也可以从列表框中选取列表项。
2．属性
ComboBox控件的常用属性如表1所示。
表1 ComboBox控件的常用属性
|
编号 |
属性 |
说明 |
|
1 |
IntegralHeight |
返回或设置一个值，指示控件是否显示部分项目。运行时是只读的 |
|
2 |
List |
返回或设置控件列表部分的项目 |
|
3 |
ListCount |
返回控件的列表部分项目的个数 |
|
4 |
ListIndex |
返回或设置控件中当前选择项目的索引，在设计时不可用 |
|
5 |
Locked |
返回或设置一个值，以指定控件是否可被编辑 |
|
6 |
Sorted |
返回一个值，指定控件的元素是否自动按字母表顺序排序 |
|
7 |
Style |
返回或设置一个值，该值用来指示控件的显示类型和行为 |
|
8 |
TabIndex |
返回或设置父窗体中大部分对象的〈Tab〉键次序 |
|
9 |
Text |
ComboBox控件（Style属性设置为0（下拉组合框）或为1（简单组合框））返回或设置编辑域中的文本 |
下面对比较重要的属性进行详细介绍。
（1）List属性
返回或设置控件列表部分的项目。
语法：
object.List(index) [= string]
object：对象表达式。
index：列表中具体某一项目的号码。
string：字符串表达式，指定列表中的项目。
示例：
下例演示的是，当程序运行时，当单击ComboBox控件列表中对象后，在标签控件中将显示所选择的对象名称，如图1所示。
图1 List属性演示示例
程序代码如下：
'单击ComboBox控件列表中对象后，在标签控件中将显示所选择的对象名称
Private Sub Combo1_Click()
Label1.Caption = "选取的项目为：" & Combo1.List(Combo1.ListIndex)
End Sub
'窗体启动时组合框1中自动加十一个从Combo1(0)到Combo1(10)的项目
Private Sub Form_Load()
For i =0 To 10
Combo1.AddItem "Combo1(" & i & ")"
Next
End Sub
（2）ListCount属性
返回控件列表中部分项目的个数。
语法：
object.ListCount
object：对象表达式。
示例：
下例演示的是如何向ComboBox控件中加载项目。程序运行后单击窗体，在标签控件中将显示ComboBox控件中所加载项目的个数，如图2所示。
图2 ListCount属性的应用示例
程序完整代码如下：
'单击窗体时在标签控件中将显示ComboBox控件中所加载项目的个数
Private Sub Form_Click()
Label1.Caption = "列表中的项目为：" & Combo1.ListCount & "个"
End Sub
'向ComboBox控件中加入121个项目
Private Sub Form_Load()
For i =0 To 120
Combo1.AddItem "Combo1(" & i & ")"
Next
End Sub
（3）ListIndex属性
返回或设置控件中当前选择项目的索引。
语法：
object.ListIndex [= index]
object：对象表达式。
index：数值表达式，指定当前项目的索引。
示例：
下面的例子演示的是ComboBox控件的ListIndex属性，用于显示每个季节的销售额。程序运行时，在ComboBox控件中选择季节名称，在标签中就会显示出该季节的销售信息，如图3所示。
图3 ListIndex属性的应用示例
程序完整代码如下：
Dim Season(0 To 3) '声明两个数组的大小
Dim Sale(0 To 3)
'在ComboBox控件中选择季节名称，在标签中就会显示出该季节的销售信息
Private SubCombo1_Click()
Label1.Caption = Combo1.Text &" " & Sale(Combo1.ListIndex)
End Sub
'窗体加载时设置ComboBox控件的项目名称和项目索引
Private Sub Form_Load()
Dim i '声明变量
AutoSize = True
Season(0) = "春季"
Season(1) = "夏季"
Season(2) = "秋季"
Season(3) = "冬季"
Sale(0)= "$1300,500"
Sale(1)= "$208,900"
Sale(2)= "$1,412,500"
Sale(3)= "$1,220,500"
For i = 0 To 3 '在列表中添加名字
Combo1.AddItem Season(i)
Next i
Combo1.ListIndex = 0 '显示列表中的第一项
End Sub
（4）Style属性
返回或设置一个值，该值用来指示控件的显示类型和行为。该属性在运行时为只读。
语法：
object.Style
object：对象表达式。其设置值如表2所示。
表2 object的设置值
|
常数 |
值 |
说明 |
|
VbComboDropDown |
0 |
下拉式组合框。包括一个下拉式列表和一个文本框。可以从列表选择或在文本框中输入 |
|
VbComboSimple |
1 |
简单组合框。包括一个文本框和一个不能下拉的列表。可以从列表中选择或在文本框中输入内容 |
|
VbComboDrop-DownList |
2 |
下拉式列表。这种样式仅允许从下拉式列表中选择 |
下面的例子演示的是ComboBox控件的Style属性。设置3个不同的属性值后的效果如图4和图5所示。
图4 未添加时的效果
图5 添加后的效果
3．方法
下面介绍ComboBox控件比较重要的方法。
（1）AddItem方法
用于将项目添加到ComboBox控件中。不支持命名参数。
语法：
object.AddItem item, index
object：必需的。对象表达式。
item：必需的。字符串表达式，用来指定添加到对象的项目。
index：可选的整数值，用来指定新项目或行在该对象中的位置。
示例：
下面的例子演示的是ComboBox控件的AddItem方法。利用AddItem方法将月份信息添加到ComboBox控件的列表当中，如图6所示。
图6 AddItem方法的应用示例
程序完整代码如下：
'将项目1月到12月添加到ComboBox控件中
Private Sub Form_Load()
For i = 0 To 11
Combo1.AddItem i + 1 & " 月"
Next
End Sub
（2）Clear方法
用于清除ComboBox控件中的内容。
语法：
object.Clear
object：对象表达式。
示例：
下例演示的是，当程序运行的时候，单击窗体上的“清除”按钮将清除ComboBox控件中的内容，如图7所示。
图7 Clear方法的应用
程序相关代码如下：
'点击清除按钮时清除ComboBox控件中的内容
Private SubCommand1_Click()
Combo1.Clear
End Sub
程序完整代码：
'点击清除按钮时清除ComboBox控件中的内容
Private Sub Command1_Click()
Combo1.Clear
End Sub
'窗体启动时将项目1月到12月添加到ComboBox控件中
Private Sub Form_Load()
For i =0 To 11
Combo1.AddItem i + 1 & " 月"
Next
End Sub
4．事件
ComboBox控件的常用事件如表3所示。
表3 ComboBox控件的常用事件
|
编号 |
事件 |
说明 |
|
1 |
Change |
当控件的内容发生改变时发生。该事件仅在Style属性设置为0（下拉Combo）或1（简单Combo）和正文被改变或者通过代码改变了Text属性的设置时才会发生 |
|
2 |
DblClick |
当在一个对象上按下和释放鼠标按键并再次按下和释放鼠标按键时，该事件发生 |
|
3 |
DropDown |
该事件是当ComboBox控件的列表部分正要展开时发生 |
|
4 |
Scroll |
当Combo Box控件的滚动条被重新定位时，此事件发生 |
下面对比较重要的事件进行详细介绍。
（1）Change事件
改变控件文本框部分的正文。该事件仅在Style属性设置为0或1和正文被改变或者通过代码改变了Text属性的设置时才会发生。
语法：
Private Sub object_Change([index As Integer])
object：对象表达式。
index：一个整数，用来惟一地标识一个在控件数组中的控件。
（2）Click事件
此事件在ComboBox控件上按下然后释放一个鼠标按键时发生，也会在一个控件的值改变时发生。
语法：
Private Sub object_Click([index As Integer])
object：对象表达式。
index：一个整数，用来惟一地标识一个在控件数组中的控件。
应用一：带查询功能的ComboBox控件
实例说明
如果在下拉列表中的项目过多，想在其中选择需要的项目是很困难的。如果ComboBox控件具有查询功能就会很方便。下面将介绍带有查询功能ComboBox控件的实例。运行程序。在ComboBox控件中输入信息，如果在ComboBox列表框中有与之相匹配的信息，即可将全部信息显示在文本框中。如本实例中，在文本框中输入“麻”，由于在下面的列表中有与之相匹配的“麻辣火锅”，则在文本框中可直接显示“麻辣火锅”。实现效果如图8所示。
图8 带查询功能的ComboBox控件
思路与技术
在实现带查询功能的ComboBox控件时，主要应用了API函数中的SendMessage函数。本实例中利用SendMessage函数将参数传递给ComboBox控件，以实现查询的功能。SendMessage函数用于调用一个窗口的窗口函数，将一条消息发给那个窗口。直到消息被处理完毕，该函数才会返回。
其函数声明如下：
Private Declare Function SendMessage Lib"user32" Alias "SendMessageA" (ByVal hWnd As Long, ByValwMsg As Long, ByVal wParam As Long, lParam As Any) As Long
参数说明：
l l hWnd Long型，要接受消息的那个窗口的句柄。
l l wMsg Long型，消息的标识符。
l l wParam Long型，具体取决于消息。
l l IParam Any型，具体取决于消息。
开发步骤
（1）新建一个标准工程，创建一个新窗体，默认名为Form1。
（2）在窗体上添加一个Frame控件。
（3）在Frame1上添加一个Label控件，用于显示提示信息；一个ComboBox控件，用于查询信息；一个Image控件，用于显示图片，并设置其Picture属性。
在窗体中控件说明如表4所示。
表4 Form1窗体中控件部分属性设置
|
控件名 |
属性 |
值 |
|
ComboBox |
Name |
Combo1 |
|
Frame |
Name |
Frame1 |
|
Image |
Name |
Image1 |
|
ListBox |
Name Caption |
List1 在组合框中输入信息，如果列表中含有与之相匹配的信息，即可显示在文本框中。 |
（4）为Form1窗体添加如下代码。
Private Declare Function SendMessage Lib"user32" Alias "SendMessageA" (ByVal hwnd As Long, ByValwMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const CB_FINDSTRING = &H14C
Const CB_ERR = (-1)
'带查询功能的ComboBox控件
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim TempAs Long
DimMyStr As String
IfCombo1.SelLength = 0 Then
'如果选择的字符为零，将列标框中的文本与键入的字符相组合
MyStr = Combo1.Text & Chr(KeyAscii)
Else '如果选择的字符数不为零
MyStr = Left(Combo1.Text, Combo1.SelStart) & Chr(KeyAscii)
End If
'在列表框控件中查找与变量MyStr相匹配的字符串。
'如果找到,则返回值为第一个匹配的字符串的索引值。如果未找到，则返回值为-1
Temp =SendMessage(Combo1.hwnd, CB_FINDSTRING, True, ByVal MyStr)
If Temp<> CB_ERR Then '如果找到
Combo1.ListIndex = Temp '将找到的项目添加到编辑部分
Combo1.SelStart = Len(Combo1.Text) '将光标设置在文本尾部
End If
KeyAscii= 0
End Sub
'窗体启动时将项目添加到ComboBox控件中
Private Sub Form_Load()
'向类标框中添加项目
Combo1.AddItem "美式炸鸡": Combo1.AddItem "中国饺子": Combo1.AddItem "冰淇淋"
Combo1.AddItem"春卷":Combo1.AddItem "陕西凉皮": Combo1.AddItem "麻辣火锅"
Combo1.AddItem "四川麻辣烫": Combo1.AddItem "东北饺子王": Combo1.AddItem "香格里拉"
Combo1.AddItem "K F C": Combo1.Text = ""
End Sub
应用二：将数据表中的字段添加到ComboBox控件
实例说明
本实例实现的是将数据表中的字段名添加到ComboBox控件中。运行程序，单击“添加”按钮，即可将本实例文件夹下的数据库（db_medicine. mdb）中的数据表（tb_xsd）中的字段添加到ComboBox控件中，实现效果如图9所示。
图9 将数据表中的字段添加到ComboBox控件
思路与技术
要将数据表中的字段添加到ComboBox控件，需通过数据集对象提取相应表中的字段的名称并将其保存到ComboBox控件中。下面介绍一下ComboBox控件的AddItem方法。
AddItem方法用于将项目添加到ComboBox控件中。
语法形式如下：
object.AddItem item, index
参数说明：
l l object 必需的。一个对象表达式。
l l Item 必需的。字符串表达式，用来指定添加到该对象中的项目。
l l Index 可选的。是整数，用来指定新项目或行在该对象中的位置。
开发步骤
（1）新建一个标准工程，创建一个新窗体，将其命名为main_cxtj_sellfind。
（2）在窗体上添加一个Frame控件。
（3）在Frame1上添加一个Label控件和一个PictureBox控件，并设置PictureBox控件的Picture属性。
（4）在Frame1上添加一个ComboBox控件，将其命名为Cbx_Fields，主要用于存储数据表中的字段信息。再添加一个CommandButton控件，将其命名为Cmd_Add，主要用于执行添加操作。
在main_cxtj_sellfind窗体中控件部分属性设置如表5所示。
表5 main_cxtj_sellfind窗体中控件部分属性设置
|
控件名 |
属性 |
值 |
|
ComboBox |
Name |
Cbx_Fields |
|
CommandButton |
Name Caption |
Cmd_Add 添加 |
|
Frame |
Name |
Frame1 |
|
Label |
Name Caption |
Label1 字段名称 |
|
PictureBox |
Name |
Picture1 |
（5）为main_cxtj_sellfind窗体添加如下代码。
Dim fld
Dim rs As New ADODB.Recordset '定义数据集对象
'建立数据库连接
Function cnn() As ADODB.Connection '定义连接函数
'创建连接
Set cnn= New ADODB.Connection
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &"\db_medicine.mdb;Persist Security Info=False"
End Function
'单击添加按钮将数据表中的字段名添加到ComboBox控件中
Private Sub Cmd_Add_Click() '添加按钮
rs.Open"select * from tb_xsd", cnn, adOpenKeyset, adLockOptimistic
Set fld= rs.Fields
For Eachfld In rs.Fields
'向ComboBox控件中添加字段
Cbx_Fields.AddItem fld.Name
Next
rs.Close
Cbx_Fields.ListIndex = 0
End Sub
应用三：如何将一个ComboBox控件放到Toolbar控件
Toolbar控件可以摆放任意Button控件。方法都是用Add方法将Button对象添加到Toolbar控件中去。每个按钮的状态都由Style属性决定。
例如运行程序Combo1控件自动添加到Toolbar1工具栏上。
最终效果如图10所示。
图10 将一个ComboBox控件放到Toolbar控件
★★★★★ Form1 ★★★★★★
程序代码如下：
'窗体启动时将一个ComboBox控件放到Toolbar控件
Private Sub Form_load()
Dim btnAs Button '声明Button类型变量
Combo1.AddItem "LOVING" '添加列表项
Combo1.AddItem "李小葱"
Combo1.AddItem "葱葱"
Combo1.Text = "loving" '设置下拉列表项当前内容
Me.Show '显示窗体
Set btn= Toolbar1.Buttons.Add() '添加Button
btn.Style = tbrSeparator '设置Button类型
Set btn= Toolbar1.Buttons.Add() '添加Button
btn.Style = tbrPlaceholder '设置Button类型
btn.Key= "ComboBox" '设置关键字
btn.Width = 1000 '设置宽度
Set btn= Toolbar1.Buttons.Add '添加Button
btn.Style = tbrDefault '设置Button类型
Set btn= Toolbar1.Buttons.Add '添加Button
btn.Style = tbrDefault '设置Button类型
SetCombo1.Container = Toolbar1设置Combo1的所在容器
Combo1.ZOrder 0 '设置Combo1位于图层顶端
Combo1.Width = Toolbar1.Buttons("ComboBox").Width '设置Combo1宽度
Combo1.Top = Toolbar1.Buttons("ComboBox").Top '设置Combo1顶端坐标
Combo1.Left = Toolbar1.Buttons("ComboBox").Left '设置Combo1左端坐标
Combo1.Visible = True 'Combo1可见
End Sub
应用四：注意ComboBox控件的只读属性
在“工作日志管理”窗体中，单击工具栏上的“添加”按钮添加工作日志信息时（如图11所示），弹出如图12所示的错误提示信息。
图11 单击工具栏上的“添加”按钮添加工作日志信息
图12 在添加工作日志信息时弹出的错误提示信息
在添加工作日志信息时，需要将“日志类型”下拉列表框中的内容清空。“ComboBox”控件的“Style”属性有3个属性值，即“0-Dropdown Combo”、“1-Simple Combo”和“2-Dropdown List”。当将“Style”属性设置为“2-Dropdown List”时，“ComboBox”控件的“Text”属性被设为只读，将无法再为控件的“Text”属性赋值，所以在添加工作日志信息时，一旦给“ComboBox”控件的“Text”属性赋予空值，就会弹出错误提示。解决的方法是在“ComboBox”控件的属性窗口中将“ComboBox”控件的“Style”属性设置为“0-Dropdown”，如图13所示。
图13 设置“ComboBox”控件的“Style”属性
