4 VB基础控件篇.Command按钮控件

VB控件VB作为可视化的编程，提供了很多控件。

控件工具箱在VB程序界面的左边，如下图所示。

一、按钮控件（command），按钮控件主要用来执行某一功能。

每一个控件都有一个名称，在程序里面，我们要通过控件的名称引用该控件。

如下图所示，我们在窗体画了一个按钮控件选中该控件，在属性面板“名称”一行可以看到该按钮控件的名称是“Command1”按钮控件有很多属性，其中Caption属性的值控制着按钮显示的文字，我们想要改变一个控件的属性的值有两种方法，第一种方法是在属性面板修改，如下图所示：我们把按钮控件的Caption属性的值改成了“开始”，那么按钮上显示的文字就改为了“开始”，如下图所示：我们还可以通过写代码的方式改变控件属性的值，假如要把上图按钮上的文字改为“暂停”，除了可以在属性面板修改之外，还可以通过以下代码进行修改：Command1.Caption = "暂停"代码的格式为：控件名称.控件属性=值例子：问题描述：窗体上有一个按钮，初始时按钮文字显示“开始”。

当按钮上的文字为“开始”时，点击按钮，按钮文字改变为“暂停”。

当按钮上的文字为“暂停”时，点击按钮时改为“开始”。

界面如下：代码如下：二、标签控件（label），主要用于显示文本，通常用于显示提示性的文字，控制标签控件显示文本的是Caption属性的值，我们可以通过属性面板改变该属性的值，也可以通过以下代码改变：Label1.Caption = "Hello World!"。

控制标签控件字体和字号的属性是font，控制其文字颜色的是forecolor属性的值。

例子：利用label控件制作一个欢迎界面，界面如下：界面有两个控件，一个按钮，一个label，label的名称为Label1，选中Label1控件，在属性面板将其Caption属性改为“欢迎标语”，ForeColor属性设置为红色，如上图所示。

VB教案命令按钮（CommandButton）第一篇：VB教案命令按钮(CommandButton)（五）命令按钮（CommandButton）是VB中一个最常用的控件，一般用来接收单击事件，并调用指定的过程以实现程序的进程。

一、命令按钮的属性：1、Name属性：2、Caption属性：3、Enabled属性：4、Left属性和T op属性：5、Height属性和Width属性：6、Default属性：设置为Ture时为缺省活动按钮（一个窗体只允许一个按钮为缺省活动按钮）按回车即相当于单击。

7、Cancel属性：设置为True时，按键即相当于单击，为缺省取消按钮。

（一个窗体也只能有一个按钮设置为缺省取消按钮）8、Visible属性：9、Value属性：（编程用）设为True 时相当于单击事件。

10、Style属性：0：表示无图象功能，按钮只能显示文字1：表示有图象功能，按钮表面可加载图片11、Picture属性：为按钮表面添加指定的图片。

12、DownPicture属性：在按钮按下时为按钮表面添加指定的图片。

13、DisabledPicture属性：当按钮无效时，为按钮表面添加指定的图片。

