vb中combo的详细用法

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

{

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

{

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)

ComboBox 控件

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

语法

ComboBox

说明

为了添加或删除ComboBox 控件中的项目，需要使用 AddItem 或

RemoveItem 方法。设置 List、ListCount、和 ListIndex 属性，使访问

ComboBox 中的项目成为可能。也可以在设计时使用 List 属性将项目添加到列表中。

注意 只有当ComboBox

的下拉部分的内容被滚动时，Scroll 事件才在 ComboBox 中发生，而不是每次 ComboBox 的内容改变时。例如，如果

ComboBox 的下拉部分包含五行，并且最顶上的项为突出显示，则在您按完向下箭头键六下（或按一次 PgUp 键）之前 Scroll 事件不发生。再往后，每按一次向上箭头键引发一次 Scroll 事件。

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。 [1]

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 [2]  。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

两组数据你要有关联的东西，简单的用二维数组（建议用集合Collection），如果用数据库，后面 *** 作会比较简单。

当然，如果数据不是很多，直接在代码里写就行了，比如

'添加数据到Combo，也可以直接在设计界面编辑列表（List属性）

Combo1.Clear

Combo1.AddItem " *** 场"

Combo1.AddItem "教学楼"

...

'点击事件Click里的代码

select case Combo1.Index

case 0 '这里需要你自己去对应数据，跟上面一致，这里是“ *** 场”

Text1.Text = "1200" ' *** 场的面积

case 1

Text1.Text = "300" '教学楼面积

case 2

...

End Select

---