vb命令按钮
4 VB基础控件篇.Command按钮控件
程序界面如图六：
图六
程序代码如下：
按钮一：
Private Sub CmdEnable_Click()
CmdFalse.Enabled = True
或者：按钮名称.Style = 0/1
只有当按钮的Style设置为Graphical类型时，按钮的Picture属性才起作用。本属性能在指定的按钮上添加图片。
可以在界面设置过程中为按钮指定图片，如图八：
图八
也可以在程序中进行指定，代码如下：
按钮名称.Picture = "图形文件所在的路径与文件名"，例如：CmdPicture.Picture = "D:\image\01.jpg"
图四
4、Enabled（可用）属性：
本属性决定了控件是否可用的问题。当值为False，按钮在程序运行时呈灰色，不能响应用户的鼠标动作；只有当值为True，按钮才能使用。本属性可以在设置界面时予以指定，如图五：
图五
也可以在程序中修改，代码如下：按钮控件名称.Enabled = True/False
例一：
二、CommandButton的事件：
命令按钮最常用的事件是鼠标点击（Click）事件，当点击按钮时，犹如发出了一道命令，而这也正是“命令按钮”这个说法的由来。
图一
CommandButton控件在程序中主要作为按钮进行使用。默认的名称为CommandX（X为1、2、3，等等），命名规则为CmdX（X为用户自定义的名字，如CmdCopy、CmdPaste，等等）。
VB命令按钮常用属性
VB命令按钮常用属性学习各种高级外挂制作技术，马上去百度搜索"魔鬼作坊"，点击第一个站进入，快速成为做挂达人。
命令按钮通常用来在它的单击事件中完成一种特定的程序功能。
尽管其他控件的单击事件也可以做同样的事情，但使用命令按钮已经成为Windows应用程序的风格。
熟悉Windows的人都知道，单击命令按钮就会完成程序提供的一个功能。
因此，向用户提供的服务功能通常都以命令按钮的形式出现在用户界面中。
常用属性命令按钮的基本属性：Name、(：aption、Height、Width、Top、Left、Enabled、Visible、FontName、FontSize、FontBold、FontI—talic、FontUnderline等。
命令按钮特有属性：Default、Cancel、Style、Picture、DownPicture、DisabledPicture、MaskColor、IJseMaskColor和ToolTipText属性。
(1)Default属性如果一个命令按钮的Default属性设置为Tme，则不论焦点在窗体的哪个控件上，只要用户按Enter键，就产生这个按钮的单击事件。
在一个窗体中，只允许一个命令按钮的Default 属性被设置为True，当把一个命令按钮的Default属性设置为‘Frue，会自动将其他命令按钮的Default属性设为False。
(2)Cancel属性如果一个命令按钮的Cancel属性设置为True，则不论焦点在窗体的哪个控件上，只要用户按Esc键，就产生这个按钮的单击事件。
在一个窗体中，只允许一个命令按钮的Cancel 属性被设置为True，其他命令按钮的Cancel属性将自动设为False。
本人首发中国自学编程网，通常在该按钮的Click事件中完成的是退出或取消之类的操作。
(3)Style属性Style属性决定命令按钮中是否可以显示图形。
如果设置为0，则不显示图形只显示标题；如果设置为1，则可同时显示文本和图形。
改变VB 6.0命令按钮的Caption文本颜色
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFORMat As Long) As Long
'Prepare DC for drawing
SetBkMode hDC, TRANSPARENT
SetTextColor hDC, GetProp(hWnd, "VBTForeColor")
'Prepare a text buffer
S = String$(255, 0)
Private Const ODS_SELECTED = &H1
'Window messages we're using
Private Const WM_DESTROY = &H2
Private Const WM_DRAWITEM = &H2B
Private Type DRAWITEMSTRUCT
'Adjust specially for VB's CommandButton control
rct.Bottom = rct.Bottom - 4
End If
If (nState And ODS_SELECTED) = ODS_SELECTED Then
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
VB标签命令按钮文本框
文本框没有Caption属性
（2）Maxlength： 设置正文旳最多字符个数, 0任意长度值。
（3） MultiLine： 是否为多行,默认一行. False
（4）ScrollBars： 当MultiLine为True时,该属性才有效,滚动条 旳形式。
（5）Style : 拟定显示旳形式. 0 只能显示文字, 1 文字、图
形均可 。
（6）Picture : 按钮可显示图片文件(.bmp和.Ico)，只有当
Style属性值为1时有效
（7）ToolTipText ：设置工具提醒，和Picture结合使用。
（二）措施、事件
Move、Setfocus措施； 单击事件Click
Alignment=1，BorderStyle =1 AutoSize=True，WordWarp=False， BorderStyle =1 BackColor= &H00FFFFFF&, BorderStyle =0 ForeColor= &H000000FF&, BorderStyle =0
设置后各标 签旳显示如 图
例 在窗体上，放置5个标签，其名称使用默认值Label1－
Label5，在属性窗口，按下1
Label2
Label3
Label4
Label5
标题 Caption 左对齐
水平居中
自动
背景白
前景红
有关属性设置
Alignment=0， BorderStyle =1
3、事件
标签可响应单击（Click)和双击（ DblClick）事件，但一 般情况不对它进行编程
VB基础操作代码
End Sub
9. 要求：1）通过菜单编辑器制作如图所示的弹出菜单。2）编写适当的代码，右键单击窗体时显示弹出菜单。3）编写适当的代码，程序运行时单击菜单更改Form1的背景颜色。3）保存工程为Jc09.Vbp窗体为Jc09.Frm。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = Button
End Sub
3. 窗体文本的显示与清除要求：1）在窗体上添加两个命令按钮，Command1的标题为“输出文本”，Command2的标题为“清除文本”。3）填写适当的代码，程序运行时单击Command1在窗体上显示“内蒙古财经学院”，单击Command2清除“内蒙古财经学院”。4）保存工程为Jc03.Vbp窗体为Jc03.Frm。
Private Sub Command1_Click()
Text2.Text = Text1.SelText
End Sub
14. 要求：1）在窗体上添加两个文本框Text1、Text2、text3，Text1初始内容如图所示。2）设置Text1属性，允许输入多行，显示垂直滚动条，Text2、text3内容不可编辑。3）添加两个的命令按钮command1、command2，标题分别为“起始位置”、“字符个数”。4）编写适当的代码，程序运行时单击“起始位置”Text2中返回Text1的光标位置，单击“字符个数”时Text3中返回Text1中选中的文本个数。 4）保存工程为Jc14.Vbp窗体为Jc14.Frm。
vb实验1命令按钮说明
Style：0-标准windows按钮；1-图形按钮
Cancel：返回或者设置一个值，指示窗体中命令按钮是否为取消命令按钮。（True/False），只能有一个True
Esc键
Default：返回或者设置一个值，指示窗体中命令按钮是否为缺省命令按钮。（True/False）只能有一个True
技术要点：1.按钮的caption属性,以及快捷方式的设置
2.窗口之间的切换.主要用的方法是show,hide
3.按钮之间的逻辑控制，比如子窗体没有打开，设置颜色功能无效等.主要用到enabled属性
4.窗口的背景颜色设置,backcolor属性以及颜色的设置
Tooltiptext：属性返回或者设置鼠标在命令按钮上停留时显示的提示文本。--对图形按钮特别有用。
（1）Click事件:鼠标单击
Private sub command1_click()
……
End sub
1
2.窗体.(打开.关闭,设置子窗体的背景颜色)
Enter键
Font：属性窗口的Font—字体对话框
编码：
/Bold/Italic/size/underline/strikethrough
Left/Top/Width/Height：确定控件的位置与大小。缺省单位：twip；1440 twip（缇）=1 inch（英寸）
Visible：是否可见。（True/False）
控件名称
控件常用属性
控件常用事件
命令按钮
Command Button
Name：只能在属性窗口中设置，不能在运行时改变，供程序引用
Caption：返回或者设置控件上显示的标题（字符串型），用&符号设置热键（Alt+）
VB知识点学考
一、V B中常用的几个基本控件Label控件（标签）Timer 控件（准时器）TextBox 控件（文本框）Command Botton 控件（命令按钮）Image 控件Listbox控件（列（图象）表框）二、 VB 工程知识（ 1）一个 VB 工程包含两个文件：窗体文件（.frm）和工程文件(.vbp )。
（2）由 VB 工程生成的 .EXE 文件，可离开 VB 环境运转（3）说明语句以单引号开头（’），写解说文字。
说明对程序没有影响，主假如增添程序的可读性（ 4）多行语句写在一行上，用冒号 k=a : a=b :b=k(编程时不建议使用 )三、 VB 常用的基本数据种类数据种类名说明数据长度或范围Integer整型-32768 ～ 32767Long长整型-2,147,483,648 ～ 2,147,483,647Single单精度实数型绝对值在～内的实数，有效数字约6～ 7位Double双精度实数型绝对值在 10E-324 ～内的实数，有效数字约14～ 15 位String变长字符串型一段文字与符号Boolean逻辑型True 或 FalseDate日期型日期和时间四、 VB 常用的标准函数函数名函数的功能应用举例函数返回值Abs(X)求 X 的绝对值AbsInt(X)求不大于 X 的最大整数Int4Sqr(X)求 X 的算术平方根Sqr(4)2Rnd()求 [0,1) 之间的一个随机数。
使用前需Randomize A 的值为 [0,1)之间用 Randomize 语句初始化A= Rnd()的一个随机数Val(X)数字字符串变换成数值Val("170")170 Str(X)数值变换成字符串Str(170)"170" Asc（ X）字符变换为 ASCII Asc("A")65Chr(X)ASCII 变换为字符Chr(65) Len(X)计算字符串的长度Len("abc")Mid(X,n,k)取字符串 X中从第 n 个字符开始长度为Mid("Auto",3,2) k 的子串注意：此中Chr （）、 Str（）、 Mid （）三个函数的值为字符串型，结果要加双引号五、 VB 的基本运算运算符说明运算符优先级表达式款式实例幂^1X^y2^3 结果为 8取负-2-x-2 结果为 -2乘法*3X*y2*2 结果为 4实数除法/3X /y 5 / 2结果为整数除法（求整\4X \ y 5 \ 2结果为 2除部分）\2结果为 2\ 2结果为 -2取模（求余数）Mod5X mod y 5 mod 2 结果为 14 mod -3结果为 1-4 mod 3结果为 -1加法+6X+y5+2 结果为 7减法-6x-y5-2 结果为 3连结&或 +6X & y“5” & “2”结果为” 52”5 & 2 结果为” 52”"A"3"to"运算注意事项注意“ * ”写法。
VB教程：命令按钮(CommandButton)
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 新的宽度。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
命令按钮文本框和标签
一实验目的
1．掌握命令按钮、文本框和标签常用属性值的设置方法。
2．学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。
3．掌握命令按钮的主要事件的使用。
二实验内容
利用命令按钮、文本框和标签判断密码是否正确。
三实验步骤与指导
1．设计界面
在窗体上添加两个标签、一个文本框和两个命令按钮。
初始界面如图1所示。
图1 初始界面
2．设置属性
如表1所示
表1 属性设置
图2 设置属性后的界面
3．编写程序代码
Private Sub Command1_Click()
If Text1.Text=“goodbaby”Then
Label2.Caption=“欢迎使用本系统！”
Else
Label2.Caption=“密码错误！请重新输入密码！”
End If
End Sub
Private Sub Command2_Click()
End
End Sub
4．运行程序
（1）在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。
运行结果如图3所示。
图3 输入的密码正确
2）在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示““密码
错误！请重新输入密码！”。
运行结果如图4所示。
图4 输入的密码错误。