14、BackColor属性：15、ToolTipText属性：为按钮设置提示文本内容（鼠标指点时显示按钮功能提示）二、命令按钮的事件和方法：1、Click事件：注：命令按钮不支持双击事件2、MouseDown事件：3、MouseUp事件：4、Hide 方法：5、Show方法：第二篇：Vb操作excel的命令（范文模版）用VB操作Excel的办法[日期：2008-11-23]来源：作者：[字体：大中小] Private Sub Command3_Click()On Error GoTo err1Dim i As LongDim j As LongDim objExl As Excel.Application '声明对象变量Me.MousePointer = 11'改变鼠标样式Set objExl = New Excel.Application'初始化对象变量objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1 objExl.Workbooks.Add'增加一个工作薄objExl.Sheets(objExl.Sheets.Count).Name = “book1” '修改工作薄名称objExl.Sheets.Add , objExl.Sheets(“book1”)'增加第二个工作薄在第一个之后objExl.Sheets(objExl.Sheets.Count).Name = “book2”objExl.Sheets.Add , objExl.Sheets(“book2”)'增加第三个工作薄在第二个之后objExl.Sheets(objExl.Sheets.Count).Name = “book3”objExl.Sheets(“book1”).Select'选中工作薄For i = 1 To 50'循环写入数据For j = 1 To 5If i = 1 ThenobjExl.Selection.NumberFormatLocal = “@” '设置格式为文本objExl.Cells(i, j)= “ E ” & i & jElseobjExl.Cells(i, j)= i & jEnd IfNextNextobjExl.Rows(“1:1”).Select'选中第一行objExl.Selection.Font.Bold = True '设为粗体objExl.Selection.Font.Size = 24'设置字体大小objExl.Cells.EntireColumn.AutoFit '自动调整列宽objExl.ActiveWindow.SplitRow = 1 '拆分第一行objExl.ActiveWindow.SplitColumn = 0 '拆分列objExl.ActiveWindow.FreezePanes = True '固定拆分objExl.ActiveSheet.PageSetup.PrintTitleRows = “$1:$1” '设置打印固定行objExl.ActiveSheet.PageSetup.PrintTitleColumns = “"'打印标题objExl.ActiveSheet.PageSetup.RightFooter = ”打印时间: “ & _Format(Now, ”yyyy年mm月dd日hh:MM:ss“)objExl.ActiveWindow.View = xlPageBreakPreview'设置显示方式objExl.ActiveWindow.Zoom = 100'设置显示大小'给工作表加密码objExl.ActiveSheet.Protect ”123“, DrawingObjects:=True, _ Contents:=True, Scenarios:=TrueobjExl.Application.IgnoreRemoteRequests = FalseobjExl.Visible = True'使EXCEL可见objExl.Application.WindowState = xlMaximized'EXCEL的显示方式为最大化objExl.ActiveWindow.WindowState = xlMaximized'工作薄显示方式为最大化objExl.SheetsInNewWorkbook = 3'将默认新工作薄数量改回3个Set objExl = Nothing'清除对象Me.MousePointer = 0 '修改鼠标Exit Suberr1:objExl.SheetsInNewWorkbook = 3objExl.DisplayAlerts = False '关闭时不提示保存objExl.Quit'关闭EXCELobjExl.DisplayAlerts = True '关闭时提示保存Set objExl = NothingMe.MousePointer = 0 End Sub＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝全面控制 Excel首先创建Excel 对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application1)显示当前窗口：ExcelID.Visible := True;2)更改Excel 标题栏：ExcelID.Caption := '应用程序调用Microsoft Excel';3)添加新工作簿：ExcelID.WorkBooks.Add;4)打开已存在的工作簿：ExcelID.WorkBooks.Open('C:ExcelDemo.xls');5)设置第2个工作表为活动工作表：ExcelID.WorkSheets[2].Activate;或ExcelID.WorkSheets[ 'Sheet2' ].Activate;6)给单元格赋值：ExcelID.Cells[1,4].Value := '第一行第四列';7)设置指定列的宽度（单位：字符个数），以第一列为例：ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035;// 1厘米9)在第8行之前插入分页符：ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;10)在第8列之前删除分页符：ExcelID.ActiveSheet.Columns[4].PageBreak := 0;11)指定边框线宽度：ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;1-左2-右3-顶4-底5-斜()6-斜(/)12)清除第一行第四列单元格公式：ExcelID.ActiveSheet.Cells[1,4].ClearContents;13)设置第一行字体属性：ExcelID.ActiveSheet.Rows[1] := '隶书';ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;ExcelID.ActiveSheet.Rows[1].Font.Bold := True;ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;14)进行页面设置：a.页眉：ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示';b.页脚：ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页';c.页眉到顶端边距2cm：ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;d.页脚到底端边距3cm：ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;e.顶边距2cm：ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;f.底边距2cm：ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;g.左边距2cm：ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;h.右边距2cm：ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;i.页面水平居中：ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;j.页面垂直居中：ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;k.打印单元格网线：ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;15)拷贝操作：a.拷贝整个工作表：ed.Range.Copy;b.拷贝指定区域：ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;c.从A1位置开始粘贴：ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;d.从文件尾部开始粘贴：ExcelID.ActiveSheet.Range.PasteSpecial;16)插入一行或一列：a.ExcelID.ActiveSheet.Rows[2].Insert;b.ExcelID.ActiveSheet.Columns[1].Insert;17)删除一行或一列：a.ExcelID.ActiveSheet.Rows[2].Delete;b.ExcelID.ActiveSheet.Columns[1].Delete;18)打印预览工作表：ExcelID.ActiveSheet.PrintPreview;19)打印输出工作表：ExcelID.ActiveSheet.PrintOut;20)工作表保存：If not ExcelID.ActiveWorkBook.Saved thenExcelID.ActiveSheet.PrintPreviewEnd if21)工作表另存为：ExcelID.SaveAs('C:ExcelDemo1.xls');22)放弃存盘：ExcelID.ActiveWorkBook.Saved := True;23)关闭工作簿：ExcelID.WorkBooks.Close;24)退出 Excel：ExcelID.Quit;25)设置工作表密码: ExcelID.A ctiveSheet.Protect ”123“, DrawingObjects:=True, Contents:=True, Scenarios:=True26)EXCEL的显示方式为最大化ExcelID.Application.WindowState = xlMaximized27)工作薄显示方式为最大化ExcelID.ActiveWindow.WindowState = xlMaximized28)设置打开默认工作薄数量ExcelID.SheetsInNewWorkbook = 329)'关闭时是否提示保存(true 保存；false 不保存)ExcelID.DisplayAlerts = False30)设置拆分窗口,及固定行位置ExcelID.ActiveWindow.SplitRow = 1 ExcelID.ActiveWindow.FreezePanes = True31)设置打印时固定打印内容ExcelID.ActiveSheet.PageSetup.PrintTitleRows = ”$1:$1“32)设置打印标题ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = ”"33)设置显示方式(分页方式显示)ExcelID.ActiveWindow.View = xlPageBreakPreview34)设置显示比例ExcelID.ActiveWindow.Zoom = 10035)让Excel 响应 DDE 请求Ex.Application.IgnoreRemoteRequests = FalseVb操作excel的命令1．创建Excel对象eole=CRE ATEOBJECT(′Excel.application′)2．添加新工作簿eole.Workbooks.add3．设置第3个工作表为激活工作表eole.Worksheets(″sheet3″).Activate4．打开指定工作簿eole.Workbooks.Open(″c:templl.xls″)5．显示Excel窗口eole.visible=.t.6．更改Excel标题栏eole.Caption=″VFP应用程序调用Microsoft Excel″7．给单元格赋值eole.cells(1,4).value=XM(XM为数据库字段名)8．设置指定列的宽度(单位：字符个数)eole.ActiveSheet.Columns(1).ColumnWidth=59．设置指定行的高度(单位：磅)eole.ActiveSheet.Rows(1).RowHeight=1/0.035(设定行高为1厘米，1磅=0.035厘米)10．在第18行之前插入分页符eole.Worksheets(″Sheet1″).Rows(18).PageBreak=111．在第4列之前删除分页符eole.ActiveSheet.Columns(4).PageBreak=012．指定边框线宽度(Borders参数如下)ole.ActiveSheet.Range(″b3:d3″).Borders(2).Weight=313．设置四个边框线条的类型eole.ActiveSheet.Range(″b3:d3″).Borders(2).LineStyle=1(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)14．设置页眉eole.ActiveSheet.PageSetup.CenterHeader=″报表1″15．设置页脚eole.ActiveSheet.PageSetup.CenterFooter=″第＆P页″16．设置页眉到顶端边距为2厘米eole.ActiveSheet.PageSetup.HeaderMargin=2/0.03517．设置页脚到底边距为3厘米eole.ActiveSheet.PageSetup.FooterMargin=3/0.03518．设置顶边距为2厘米eole.ActiveSheet.PageSetup.T opMargin=2/0.03519．设置底边距为4厘米eole.ActiveSheet.PageSetup.BottomMargin=4/0.03520．设置左边距为2厘米veole.ActiveSheet.PageSetup.LeftMargin=2/0.03521．设置右边距为2厘米eole.ActiveSheet.PageSetup.RightMargin=2/0.03522．设置页面水平居中eole.ActiveSheet.PageSetup.CenterHorizontally=.t.23．设置页面垂直居中eole.ActiveSheet.PageSetup.CenterVertically=.t.24．设置页面纸张大小(1－窄行8511 39－宽行1411)eole.ActiveSheet.PageSetup.PaperSize=125．打印单元格网线eole.ActiveSheet.PageSetup.PrintGridlines=.t.26．拷贝整个工作表edRange.Copy27．拷贝指定区域eole.ActiveSheet.Range(″A1:E2″).Copy28．粘贴eole.WorkSheet(″Sheet2″).Range(″A1″).PasteSpecial29．在第2行之前插入一行eole.ActiveSheet.Rows(2).Insert30．在第2列之前插入一列eole.ActiveSheet.Columns(2).Insert31．设置字体eole.ActiveSheet.C ells(2,1)=″黑体″32．设置字体大小eole.ActiveSheet.Cells(1,1).Font.Size=2533．设置字体为斜体eole.ActiveSheet.Cells(1,1).Font.Italic=.t.34．设置整列字体为粗体eole.ActiveSheet.Columns(1).Font.Bold=.t.35．清除单元格公式eole.ActiveSheet.Cells(1,4).ClearContents36．打印预览工作表eole.ActiveSheet.PrintPreview37．打印输出工作表eole.ActiveSheet.PrintOut38．工作表另为eole.ActiveWorkbook.SaveAs(″c:temp22.xls″)39．放弃存盘eole.ActiveWorkbook.saved=.t.40．关闭工作簿eole.Workbooks.close41．退出Excel eole.quit第三篇：VB优质课教案《VB》公开课教案(2010-04-05 20:20:16)转载▼ 标签：教育时间：第十三周星期四第三节课授课人：朱国营地点：电脑实验1室班级：09计1 课题：第五章第三节——Circle（画圆）方法教学目的：通过简要说明画圆方法的格式，并通过完成练习使学生进一步掌握Circle方法的操作要点，以利于日后编制美观的程序界面。

