Question

VB中怎样单击按钮出现一个图片

Answer 1

用vb编写一个点击按钮随机出现一张图片的软件，例如：窗体上一个picture1和command1的控件。

1、有四张图片，他们的后缀名不相同，用户可以问这样写：

Dim a$(3)

Private Sub Form_Load()

Randomize

a(0) = "D:\xuexi.gif"

a(1) = "D:\002.jpg"

a(2) = "D:\房子.png"

a(3) = "D:\4.jpg"

End Sub

Private Sub Command1_Click()

Picture1.Picture = LoadPicture(a(Int(Rnd * 3)))

End Sub

2、如果后缀名相同，且图片名称按顺序编号内并在程序目录下，用户可以容这样写：

Private Sub Command1_Click()

Picture1.Picture = LoadPicture(App.Path & "\" & Int(Rnd * 3) & ".jpg")

End Sub

扩展资料：

CommandButton命令按钮最常用的事件是鼠标点击（Click）事件，当点击按钮时，犹如发出了一道命令，而这也正是“命令按钮”这个说法的由来。

CommandButton 的主要属性列举：

1、Cancel（取消）属性：

当一个按钮的 Cancel 属性设置为 True 时，按 ESC 键与单击此命令按钮的作用相同，因此，这个命令按钮被称为取消按钮。在一个窗体中，只允许一个命令按钮的 Cancel 属性为 True 。

2、Default（默认）属性：

当一个按钮的 Default 属性设置为 True 时，按回车键与单击此命令按钮的作用相同，因此，这个命令按钮被称为默认按钮。 与 Cancel 的设置一样，在一个窗体中，只允许一个命令按钮的 Default 属性设置为 True 。

3、Caption（标题）属性：

跟其他控件的 Caption 属性一样，都用来显示控件标题的属性。这里要强调的是，作为按钮控件，用户可以给按钮控件的 Caption 指定快捷方式。

参考资料来源：百度百科-命令按钮