VB按钮的类型

VB中就2个按钮，它们分别是命令按钮（CommandButton）和单选按钮（OptionButton）

1

命令按钮（CommandButton）：用于向VB应用程序发出指令，当单击此按钮时，可执行指定的操作。前缀是cmd，若命令按钮（CommandButton）的Enable属性设置为True时按钮有效，设置为False时按钮无效。

2

单选按钮（OptionButton）：又称录音机按钮，用于表示单项的开关状态。

可以考虑按钮数组，即新加的按钮与已存在的按钮name相同，仅具有不同的index，那么这一组按钮的相同事件都可以在同一个过程中实现，借由这个过程的index参数来区别用户单击的是哪个按钮。举个例子：

两个按钮都叫做command1，index分别为0和1

index为0 的按钮的caption为“按钮1”

index为1 的按钮的caption为“按钮2”

双击其中之一可添加代码：

if index = 0 then

msgbox "你单击了按钮1"

else

msgbox "单击了按钮2"、

end if

这样新加了按钮之后，照样用已经存在的过程来处理单击事件。

1、打开VB软件，新建一个标准exe工程；

2、设计窗口中，添加一个Command控件和一个Label控件；

3、Command控件的Caption属性设置为需要的名称，例如"测试按钮"；

4、双击Command控件进入代码界面，在Command1的命令行里添加代码如下：

Private Sub Command1_Click()

Label1Caption = Command1Caption

End Sub

5、运行新建的工程，单击按钮，发现Label1标签的内容变为按钮的标签了。

在你选择的按钮上"双击",记住是双击噢!会弹出按钮的代码编辑位置,在里面就可以写按钮代码了,如下是退出的按钮代码其他代码要根据的需要的功能,作相应的修改

Private

Sub

Command1_Click()

MsgBox

"我是退出的按钮代码!"

End

End

Sub

做成控件数组示例：

新建exe工程，在form1添加COMMAND1命令按钮，复制再粘贴，提示是否创建控件数组，选是，再加一个文本框用来设定新网址或内容，在加一个COMMAND2按钮来添加按钮。

代码：

Option Explicit

Dim web(100) As String

Dim maxIndex As Integer

Private Sub Command1_Click(Index As Integer)

MsgBox web(Index + 1)

End Sub

Private Sub Command2_Click()

Load Command1(maxIndex)

With Command1(maxIndex)

Left = Command1(maxIndex - 1)Left + 735

Top = Command1(maxIndex - 1)Top

Visible = True

Caption = maxIndex + 1

End With

maxIndex = maxIndex + 1

web(maxIndex) = Text1

End Sub

Private Sub Form_Load()

web(1) = "http://wwwaaacom"

web(2) = "http://wwwbbbcom"

maxIndex = 2

End Sub

⒃谙允景磁サ氖录刑砑尹br

/>mebackgroundimage=systemdrawingbitmapfromfile("你的文件路径")

命令按钮1visable=false'或者命令按钮1hide

命令按钮2visable=false'或者命令按钮2hide

在窗体的click事件中添加

命令按钮1visable=true'或者命令按钮1show

命令按钮2visable=true'或者命令按钮2show

mebackgroundimage=nothing

在退出按钮的事件中添加

end

2、这里应该还有两个timer,timer1和timer2

在开始按钮的事件中添加

timer1interval=1000

timer1enable=true

timer2interval=500

timer2enable=true

在timer1的tick事件中添加

label1text=timeofday

在timer2的tick事件中添加

label2left=label2left

10

if

label2left