VB教程：第四章-按钮文章来源：vb大世界-从本章开始我们将正式进入VB的编程世界，但这还仅仅是个开端，要编出功能强大的软件，还要学很多东西，那就要看以后的VB高级教程了，我也得努力学啊！按钮是我们在Windows操作见到最多的控件，它们有着各种各样的功能：“确认”、“取消”、“下一步”等等，这些都是按钮的表现，另外还有很多图形话的按钮，其实它们并没什么不同，所有的按钮都是通过单击（click）事件实现的，只不过是在外表不同罢了。

下面就让我们建立一个最简单的按钮，双击工具箱的CommandButton，将在窗体上建立一个形如图4－1的按钮，它的缺省名（Name属性）为Command1，我们可以把它改名为cmdExit，把Caption属性设为“退出”，然后双击，按钮填写代码：Private Sub cmdExit_Click()Unload MeEnd Sub按下F5或者工具条上的播放按钮，运行程序。

图4－2当你按下退出按钮的时候，就会自动退出程序，原因是当你单击按钮时激活了它的Click事件，执行“Unload Me”语句，使得窗体被卸载。

上面举了一个比较简单的例子，下面的例子稍微复杂些：新建窗体，控件布局如图4－3所示，包括一个Label控件，一个Text控件和两个按钮（Command1和Command2），（比较简单的程序我们都采用缺省名），对它们属性做如下修改：把使用Button1的Enabled属性设为False（假），是使程序在初始时，无法单击Command1。

