vb神童教程第二章第四节——CommandButton 控件

vb中各个控件的作用在VB（Visual Basic）中，控件是应用程序的可视化元素，用于与用户进行交互。

每个控件都有不同的功能和作用，下面我将介绍一些常见VB控件的作用：1. Label控件：用于显示静态文本或说明信息。

Label控件通常用于显示不需要用户输入或交互的文本内容。

2. TextBox控件：用于接收用户输入的文本数据。

用户可以在TextBox控件中输入文本，以便应用程序对其进行处理和使用。

3. Button控件：用于触发特定操作或执行特定功能的按钮。

当用户点击Button 控件时，相应的事件将被触发，从而执行相应的代码。

4. ComboBox控件：提供了一个下拉列表，用户可以从中选择一个选项。

ComboBox控件通常用于提供限定的选择范围，让用户从中选择一个选项。

5. ListBox控件：提供了一个列表，用户可以从中选择一个或多个选项。

与ComboBox控件不同，用户可以直接在列表中进行选择。

6. CheckBox控件：提供了一个选择框，用户可以在多个选项中进行选择。

CheckBox控件通常用于表示二进制的选择，例如勾选或取消勾选一个选项。

7. RadioButton控件：提供了一组互斥的选项，只能选择其中的一个选项。

RadioButton控件通常用于表示互斥的选择，例如选择性别男或女。

8. PictureBox控件：用于显示图像、图标或其他图形。

PictureBox控件可以加载图像文件，并在应用程序中显示出来。

9. Timer控件：计时器控件，可用于在应用程序中生成定时事件。

通过设置定时器的时间间隔和相应事件的处理程序，可以实现定时执行某些操作的功能。

10. Menu控件：提供了一个菜单栏，用于组织和呈现应用程序的不同功能和选项。

用户可以通过点击菜单项来执行相应的功能。

以上是一些常见的VB控件及其作用。

掌握这些控件的使用方法，可以帮助开发人员创建功能完善、交互性强的VB应用程序。

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方法的操作要点，以利于日后编制美观的程序界面。

vba-commandbutton,textbox,label最常⽤⽅法与属性以及个别事件CommandButton 常⽤属性+⽅法记录：1. mandButton1.ControlTipText = "" '按钮的提⽰，就是⿏标移过去，会显⽰提⽰2. mandButton1.Picture '按钮的图⽚3. mandButton1.PicturePosition = fmPicturePositionCenter '按钮上图⽚，⽂字的位置4. mandButton1.Visible '按钮的显⽰属性5. mandButton1.Accelerator = "F" '按钮的热键，此时按alt + F 则可执⾏6. mandButton1.Enabled = False '设置按钮不能⽤，但是可见7. mandButton1.Cancel = True '按esc 就可以退出8. mandButton1.Default = True '按 enter时就可以执⾏9. Me.Tag = 100 '临时存放的值，可以当作⼀个标识。

