Question

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

command按钮中应该输入什么代码？

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 指定快捷方式。

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

Answer 2

好的程序来了,自己写的,已经验证OK!!!

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("C:\123.jpg")
End Sub

你在窗体上添加一个Picture控件,一个Command按钮,然后把上面的代码复制进去,运行看结果吧!!!

注意:你首先要把123.jpg这个图片放到C盘下!!!

Answer 3

本人提供另一种方法
首先在窗体上添加command1按纽和图片框，在图片框的属性中，picture中添加你要加的图片，
其visible为false
。在命令按纽的click事件中介入如下代码
Picture1.visible=true
这样就好了
应该异曲同工吧#