按F5，运行程序，图4－4，复原按钮成为灰色，不可选。

当然现在程序还什么也不能做，下面我们在程序中添加代码：首先在General里声明全局变量：Dim StoreString As String '用来储存字符串※注意：为什么用全局变量？VB里每一个小过程都相当于一个程序，程序里的变量称为局部变量，是只能在程序内部使用的，而当程序调用结束后，由于从内存中被清除，所以变量储存的值也就消失了，这里的全局变量是用来在过程中传递字符串。

VB Mscomm控件基本介绍（一）一、MSComm控件的主要属性、事件1、MSComm的属性Commport：设置或返回串口号。

如设成1（默认值），表示对Com1进行操作。

Settings：以字符串的形式设置或返回串口通信参数。

包括串口通讯的比特率，奇偶校验，数据位长度、停止位等。

其默认值是“9600,N,8,1”，表示串口比特率是9600bit/s，不作奇偶校验，8位数据位，1个停止位。

Portopen：设置或返回串口状态。

值为True时打开串口，值为False时关闭串口。

InputMode：设置或返回接收数据的类型。

若值为0，则表示以文本形式读取；值为1，则表示以二进制形式读取。

Inputlen：设置或返回一次从接收缓冲区中读取字节数。

InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。

InBufferCount：设置或返回接收缓冲区中等待计算机接收的字符数。

当将其值设为0时，则输入寄存器将被清空。

Input：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读。

OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。

OutBufferCount：设置或返回发送缓冲区中等待计算机发送的字符数。

当将其值设为0时，则输出寄存器将被清空。

Output：向发送缓冲区发送数据，该属性设计时无效，运行时只读。

