VB中点击按钮PictureBox就变换一张图片

2025-12-14 19:26:01

推荐回答（4个）

回答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

回答2：

Resources是什么啊？
把所有的图片名用一个规则的名字。用rnd()函数产生随机数，调用图片

回答者： cwa9958 - 魔导师十级 2009-6-6 08:31
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

回答者：博雅小仙 - 江湖新秀四级 2009-6-6 08:34
第一种方法：
你要建立很多picturebox 把他们的visible属性都设为false你要放置的图片都存放在这
都以系统默认命名
然后建立一个要显示的picturebox visible属性设为true name随便比如name111

Dim n As String

Private Sub name111_Click()
name111.Picture = Picture & n & .Picture
n =n + 1
End Sub

Private Sub Form_Load()
n = 1
End Sub

第二种方法：
你要在根目录下放一个图片库 “pictures”图片以1、2、3、4、5、6、7...命名
只要放一个picturebox

Dim n As String

Private Sub picture1_Click()
name111.Picture = LoadPicture(DiskPathName + "pictures\" & n & ".bmp")
n =n + 1
End Sub

Private Sub Form_Load()
n = 1
End Sub

回答3：

第一种方法：
你要建立很多picturebox 把他们的visible属性都设为false你要放置的图片都存放在这
都以系统默认命名
然后建立一个要显示的picturebox visible属性设为true name随便比如name111

Dim n As String

Private Sub name111_Click()
name111.Picture = Picture & n & .Picture
n =n + 1
End Sub

Private Sub Form_Load()
n = 1
End Sub

第二种方法：
你要在根目录下放一个图片库 “pictures”图片以1、2、3、4、5、6、7...命名
只要放一个picturebox

Dim n As String

Private Sub picture1_Click()
name111.Picture = LoadPicture(DiskPathName + "pictures\" & n & ".bmp")
n =n + 1
End Sub

Private Sub Form_Load()
n = 1
End Sub

回答4：

Resources是什么啊？
把所有的图片名用一个规则的名字。用rnd()函数产生随机数，调用图片