怎么用vb的PictureBox控件显示不同的图片?

要用3个command按钮,每点一个按钮就会在同一个picture里显示对应的图片。该怎么写?不要纯代码,要有文字说明。不然image也行啊。

似乎得使用三个image控件 把每个控件完全重叠在一起 然后用每个image的visible(可见)属性来实现


比如:

Private Sub Command1_Click()
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
End Sub
Private Sub Command2_Click()
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
End Sub
Private Sub Command3_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
End Sub


望采纳

温馨提示:内容为网友见解,仅供参考
无其他回答

VB picturebox 能放多张图片么
picturebox里只能放一个图,但是picturebox里可以放很多很多的image(图片框),你只需要把image控件画到picturebox里面,然后每个image控件载入不同的图片,然后调整image控件的位置就可以达到在picturebox里放多张图的效果了 '不明白的话百度HI我,我给你做一个例子看看 ...

VB中多个按钮,点击后然后在窗体固定位置显示不同的内容
用容器控件(PictureBox或Frame控件)可以实现。比如先放一个PictureBox控件,在上面再放上其他控件;然后再在窗体放入一个PictureBox控件,再在上面放上另一批按钮、文本框之类的控件,依此类推。然后点第一个按钮时,把第一个PictureBox的Visible属性设为True,其他PictureBox的Visible属性设为False;同理...

怎么让VB的图片显示框显示图片?
Private Sub Command1_Click()Picture1.Picture = LoadPicture("春的图片路径放在这")End SubPrivate Sub Command2_Click()Picture2.Picture = LoadPicture("夏的图片路径放在这")End SubPrivate Sub Command3_Click()Picture3.Picture = LoadPicture("秋的图片路径放在这")End SubPrivate Sub Command4...

vb中如何根据PictureBox的大小自动调整相片
添加两个Picture控件,先载入Picture2,然后根据Picture1的大小自动调整显示。代码如下:Private Sub Form_Load() Picture1.AutoRedraw = True '重绘图片 Picture1.AutoSize = False '图片框大小不变 Picture1.Visible = True 'Picture1.BackColor = RGB(255, 255, 255) '设置图片框...

VB中点击按钮PictureBox就变换一张图片
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...

vb 里怎么在picturebox里放图片,
在程序代码里这样:picture1.picture=loadpicture("文件位置和名称")也可以在设计时就从属性窗口加载,选中picturebox,在属性窗口里选中Picture属性,单击后面的“...”选择默认的图片

在VB里面如何设置一张图片的顶层和底层呢,比如有两种图片一张在前面一...
在窗体上添加两个PictureBox控件,一个Picture1、一个Picture2,你自己放两张图片进去以便区别,然后将两张图片重叠,最后复制以下代码运行即可达到你的目的啦:Private Sub Picture1_Click()Picture2.ZOrder (0)Picture1.ZOrder (1)End Sub Private Sub Picture2_Click()Picture1.ZOrder (0)Picture2....

vb Picturebox 循环播放15张图片
右击imagelist控件属性,图像,然后依次插入你要的图片。它们的索引号是从1开始的。再添加一个按钮,一个picturebox。所有代码如下:Private Sub Command1_Click() '开始 Dim i As Integer Do For i = 1 To ImageList1.ListImages.Count Picture1.Cls Picture1.PaintPicture ImageList1.ListImages(i)...

vb中利用picturebox或imagebox显示网络图片的问题
Picture1.Picture = LoadPicture(App.Path & "\\bdlogo.gif")End Sub 第三种方法:如果不知道图片URL,但知道网页的URL,那么可以用WebBrowser控件显示网页,再从中找到需要的图片显示到Picture1中:Private Sub Command1_Click()Dim CtrlRange As Object, img As Object Set CtrlRange = WebBrowser1....

在vb.net中,PictureBox图片切换问题。
1、添加控件Picturebox1和控件Timer1,将Timer1的Interval属性改为1000(即1秒),Enabled属性改为True 2、假设你要循环切换4张图片,你可以添加如下代码即可实现:Dim a As Integer = 0 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ...

相似回答