Rthreshold：该属性为一阀值。

当接收缓冲区中字符数达到该值时，MSComm控件设置Commevent属性为ComEvReceive，并产生OnComm事件。

用户可在OnComm事件处理程序中进行相应处理。

若Rthreshold属性设置为0，则不产生OnComm事件。

例如用户希望接收缓冲区中达到一个字符就接收一个字符，可将Rthreshold设置为1。

这样接收缓冲区中接收到一个字符，就产生一次OnComm事件。

Sthreshold：该属性亦为一阀值。

VB教程：命令按钮（CommandButton)4、命令按钮（Command Button)作用：用于开始、中断或结束一个按钮。

（1）常用属性Caption属性Style属性visible =false ' 按钮不可见enabled=true ' 按钮无效default =true ' 使按钮成为缺省的“活动按钮”，可用enter键选中cancel =true ' 使按钮成为缺省的“取消按钮”，可用esc键选中注意：在一个窗体中，只能有一个命令按钮可以设为缺省的“活动按钮”，也只能有一个命令按钮可以设为缺省的“取消按钮”。

Picture '加载一幅图片有时．我们可能还需要在命令按钮上显示某个图案以使界面显得活泼生动，要制作这样的按钮，需要设置它的两个属性；styLe属性和Picture属性。

我们先将该命令按钮的style属性设置为1(GraPhical)，再通过其Picture属性加载一幅图片即可，如图显示了一个带图案的命令按钮。

（2）主要事件最主要的事件是单击（Click）事件。

（3）常用方法Print方法：用于在窗体、图片框和打印机上显示文本。

其语法格式为：object.Print [outputlist]Cls方法：用来清除运行时窗体或图片框所生成的图形和文本。

其语法格式为：object.ClsMove方法：用于移动窗体或控件，并可以改变其尺寸大小，其语法格式为：object.Move left, top, width, height其中：object：可选项。

表示移动窗体或控件。

一个对象表达式，其值为“应用于”列表中的一个对象。

如果省略object，带有焦点的窗体缺省为 object。

Left：必需项。

指示 object 左边的水平坐标 (x-轴)。

Top：可选项。

指示 object 顶边的垂直坐标 (y-轴)。

Width：可选项。

指示 object 新的宽度。

AC工作室Commandbutton是vb中很常用的一个控件，下面来对这个控件的属性进行详细的了解。

1．名称这个属性将决定按钮在编程代码中的名字，如果改为cmdb1，则双击按钮后出现的代码为：Private Sub cmdb1_Click()End Sub2.Appearance:返回或设置一个对象上的控件在运行时的绘图风格，3D或者是平面。

Appearance 属性的设置值是：3. Backcolor：返回或设置一个对象的背景颜色；当tyle属性设置为0-Standard时，不会显示任何颜色，因为command1button的背景被禁用了，这个属性必须在style属性设置为1-Graphical是才能发挥作用。

如下图Style已经设置为1-Graphical4.caption返回或设置对象的标题栏中或图标下面的文本，如果将command1button的caption改为“按钮1”，则会按钮显示出来的名字是“按钮1”。

5．Causesvalidation：获取或设置一个值，该值指示在单击Button控件时是否执行验证。

6.Default返回或设置一个值，以确定哪一个CommandButton控件是窗体的缺省命令按钮。

简单点说就是确定这个按钮是否能由Enter键控制，即按下Enter键等于按下了这个按钮。

且一个窗体中只能有一个按钮可以将这个属性设置为ture。

7.disabledpicture返回或设置一个对图片的引用，该图片在控件无效时显示在控件中。

即当按钮为Enabled 属性被设置为False 时显示在按钮上面的图片。

当tyle属性设置为0-Standard时，不会显示任何颜色，因为command1button的背景被禁用了，这个属性必须在style属性设置为1-Graphical是才能发挥作用。

8. DownPicture返回或设置一个对图片的引用，该图片在控件被单击并处于压下状态时显示在控件中。

VB常用控件的方法详解1.按钮控件（Button）：- Click事件：当用户单击按钮时触发的事件。

- Text属性：按钮上显示的文本。

- Enabled属性：是否启用按钮。

- Visible属性：按钮是否可见。

- BackColor属性：按钮的背景颜色。

- ForeColor属性：按钮的前景颜色。

2.文本框控件（TextBox）：- Text属性：文本框中显示的文本内容。