⽐如说100，就可以通过me.tag 给取出来10. For Each X In Me.Controls '可以在窗体上的所有控件间循环11. '⼀个按钮可以执⾏多个程序，⽅法：⽤caption来if判断然后跟不同的代码Label 常⽤属性+⽅法记录：1. bel1.AutoSize = True '⾃动调整⼤⼩适应⽂字数量2. bel1.BackStyle = fmBackStyleOpaque '背景透明3. bel1.TextAlign = fmTextAlignCenter '⽂字的对齐⽅式，居中对齐4. bel1.WordWrap = True '可以⾃动换⾏TextBox 常⽤属性+⽅法记录：1. Me.TextBox1.MultiLine = True '⽂本框多选显⽰2. Me.TextBox1.TextAlign = fmTextAlignCenter '⽂本框的对齐⽅式3. Me.TextBox1.PasswordChar = "*" '设置⽂本框显⽰，显⽰特殊字符替换原字符4. Me.TextBox1.ScrollBars = fmScrollBarsBoth '设置⽂本框的滚动条，这个表现⽔平和垂直都有5. Me.TextBox1.EnterKeyBehavior = True '为真时能强制换⾏，按回车就可以转到下⼀⾏， _6. 只有在 multiline为true时才能⽤7. '若在代码中时，可以⽤chr(10)代替 enter8. Me.TextBox1.MaxLength = 5 '当你输⼊到5个字符时，⾃动跳转到下⼀个控件(按TAB顺序)9. Me.TextBox1.Locked = True '锁定，显⽰正常，可以选择，但不能编辑10. Me.TextBox1.DragBehavior = fmDragBehaviorDisabled '设置⽂本框⾥的⽂本是否可以拖动复制粘贴11. Me.TextBox1.LineCount '获得⽂本框的⾏数12. Me.TextBox1.SelLength '获得⽂本框选取的⽂本的长度13. Me.TextBox1.SelText '锋利⽂本框中选择的⽂本14. Me.TextBox1.SetFocus '当窗体出现时，将光标⾃动落到⽂本框中Private Sub TextBox1_AfterUpdate()'离开⽂本框时，且⽂本发⽣了改变，才运⾏这个程序End SubPrivate Sub TextBox1_Enter()'光标进⼊⽂本框时触发End SubPrivate Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)'光标离开⽂本框时触发If Me.TextBox1.Text = "" ThenCancel = TrueMsgBox "你没有输⼊内容，不能跳过"End IfEnd SubPrivate Sub UserForm_Initialize()'窗体初始化End SubPrivate Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)'KeyCode 键盘上的按键代码,唯⼀的'Shift 表⽰的有三个键 ctrl shift altIf KeyCode = 65 And Shift = 2 Then MsgBox "你同时按下了ctrl+A"End SubPrivate Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)'UserForm_KeyPress 这个不能捕获上下左右键。

一起学VB——007 三个最常用控件Label、Comamnd、Text本节课程，我们一起来学习VB中被使用次数最多的三个控件。

分别是标签Label控件、文本框TextBox 控件以及命令按钮CommandButton控件。

这几个控件的难度不高，但是必须得掌握，在以后的实操题中，会经常用到。

一、Label控件Label控件是标签控件，可以用来显示不能被用户直接改变的文本信息，可以通过编辑代码来改变Label控件显示的文本信息，用于提示用户。

1.1 Label控件常用属性1.1.1 AutoSize属性AutoSize属性是boolean类型，当该属性设置为True时，Label标签的大小将会自动改变以适应文本内容。

默认值为False，不自动适应。

1.1.2 Caption属性Caption属性值即为Label标签控件在应用界面显示的文本内容。

我们使用最多的就是这个属性。

二、TextBox控件TextBox控件被称为文本框控件，可以作为用户与计算机交互数据的控件，用户在文本框输入数据，计算机接收数据，或者计算机输出数据到文本框中，显示给用户。

是一个非常有用的控件。

2.1 TextBox文本框控件的常用属性2.1.1 Locked属性Locked属性返回或设置一个值以指定控件是否可被编辑。

当Locked属性被设置为True时，文本框将不再被允许编辑，但是可以复制文本框中的内容。

该属性默认值为False，文本框可以正常编辑。

2.1.2 MaxLength和MinLength属性这两个属性可以设置，文本框内允许输入的最大长度和最小长度。

默认情况下，未被设置，可以输入任意长度的文本。

但是不能超过文本框内存上限值32KB。

2.1.3 MultiLine属性MultiLine属性返回或设置一个值，决定文本框能否接受和显示多行文本内容。

默认值为False，不显示多行文本。

2.1.4 PasswordChar属性返回或设置一个值，使得所输入的字符被该值所替换，仅替换显示效果。

vb神童教程：跟我来学VB学习各种高级外挂制作技术，马上去百度搜索"魔鬼作坊"，点击第一个站进入，快速成为做挂达人。

VB的故事话说二十世纪七十年代有一对好朋友，一个叫比尔（Bill），一个叫鲍尔（Paul）。

他们经常在一起玩游戏。

起初是玩别人的游戏，但玩来玩去觉得不过瘾，于是发明了一种语言，叫做Basic，自己来编写游戏。

碰巧的是，个人电脑在此时飞速发展起来，很多厂家对这种语言很感兴趣，于是这对朋友商量着成立一个公司专门出售Basic。

讲到这里，大家一定猜到他们是谁了吧？没错，这个Bill就是比尔盖茨，这个公司就是微软；鲍尔（Paul Allen）后来虽然离开了微软，但同样组建了自己的实业公司。

Basic正是微软公司售出的第一套软件。

