VB 怎么在一个窗体中添加多张图片（比如是四张），而且是均匀分布排列？ 求具体 *** 作或代码

一种思路：

增加一个隐藏的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

有三种方法：

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

---