- ReadOnly属性：文本框是否为只读状态。

- PasswordChar属性：设置密码框中字符显示的方式。

- MaxLength属性：文本框最大可输入的字符数限制。

4.列表框控件（ListBox）：- Items属性：列表框中的项，可以通过Items属性进行添加、删除、修改操作。

- SelectedIndex属性：获取或设置当前选择项的索引。

- SelectedItem属性：获取或设置当前选择项的文本值。

- Items属性：组合框中的选项，可以通过Items属性进行添加、删除、修改操作。

- SelectedIndex属性：获取或设置当前选择项的索引。

- SelectedItem属性：获取或设置当前选择项的文本值。

6.复选框控件（CheckBox）：- Checked属性：表示复选框是否被选中。

- Text属性：复选框显示的文本。

7.单选按钮控件（RadioButton）：- Checked属性：表示单选按钮是否被选中。

- Text属性：单选按钮显示的文本。

8.图像框控件（PictureBox）：- Image属性：设置图像框中显示的图像。

- SizeMode属性：设置图像显示的方式（自适应、拉伸等）。

9.进度条控件（ProgressBar）：- Value属性：设置或获取进度条的当前值。

- Maximum属性：设置进度条的最大值。

- Minimum属性：设置进度条的最小值。

10.日期选择框控件（DateTimePicker）：- Value属性：设置或获取选择的日期时间值。

VB常用控件介绍VB(Virtual Basic)是一种面向对象的编程语言，常用于开发各种图形用户界面(GUI)应用程序。

在VB中，控件是构成用户界面的基本元素，通过控件可以实现用户与程序的交互。

下面是一些常用的VB控件的介绍。

1. 按钮控件(Button)：按钮是VB中最常用的控件之一，用于触发一些事件或执行一些动作。

通过设置按钮的文字、大小、位置和事件处理程序，可以实现各种用户交互功能。

3. 文本框控件(TextBox)：文本框用于接收用户的输入，并可以将输入的文本保存到变量中。

可以设置文本框的大小、位置、边框样式等属性，并可以通过事件处理程序响应用户输入的变化。

4. 列表框控件(ListBox)：列表框用于显示一组选项，并允许用户从中选择一个或多个选项。

可以通过添加和移除选项，以及设置列表框的大小、位置、滚动条等属性来定制列表框的外观和功能。

6. 复选框控件(CheckBox)：复选框用于表示一个状态，可以被选中或取消选中。

常用于表示一个二进制选项，比如启用/禁用一些功能。

可以设置复选框的大小、位置、文本等属性，并可以通过事件处理程序获取用户的选择。

7. 单选按钮控件(RadioButton)：单选按钮用于表示一组互斥的选项，用户只能选择其中的一个。

常用于表示一个多项选择，比如选择性别。

可以设置单选按钮的大小、位置、文本等属性，并可以通过事件处理程序获取用户的选择。

8. 进度条控件(ProgressBar)：进度条用于显示任务的进度，可以根据任务的完成情况来改变进度条的长度和显示。

可以通过设置进度条的最小值、最大值、当前值等属性，以及处理进度改变的事件来定制进度条的功能。

9. 图像框控件(PictureBox)：图像框用于显示图像或图表，可以加载本地或网络上的图像文件，并可以设置图像框的大小、位置等属性。

可以通过处理鼠标点击、鼠标移动等事件来实现与图像相关的交互功能。

10. 文件对话框控件(FileDialog)：文件对话框用于让用户选择文件或保存文件，可以通过设置对话框的类型、过滤条件、默认目录等属性来限制用户的选择范围，并可以通过事件处理程序获取用户选择的文件路径。

VB常用控件介绍VB 常用控件介绍VB中的控件通常分为三种类型：（1）标准控件：（2）ActiveX控件:（3）可插入的对象:（一）窗体1.窗体的属性（1）Name 属性：（2）Appearance属性（3）AutoRedraw属性：（4）BackColor属性和ForeColor属性（5）BorderStyle属性：（6）Caption属性（7）ClipControls属性（8）ControlBox属性：控制菜单（9）Enabled属性（10）Height、Width、Left和Top属性（11）Font属性（12）HelpContextID属性（13）Icon属性：设置窗体图标（14）KeyPreview属性：用于设置窗体是否能捕获键盘事件并做出响应。

（15）MDIChild属性（16）Moveable属性（17）Picture属性（18）StartupPosition属性：决定窗体启动后出现在屏幕上的位置，运行时不能使用。

