MFC 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( intnStartChar, 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输入框中内容被更新
一、如何添加/删除ComboBox内容
1,在ComboBox控件属性的Data标签里面添加,一行表示Combo Box下拉列表中的一行。换行用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(int i=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( int nStartAfter, LPCTSTR lpszItem)//可以选中包含指定字符串的行
二、如何控制Combo Box的下拉长度
1,首先要知道两点:一、那就是在设计界面里,点击一下Combo Box的下拉箭头,此时出现的调整框就是Combo Box的下拉调整框。
2,二、属性里有个 Nointegral 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, constRECT& 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( )/int SetCurSel(intiIndex)。通过调用int GetLBText( int nIndex, LPTSTRlpszText )得到列表框内指定行的字符串。
此外通过调用int FindString( int nStartAfter, LPCTSTRlpszItem )可以在当前所有行中查找指定的字符传的位置,nStartAfter指明从那一行开始进行查找。
intSelectString( int nStartAfter, LPCTSTR lpszItem)可以选中包含指定字符串的行。
此外输入框的功能都能够使用,如可以利用:
DWORD GetEditSel( ) /BOOL SetEditSel( int nStartChar, intnEndChar )得到或设置输入框中被选中的字符位置。
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 void memberFxn( );的函数,并且定义形式如ON_Notification( id, memberFxn)的消息映射。如果在对话框中使用组合框,Class Wizard会自动列出相关的消息,并能自动产生消息映射代码。
在MFC 4.2中对组合框进行了增强,你可以在组合框中使用ImageList,有一个新的类CComboBoxEx(由CComboBox派生)来实现这一功能。在CComboBoxEx类中添加了一些新的成员函数来实现新的功能:首先你需要调用CImageList* SetImageList( CImageList*pImageList );来设置ImageList,然后调用
intInsertItem( const COMBOBOXEXITEM* pCBItem );来添加行,其中COMBOBOXEXITEM定义如下:
typedef struct { UINT mask; int iItem; LPTSTR pszText; intcchTextMax; int iImage; int iSelectedImage; int iOverlay; int iIndent; LPARAM lParam;}COMBOBOXEXITEM, *PCOMBOBOXEXITEM;
你需要设置mask=CBEIF_IMAGE CBEIF_TEXT,并设置iItem为插入位置,设置pszText为显示字符串,设置iImage为显示的图标索引。下面的代码演示了如何进行插入:
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( int iIndex);来删除行,并指明行的位置。
通过调用BOOL GetItem(COMBOBOXEXITEM* pCBItem )/BOOL SetItem( const COMBOBOXEXITEM*pCBItem );来得到/设置行数据。
二、提高篇(控件应用方案)
1.功能
组合框(ComboBox)是文本框(TextBox)和列表框(ListBox)的组合。用户可以从文本框中输入文本,也可以从列表框中选取列表项。
2.属性
ComboBox控件的常用属性如表1所示。
表1ComboBox控件的常用属性
编号 | 属性 | 说明 |
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 SubCombo1_Click()
Label1.Caption ="选取的项目为:" &Combo1.List(Combo1.ListIndex)
End Sub
'窗体启动时组合框1中自动加十一个从Combo1(0)到Combo1(10)的项目
Private SubForm_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 SubForm_Click()
Label1.Caption ="列表中的项目为:" & Combo1.ListCount& "个"
End Sub
'向ComboBox控件中加入121个项目
Private SubForm_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 Sub Combo1_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所示。
表2object的设置值
常数 | 值 | 说明 |
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 Sub Command1_Click()
Combo1.Clear
End Sub
程序完整代码:
'点击清除按钮时清除ComboBox控件中的内容
Private SubCommand1_Click()
Combo1.Clear
End Sub
'窗体启动时将项目1月到12月添加到ComboBox控件中
Private SubForm_Load()
For i = 0 To 11
Combo1.AddItem i + 1& " 月"
Next
End Sub
4.事件
ComboBox控件的常用事件如表3所示。
表3ComboBox控件的常用事件
编号 | 事件 | 说明 |
1 | Change | 当控件的内容发生改变时发生。该事件仅在Style属性设置为0(下拉Combo)或1(简单Combo)和正文被改变或者通过代码改变了Text属性的设置时才会发生 |
2 | DblClick | 当在一个对象上按下和释放鼠标按键并再次按下和释放鼠标按键时,该事件发生 |
3 | DropDown | 该事件是当ComboBox控件的列表部分正要展开时发生 |
4 | Scroll | 当ComboBox控件的滚动条被重新定位时,此事件发生 |
下面对比较重要的事件进行详细介绍。
(1)Change事件
改变控件文本框部分的正文。该事件仅在Style属性设置为0或1和正文被改变或者通过代码改变了Text属性的设置时才会发生。
语法:
Private Subobject_Change([index As Integer])
object:对象表达式。
index:一个整数,用来惟一地标识一个在控件数组中的控件。
(2)Click事件
此事件在ComboBox控件上按下然后释放一个鼠标按键时发生,也会在一个控件的值改变时发生。
语法:
Private Subobject_Click([index As Integer])
object:对象表达式。
index:一个整数,用来惟一地标识一个在控件数组中的控件。
应用一:带查询功能的ComboBox控件
实例说明
如果在下拉列表中的项目过多,想在其中选择需要的项目是很困难的。如果ComboBox控件具有查询功能就会很方便。下面将介绍带有查询功能ComboBox控件的实例。运行程序。在ComboBox控件中输入信息,如果在ComboBox列表框中有与之相匹配的信息,即可将全部信息显示在文本框中。如本实例中,在文本框中输入“麻”,由于在下面的列表中有与之相匹配的“麻辣火锅”,则在文本框中可直接显示“麻辣火锅”。实现效果如图8所示。
图8 带查询功能的ComboBox控件
思路与技术
在实现带查询功能的ComboBox控件时,主要应用了API函数中的SendMessage函数。本实例中利用SendMessage函数将参数传递给ComboBox控件,以实现查询的功能。SendMessage函数用于调用一个窗口的窗口函数,将一条消息发给那个窗口。直到消息被处理完毕,该函数才会返回。
其函数声明如下:
Private Declare FunctionSendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long,ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) AsLong
参数说明:
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所示。
表4Form1窗体中控件部分属性设置
控件名 | 属性 | 值 |
ComboBox | Name | Combo1 |
Frame | Name | Frame1 |
Image | Name | Image1 |
ListBox | Name Caption | List1 在组合框中输入信息,如果列表中含有与之相匹配的信息,即可显示在文本框中。 |
(4)为Form1窗体添加如下代码。
Private Declare FunctionSendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) AsLong
Const CB_FINDSTRING =&H14C
Const CB_ERR =(-1)
'带查询功能的ComboBox控件
Private SubCombo1_KeyPress(KeyAscii As Integer)
Dim Temp As Long
Dim MyStr AsString
If Combo1.SelLength = 0Then
'如果选择的字符为零,将列标框中的文本与键入的字符相组合
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, ByValMyStr)
If Temp<> CB_ERR Then '如果找到
Combo1.ListIndex = Temp'将找到的项目添加到编辑部分
Combo1.SelStart =Len(Combo1.Text) '将光标设置在文本尾部
End If
KeyAscii = 0
End Sub
'窗体启动时将项目添加到ComboBox控件中
Private SubForm_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所示。
表5main_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 NewADODB.Recordset '定义数据集对象
'建立数据库连接
Function cnn() AsADODB.Connection '定义连接函数
'创建连接
Set cnn = NewADODB.Connection
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &App.Path & "db_medicine.mdb;Persist SecurityInfo=False"
End Function
'单击添加按钮将数据表中的字段名添加到ComboBox控件中
Private Sub Cmd_Add_Click()'添加按钮
rs.Open "select * fromtb_xsd", cnn, adOpenKeyset, adLockOptimistic
Set fld =rs.Fields
For Each fld Inrs.Fields
'向ComboBox控件中添加字段
Cbx_Fields.AddItemfld.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 SubForm_load()
Dim btn As 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类型
Set Combo1.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-SimpleCombo”和“2-Dropdown List”。当将“Style”属性设置为“2-Dropdown List”时,“ComboBox”控件的“Text”属性被设为只读,将无法再为控件的“Text”属性赋值,所以在添加工作日志信息时,一旦给“ComboBox”控件的“Text”属性赋予空值,就会弹出错误提示。解决的方法是在“ComboBox”控件的属性窗口中将“ComboBox”控件的“Style”属性设置为“0-Dropdown”,如图13所示。
图13 设置“ComboBox”控件的“Style”属性