Basic发展到今天已经有很多版本，如GW-Basic、QuickBasic、QBasic、Visual Basic，等等，其中，Visual Basic是最容易学习与应用的程序语言之一。

虽然最容易学习与使用，但它的功能却非常强大，很多应用程序都是用它编写出来的。

不是个个都能成为比尔盖茨，但你想知道天天使用的Windows的诸多功能是如何实现的吗？你想要编写自己的应用程序吗？那么，请跟我来吧，进入我们的VB神童教程之旅。

学习思路曾经下过很多决心自学VB。

但每次看到一行行枯燥的程序代码眼皮不自觉地就要打架。

后来几乎是“头悬梁，锥刺股”才得入门。

现在想来，这种入门大可不必。

严谨求实的态度是非常正确的，但既然面对初学者，也许换一种思路更贴切。

少一些隐晦，多一些直观；少一些专业术语，多一些例子。

传统的教程，多从VB的发展谈起，然后是什么编程环境、数据类型、变量、常量、函数，等等。

我们可不可以换一种思路，让大家直接就可以编写出简单的应用程序，在熟悉了大部分操作并激发出了兴趣后，再去探讨一些比较抽象的东西呢？结果就有了我们的《VB神童教程》。

在这个教程中，我们既是讲述者，也是跟大家一样的初学者，我们按着一种比较容易的方式来共同学习。

在 Visual Basic 操作界面中，CommandButton（命令按钮）控件所代表的图标如图一：图一CommandButton 控件在程序中主要作为按钮进行使用。

默认的名称为 CommandX（X为 1、2、3，等等），命名规则为 CmdX（X为用户自定义的名字，如 CmdCopy、CmdPaste ，等等）。

一、CommandButton 的主要属性：1、Cancel（取消）属性：当一个按钮的 Cancel 属性设置为 True 时，按 ESC 键与单击此命令按钮的作用相同，因此，这个命令按钮被称为取消按钮。

在一个窗体中，只允许一个命令按钮的 Cancel 属性为 True 。

如图二：图二2、Default（默认）属性：当一个按钮的 Default 属性设置为 True 时，按回车键与单击此命令按钮的作用相同，因此，这个命令按钮被称为默认按钮。

与 Cancel 的设置一样，在一个窗体中，只允许一个命令按钮的 Default 属性设置为True ，如图三：3、Caption（标题）属性：跟其他控件的 Caption 属性一样，都用来显示控件标题的属性。

这里要强调的是，作为按钮控件，用户可以给按钮控件的 Caption 指定快捷方式。

方法是在按钮 Caption 属性中欲作为快捷键的字母前加上一个“&” 符号，程序运行时，该字母的下面会自带一条下划线，同时按下 Alt 键和带有下划线的字母，功效相当于用鼠标点击该按钮。

如图四：图四4、Enabled（可用）属性：本属性决定了控件是否可用的问题。

当值为 False ，按钮在程序运行时呈灰色，不能响应用户的鼠标动作；只有当值为 True ，按钮才能使用。

本属性可以在设置界面时予以指定，如图五：图五也可以在程序中修改，代码如下：按钮控件名称.Enabled = True/False例一：两个命令按钮，按钮一（CmdEnable）初始状态为可用，按钮二（CmdFalse）初始状态不可用。

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 新的宽度。

MSComm控件使用详解MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。

MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi等语言中均可使用。

Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件，它为应用程序提供了通过串行接口收发数据的简便方法。

具体的来说，它提供了两种处理通信问题的方法：一是事件驱动(Event－driven)方法，一是查询法。

1.MSComm控件两种处理通讯的方式MSComm控件提供下列两种处理通讯的方式：事件驱动方式和查询方式。

1.1 事件驱动方式事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。

在许多情况下，在事件发生时需要得到通知，例如，在串口接收缓冲区中有字符，或者 Carrier Detect (CD) 或 Request To Send (RTS) 线上一个字符到达或一个变化发生时。

在这些情况下，可以利用 MSComm 控件的 OnComm 事件捕获并处理这些通讯事件。

OnComm 事件还可以检查和处理通讯错误。

所有通讯事件和通讯错误的列表，参阅 CommEvent 属性。

在编程过程中，就可以在OnComm事件处理函数中加入自己的处理代码。

这种方法的优点是程序响应及时，可靠性高。