（19）Visible属性（20）WindowState属性：该属性设置一个窗体启动后的大小状态。

2.窗体的事件（1）Load 事件(重点)（2）Activate事件（3）Resize事件（4）Click事件（5）DblClick事件（6）Unload 事件：当窗体从内存卸载时发生[参数]：Cancel 一个整数，表示是否放弃卸载。

如果Cancel为 0，则窗体被卸载，若设置为任何一个非零的值可放弃卸载。

如：Private Sub Form_Unload(Cancel As Integer)Cancel = True ‘非0End Sub3.窗体的方法（1）Show方法（2）Hide方法（3）Move方法（4）Print方法：在窗体和图片框上显示文字，也可在打印机(Printer)上输出信息。

语法格式：[<对象名称>.]Print [<表达式列表>] [{,|;}]说明：①<对象名称>可以是窗体、图片框或打印机。

vb的控件分类VB（Visual Basic）是一种常用的程序设计语言，它提供了丰富的控件供开发人员使用。

控件是VB程序中的重要组成部分，用于创建用户界面和实现各种功能。

下面将根据控件的分类，为大家介绍一些常用的VB控件及其功能。

一、基本控件1. 标签（Label）控件：用于显示文本信息，如标题、说明等。

2. 文本框（TextBox）控件：用于接收和显示用户输入的文本信息。

3. 按钮（Button）控件：用于触发特定的操作，如提交表单、保存数据等。

4. 复选框（CheckBox）控件：用于提供多个选项供用户选择，可以单选或多选。

5. 单选按钮（RadioButton）控件：用于提供多个互斥的选项供用户选择，只能单选。

6. 列表框（ListBox）控件：用于显示多个选项供用户选择，可以单选或多选。

7. 组合框（ComboBox）控件：结合了文本框和列表框的功能，用户可以从下拉列表中选择选项，也可以手动输入。

二、容器控件1. 面板（Panel）控件：用于创建容器，可以将其他控件组合在一起，并自由调整它们的位置和大小。

2. 分组框（GroupBox）控件：用于将相关的控件分组显示，提高用户界面的可读性。

3. 标签页（TabPage）控件：用于创建多个标签页，每个标签页可以包含不同的控件，方便用户切换查看内容。

4. 树形视图（TreeView）控件：用于以树形结构展示数据，用户可以展开或折叠节点，方便浏览和管理数据。

三、数据控件1. 数据表格（DataGridView）控件：用于显示和编辑数据表格，支持排序、筛选和分页等功能。

2. 数据绑定器（DataBinder）控件：用于将数据源与控件进行绑定，实现数据的显示和同步更新。

3. 数据导航器（DataNavigator）控件：用于在数据表格中导航记录，包括移动到第一条、上一条、下一条和最后一条记录等操作。

4. 数据输入验证器（DataValidator）控件：用于验证用户输入的数据是否符合要求，可以设置各种验证规则和错误提示信息。

VBA 中的命令按钮的使用方法与实例VBA（Visual Basic for Applications）是一种用于自动化任务和定制应用程序的编程语言。

其中的命令按钮是一种常见的用户界面元素，它允许用户通过单击按钮来执行特定的功能或命令。

在本文中，我们将探讨 VBA 中命令按钮的使用方法与实例。

在 VBA 中使用命令按钮之前，我们首先需要在用户界面（如 Excel 或 Word）中添加一个按钮控件。

您可以通过以下步骤完成此操作：1. 打开您想要添加按钮的应用程序（如 Excel 或 Word）。

2. 在工具栏中选择"开发工具" 选项卡（如果没有，则需要在设置中启用它）。

3. 在 "开发工具" 选项卡中，点击 "插入"，然后选择 "按钮" 控件。

4. 在程序界面中按住鼠标左键并拖动光标，绘制按钮的大小和位置。

5. 在绘制按钮的过程中，会自动打开 "分配宏" 窗口。

您可以选择现有的宏或创建新的宏来与按钮关联，以实现特定的功能。

现在，让我们深入了解 VBA 中命令按钮的使用方法与实例。

以下是几个常见的例子：1. 显示消息框：在按钮的点击事件中，您可以使用VBA 的MsgBox 函数来显示消息框。

