Question

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

我是初学者 不 要笑 我....
我想做一个 按钮 单击一下 就改变PictureBox控件中的图片
最好是 PictureBox当容器 里面有很多张图片
单击按钮 随机产生图片名称
调用Resources内的图片名字
然后显示到PictureBox中
怎么搞呀 帮帮我
是 这样 的 我想调用这个项目内的图片 就是RESOURCES 里面的
我可以把这程序发给别人玩 别人D\下没图片呀 所以看不到是吧
所以我想把图片放到项目内 别人打开我的程序就能看到图片

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

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

Answer 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

Answer 4

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