每个MSComm 控件对应着一个串行端口。

如果应用程序需要访问多个串行端口，必须使用多个 MSComm 控件。

1.2 查询方式查询方式实质上还是事件驱动，但在有些情况下，这种方式显得更为便捷。

在程序的每个关键功能之后，可以通过检查 CommEvent 属性的值来查询事件和错误。

如果应用程序较小，并且是自保持的，这种方法可能是更可取的。

例如，如果写一个简单的电话拨号程序，则没有必要对每接收一个字符都产生事件，因为唯一等待接收的字符是调制解调器的“确定”响应。

第 6 章 VB 串口通信程序设计典型实例利用 VB 开发串口通信程序既可以使用 MSComm 控件也可以调用 Windows API 函数实 现。

不过，只要 MSComm 控件可以被选用，我们推荐选择此控件实现，因为 MSComm 控件 的功能和 API 调用一样强，甚至比它还好且使用起来更加简单。

在本章提供的串口通信程序设计中，除了 PC 与 PC 串口通信外，PC 与单片机、PC 与智 能仪表、PC 与 PLC、PC 与 GSM 短信模块等串口通信任务的实现均采用 MSComm 控件。

6.1 PC 与 PC 串口通信程序设计当两台串口设备通信距离较近时，可以直接连接，最简单的情况，在通信中只需 3 根线 （发送线、接收线、信号地线）便可实现全双工异步串行通信。

本设计通过两台 PC 串口 3 线连接，介绍了利用 API 函数和 MSComm 控件设计串口通 信程序的方法，包括字符与文件的发送与接收。

6.1.1 PC 与 PC 串口通信程序设计目的（1）掌握 PC 与 PC 串口通信的线路连接方法。

（2）利用 MSComm 控件和 API 函数实现 PC 与 PC 串口通信的程序设计方法。

6.1.2 PC 与 PC 串口通信程序设计用软、硬件本设计用到的硬件和软件清单如表 6-1 所示。

表 6-1 序 1 2 3 号 PC 或 IPC 串口通信线（三线制） Visual Basic 6.0 设计用软、硬件 名 称 数 2 1 1 量6.1.3 PC 与 PC 串口通信程序硬件线路图线路说明，在计算机通电前，按图 6-1 所示将两台 PC 通过串口线连接起来：计算机 A 串口 COM1 端口的 TXD 与计算机 B 串口 COM1 端口的 RXD 相连，计算机 A 串口 COM1 端 口的 RXD 与计算机 B 串口 COM1 端口的 TXD 相连，计算机 A 串口 COM1 端口的 GND 与 计算机 B 串口 COM1 端口的 GND 相连。

VB常用控件的方法详解.txt3努力奋斗，天空依旧美丽，梦想仍然纯真，放飞自我，勇敢地飞翔于梦想的天空，相信自己一定做得更好。

4苦忆旧伤泪自落，欣望梦愿笑开颜。

5懦弱的人害怕孤独，理智的人懂得享受孤独VB常用控件的方法详解BASIC是属于高级程序语言的一种，英文名称的全名是"Beginner's All-Purpose Symbolic Instruction Code"，取其首字字母简称"BASIC"，就名称的含意来看，是「适用于初学者的多功能符号指令码」，是一种在计算机发展史上应用最为广泛的程序语言。

微软公司也在MS-DOS时代即推出Quick BASIC，在Windows开始流行的时候，微软公司推出Visual Basic for Windows成为Windows作业环境一枝独秀的易学易用程序语言。

Visual Basic是开发Microsoft Windows 应用程序的最快方法。

不论是对Microsoft Windows 应用程序的专业开发者还是初学者来说，Visual Basic 都是一套不可多得的快速开发应用程序。

它提供的控件可以轻松的"画"出应用程序的友好界面，使软件的开发工作不再枯燥无味。

在VisualBasic语言中，控件是用户界面的基本要素，是进行可视化程序设计的重要基础，它不仅关系到界面是否友好，还直接关系到程序的运行速度以及整个程序的好坏。

每个控件都具有它的属性、方法和事件，要开发一个好的程序，不仅需要掌握控件的属性和事件，也要掌握它的方法。

控件具有很多相同的方法，各个控件也有其特有的一些方法。

VisualBasic中的控件分为两种，即标准控件（或内部控件）和ActiveX控件。

