Question

在VB中怎样实现点击按钮后，PictureBox当容器自动变换图片

Answer 1

Private Sub Command1_Click()
Dim i As Integer
i = Int((4 * Rnd()) + 1) '产生1到4的随机数，你可以将4改为其他数
If i = 1 Then Form1.Picture = LoadPicture("D:\我的文件夹\1.jpg") '你可以将Then后的Form1改为PictureBox
If i = 2 Then Form1.Picture = LoadPicture("D:\我的文件夹\2.jpg")
If i = 3 Then Form1.Picture = LoadPicture("D:\我的文件夹\3.jpg")
If i = 4 Then Form1.Picture = LoadPicture("D:\我的文件夹\4.jpg")
End Sub

Answer 2

哎，这个……最简单的显示图片的代码啊

Answer 3

你在按钮的click事件中，用这句代码就可以了
picturebox.picture=loadpicture(图片路径)

Answer 4

增加一个Timer控件就可以实现了

Answer 5

我不懂编程，我不懂VB， 为什么都喜欢问我这种问题？ 我在百度没这么设啊、、纠结、、