vb中combo的详细用法

 我来答
果果就是爱生活
高能答主

2020-05-19 · 专注生活教育知识分享
果果就是爱生活
采纳数:2071 获赞数:272263

向TA提问 私信TA
展开全部

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=1;i<=100;i++)

{

  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=1;i<=100;i++)

   {

   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);

zdingyun
推荐于2017-09-04 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48174
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

ComboBox 控件,ComboBox 控件将 TextBox 控件和 ListBox
控件的特性结合在一起-既可以在控件的文本框部分输入信息,也可以在控件的列表框部分选择一项。

语法

ComboBox

说明

为了添加或删除 ComboBox 控件中的项目,需要使用 AddItem 或 RemoveItem 方法。设置 List、ListCount、和 ListIndex 属性,使访问 ComboBox 中的项目成为可能。也可以在设计时使用 List 属性将项目添加到列表中。

注意 只有当 ComboBox 的下拉部分的内容被滚动时,Scroll 事件才在 ComboBox 中发生,而不是每次 ComboBox 的内容改变时。例如,如果 ComboBox 的下拉部分包含五行,并且最顶上的项为突出显示,则在您按完向下箭头键六下(或按一次 PgUp 键)之前 Scroll 事件不发生。再往后,每按一次向上箭头键引发一次 Scroll 事件。

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

RemoveItem 方法,用以从 ListBox 或 ComboBox 控件中删除一项,或从 MS Flex Grid
控件中删除一行。

具体应用实例代码:

Private Sub Form_Click()
    Dim Entry, I, Msg   ' 声明变量。
    Msg = "Choose OK to add 100 items to your list box."
    MsgBox Msg   ' 显示信息。
    For I = 1 To 100   ' 计数值从 1 到 100。
        Entry = "Entry " & I   ' 创建输入项。
        List1.AddItem Entry   ' 添加该输入项。
    Next I
    Msg = "Choose OK to remove every other entry."
    MsgBox Msg   ' 显示信息。
    For I = 1 To 50   ' 确定如何
        List1.RemoveItem I   ' 每隔一项
    Next I   ' 删除。
    Msg = "Choose OK to remove all items from the list box."
    MsgBox Msg   ' 显示信息。
    List1.Clear   ' 清除列表框。
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
jention
2011-08-13 · TA获得超过501个赞
知道小有建树答主
回答量:1232
采纳率:25%
帮助的人:493万
展开全部
添加字符用法
combo1.add "字符串"
with combo1
.add "字符串"
.add "字符串"
.add "字符串"
end with
msgbox combo.text
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友187ec5ce00
2011-08-15 · TA获得超过243个赞
知道小有建树答主
回答量:360
采纳率:0%
帮助的人:209万
展开全部
http://www.bccn.net/Article/kfyy/vb/Index.html 去看看,很有帮助的,有讲COMBO
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式