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”属性
|