内部控件是工具箱中的"常驻"控件，始终出现在工具箱里，而ActiveX控件是扩展名为.ocx的文件（在Windows\System文件夹里），它是根据变成需要添加到工具箱里的。

VisualBasic自学教材(常用控件的属性)——1.05、命令按钮(CommandButto n)控件的常用属性作者：杜勇Font字型,可从弹出的对话框选择字体,大小和风格Height命令按钮的高度HelpContextID指定一个对象的缺省帮助文件上下文标识符Index在对象数组中的编号Left距容器左边框的距离MaskColor Style=1时,获得或设置按钮的图片要"屏蔽"(它是,透明的) 的颜色。

可从弹出的调色板选择。

MouseIcon MousePointer=99时,设定一个自定义的鼠标图标MousePointerOLEDropMode 获得或设置该对象是否能作为一个OLE放下目标,取值为：0 None(无)1 Manual(手动)Picture Style=1时,设置此对象上的图片RightToLeft 文本书写是否自左向右。

取值为：TrueFalse 自右向左Style 设置对象的外观形式, 取值为：0 Standard(标准, 标准风格)1 Graphical(图形,带有自定义图片),此时Picture,Disab ledPicture和DownPicture属性起作用TabIndex 获得或设置此对象在父窗体的编号(父窗体中对象响应Tab 键的顺序)TabStop 设置是否可以用"Tab"键选取此对象。

取值为：True 可以False 不可以Tag存储程序所需的附加数据ToolTipText设置该对象的提示行Top距容器顶部边框的距离UseMaskColor Style=1时,获得或设置一个值,决定是否将MaskColor属性中赋值的颜色用于"屏蔽"。

(即, 用于创建透明区。

)取值为：TrueFalse友情提示：范文可能无法思考和涵盖全面，供参考!最好找专业人士起草或审核后使用，感谢您的下载！。

VBde基础教程 一、打开程序： 点击桌面上的 Visual Basic 图标，在弹出的如图一的窗口中选择“创建标准 EXE”按 钮。

图一 确定后的状态如图二 图二 这就是创建了一个新的“标准 EXE”文件了。

二、工作界面简介： 默认的 VB 工作界面由标题栏（1）、菜单栏（2）、工具栏（3）、工具箱面板（4）、程 序设计区（5）、项目窗口（6）、属性窗口（7）、布局窗口（8）组成，至于它们具体有什么 作用，我们将在以后的实例学习中接触，这里就不予以说明。

b5E2RGbCAP 三、编写我的第一个应用程序： ＜1＞、应用程序要产生的效果： 创建的应用程序要有什么样的功能？这是开发每一个应用程序必须最先想到的。

我们的第一个应用程序非常简单，使用者只需点击程序上的一个按钮，程序界面上就会 显现“跟我来学 VB 神童教程”字样。

p1EanqFDPw ＜2＞、开发思路： 根据应用程序要实现的功能，那么我们至少需要制作一个按钮、一个程序界面，为了让 应用程序更规范，我们还需要创建一个用来显示“跟我来学 VB 神童教程”字样的容器。

＜ 3＞、具体制作过程：DXDiTa9E3d 1、创建一个新的“标准 EXE”文件，如第一步所做。

需要指出的是，这个以 Form1 为标题栏的程序界面就是我们需要的“程序界面”，也是 用户首先看到的对象，所以尽可能将其做得美观一点。

RTCrpUDGiT 当然，对应用界面的美化问题我们将在以后探讨。

2、根据开发思路，现在我们来制作按钮。

双击工具箱面板上的命令按钮（Command Button）图标，如图三： 图三 然后你会发现程序界面上多了一个命令按钮，如图四： 图四 用鼠标拖动新建的按钮到适当位置，如图五： 图五 再创建一个标签按钮，双击如图六的图标： 图六 完成后程序界面如图七：1 / 23图七 用鼠标拖动标签按钮到合适位置，如图八： 图八 将鼠标放在标签按钮左右边缘任意一处，当鼠标呈左右键头时横向拖动，把标签按钮拖 长，最后的程序界面如图九：5PCzVD7HxA 图九 3、对按钮属性进行设置： 开发任何应用程序，在完成界面布局后，应该就每一个元素进行属性设置以达到自己的 要求。