VB教程：命令按钮（CommandButton)

4.命令按钮
功能:用于启动、中断或结束一个按钮。

(1)共同属性

标题属性

样式属性

“Visible =false”按钮不可见。

“启用=真”按钮无效。

' Default =true '使按钮成为默认的“活动按钮”，可以通过enter键选择。

' Cancel =true '使按钮成为默认的“取消按钮”，可以用esc键选择。

注意:在一个窗体中，只能将一个命令按钮设置为默认的“活动按钮”，并且只能将一个命令按钮设置为默认的“取消按钮”。

“图片”加载图片

有时候。我们可能还需要在命令按钮上显示某种图案，使界面看起来生动活泼。要制作这样一个按钮，我们需要设置它的两个属性；样式属性和图片属性。我们先将命令按钮的style属性设置为1 (graphic)，然后通过其Picture属性加载一张图片，如图所示，图中显示了一个带有图案的命令按钮。

(2)主要事件

最重要的事件是点击事件。

(3)常用方法

打印方法:用于在表单、图片框和打印机上显示文本。其语法格式为:

对象。打印[输出列表]

Cls方法:用于在运行时清除窗体或图片框架生成的图形和文本。其语法格式为:

对象。清屏

Move方法:用于移动窗体或控件并改变其大小。其语法格式为:

对象。向左、向上、宽度、高度移动

其中包括:

对象:可选。表示移动窗体或控件。对象表达式，其值是“应用于”列表中的对象。如果省略object，默认情况下，具有焦点的窗体是object。

左:必需。指示对象左侧的水平坐标(x轴)。

顶部:可选。指示对象上边缘的垂直坐标(y轴)。

宽度:可选。指示对象的新宽度。

高度:可选。指示对象的新高度。

(4)例子:

参见教材P109。计算器应用程序。

代码如下:

Public a，b，result As Double
Public c c As Integer
Dim op As String
Dim index As Integer

-

私有子窗体_Load()

a = 0
b = 0
Text1。文本= " "

末端接头

-

私有Sub a1_Click()

文本1。文本=文本1。文本& a1。标题

末端接头

-

私有Sub a2_Click()

文本1。文本=文本1。文本& a2。标题

末端接头

-

私有Sub a3_Click()

文本1。文本=文本1。文本& a3。标题

末端接头

-

私有Sub a4_Click()

文本1。文本=文本1。文本和a4。标题

末端接头

-

私有Sub a5_Click()

文本1。文本=文本1。文本& a5。标题

末端接头

-

私有Sub a6_Click()

文本1。文本=文本1。文本&a6。标题

末端接头

-

私有Sub a7_Click()

文本1。文本=文本1。文本& a7。标题

末端接头

-

私有Sub a8_Click()

文本1。文本=文本1。正文& a8。标题

末端接头

-

私有Sub a9_Click()

文本1。文本=文本1。文本& a9。标题

末端接头

-

二等兵a10_Click()

文本1。文本=文本1。文本& a10。标题

末端接头

-

私有Sub a11_Click()

文本1。文本=文本1。文本& a11。标题

末端接头

-

私有Sub a12_Click()

b =文本1。text
index = 0
Select Case op
Case+
result = CDbl(a)+CDbl(b)
text 1。text = CStr(result)
Case-
result = CDbl(a)-CDbl(b)
text 1。text = CStr(result)
Case *
result = CDbl(a)* CDbl(b)
text 1。text = CStr(result)
Case/
如果CDbl(b) = 0
，则Text1。text = error
Else
result = CDbl(a)/CDbl(b)
text 1。text = CStr(result)
End If
End Select
If text 1。Text = error Then Text1。Text = CStr(结果)

末端接头

-

私有Sub b1_Click()

如果index = 0，那么a = Text1。Text
index = index + 1