例如，下面的代码将显示一个简单的消息框，提示用户点击了按钮：```vbaSub Button_Click()MsgBox "按钮被点击了！"End Sub```2. 打开文件对话框：您可以使用 VBA 的 Application.FileDialog 对象来创建一个文件对话框，以便用户选择文件。

以下是一个示例代码：```vbaSub Button_Click()Dim filePath As VariantWith Application.FileDialog(msoFileDialogFilePicker).Title = "选择文件".ShowIf .SelectedItems.Count > 0 ThenfilePath = .SelectedItems(1)MsgBox "您选择的文件是：" & filePathElseMsgBox "您取消了选择文件。

使用 CommandButton 控件命令按钮控件被用来启动、中断或结束一个进程。

单击它时将调用已写入Click 事件过程中的命令。

大多数 Visual Basic 应用程序中都有命令按钮，用户可以单击按钮执行操作。

单击时，按钮不仅能执行相应的操作，而且看起来就象是被按下和松开一样，因此有时称其为下压按钮。

详细信息关于 CommandButton 控件的简单示例，请参阅第三章，“窗体、控件和菜单”中的“单击按钮执行操作”。

向窗体添加命令按钮在应用程序中很可能要使用一个或多个命令按钮。

就象在其它控件绘制按钮那样,在窗体上添加命令按钮。

可用鼠标调整命令按钮的大小，也可通过设置 Height 和 Width 属性进行调整。

设置标题可用 Caption 属性改变命令按钮上显示的文本。

设计时，可在控件的“属性”窗口中设置此属性。

在设计时设置 Caption 属性后将动态更新按钮文本。

Caption 属性最多包含 255 个字符。

若标题超过了命令按钮的宽度，则会折到下一行。

但是，如果控件无法容纳其全部长度，则标题会被剪切。

可以通过设置 Font 属性改变在命令按钮上显示的字体。

创建键盘快捷方式可通过 Caption 属性创建命令按钮的访问键快捷方式，为此，只需在作为访问键的字母前添加一个连字符 (&)。

例如，要为标题 "Print" 创建访问键，应在字母 "P" 前添加连字符，于是得到 "&Print"。

运行时，字母 "P" 将带下划线，同时按 ALT+P 键就可选定命令按钮。

注意如果不创建访问键，而又要使标题中包含连字符但不创建访问键，应添加两个连字符 (&&)。

这样一来，在标题中就只显示一个连字符而不显示下划线。

指定 Default 和 Cancel 属性在每个窗体上部可选择一个命令按钮作为缺省的命令按钮，也就是说，不管窗体上的哪个控件有焦点，只要用户按 ENTER 键，就已单击此缺省按钮。

VisualBasic自学教材(常用控件的属性)——1.05、命令按钮(CommandButton)控件的常用属性杜勇属性(Name)AppearanceBackColor命令按钮的名称是否用立体效果绘制,取值为：0平面1 3D(立体)背景颜色,可从弹出的调色板选择。

用于设定默认的取消按钮(指出命令按钮是否为窗体的取消按钮)。

取值为：True不管窗体上的哪个控件有焦点,按下"Esc"键后，就相当单击该默认按钮False否命令按钮的标题。

该属性最多包含255个字符。

如果其内容超过了命令按钮的宽度则会转到下一行,如果其内容超过255个字符,则标题的超出部分被截掉。

该属性也可以为命令按钮创建快捷方式，其方法是在做为的快捷字母前加一个连字符(&)说明CancelCaption该控件获得焦点时,失去焦点的控件的Validate 事件是否发生。

取值为：CauseValidationTrue发生False不发生DefauleDisablePictureDownPictureDragIconDragModeEnabled设置该命令按钮是否为窗体默认的按钮。

取值为：True用户按下Enter键,就相当单击该默认按钮False否Style=1时,此按钮在不可用状态时显示的图片Style=1时,此按钮在被按下状态时显示的图片该对象在拖动过程中鼠标的图标该对象的拖动模式,取值为：0 Manual(手动)1 Automatic(自动)用于设定是或对事件产生响应,取值为：True可用False不可用,在执行程序时,该对象用灰色显示,并且不响应任何事件FontHeightHelpContextIDIndexLeftMaskColorMouseIconMousePointer字型,可从弹出的对话框选择字体,大小和风格命令按钮的高度指定一个对象的缺省帮助文件上下文标识符在对象数组中的编号距容器左边框的距离Style=1时,获得或设置按钮的图片要"屏蔽"(它是,透明的)的颜色。