vb combol控件怎么用？

ComboBox控件

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

语法

ComboBox

说明

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

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

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

注意只有当ComboBox

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

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

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

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

VisualBasic源自于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

有两方式，直接引用Excel并创建对象如

dim xlApp as Excel.Application

dim xlBook as As Excel.Workbook

dim xlSheet as As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件

xlApp.Visible = True '设置EXCEL对象可见（False不可见）

Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表

xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值

可以这样：a =xlSheet.Cells(row, col)

另一种是ado，方法网上很多，

如果不引用 可以这样：

dim xlApp as object

dim xlBook as As object

dim xlSheet as As object

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件

xlApp.Visible = True '设置EXCEL对象可见（False不可见）

Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表

xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值

可以这样：a =xlSheet.Cells(row, col)

---