怎样在vb中添加图片

有三种方法：

1、添加一个picturebox或imagebox，在属性窗口中选择picture属性，然后就可以添加图片了，这是最简单的一种；

2、第二种是代码加入:

Option Explicit

Private Sub Form_Load()

Me.Picture = LoadPicture("c:\text.bmp") 'c:\text.bmp为图片路径

End Sub

3、第三种是通过剪贴板加入，这种比较复杂,如：

Option Explicit

Private Sub Form_Load()

Clipboard.SetData Picture1.Image

End Sub

一种思路：

增加一个隐藏的PictureBox，名字pic1，依次载入图片到pic1，并显示到窗体

pic1.Picture=LoadPicture("pic01.jpg")

me.PaintPicture pic1.hdc,nLeft,nTop,pic1.Width,pic1.Height,0,0,pic1.Width,pic1.Height,vbSrcCopy

pic1.Picture=LoadPicture("pic02.jpg")

...

调整 PaintPicture 前面第2-5个参数可以设定图片显示的位置和大小，后面桐枝4个参数指定截取的图片大小。

均匀分布4张图片，图片的显示帆老大小是窗体宽局轿敏高的一半

第一张图片：

me.PaintPicture pic1.hdc,0,0,me.ScaleWidth/2,me.ScaleHeight/2,0,0,pic1.Width,pic1.Height,vbSrcCopy

第二张图片

me.PaintPicture pic1.hdc,me.ScaleWidth/2,me.ScaleHeight/2,me.ScaleWidth,me.ScaleHeight,0,0,pic1.Width,pic1.Height,vbSrcCopy

以此类推

如果需要一直保持图片，需要将显示图片的代码写在 Paint 事件里。

pic1属性设置

Visible=False

AutoRedraw=True

AutoResize=True

你说的那个框建议做成用户控件,用户控件里用PictureBox数组来存放你要显示的图片,根据设镇型枝置的每行显示的图片数量等数租咐据,每添加或删御敏除一个图片就重排一下PictureBox的位置

---