VB动态添加图像框的方法

Pub-Date : 2012-01-24 17:24:35

　　信息来源：互联网　　　　编辑：www.pipaxi.com.cn 　　　　审核：Admin

本文系回答：http://zhidao.baidu.com/question/369944313.html?old=1#here

有两种方法。

方法一：

向在窗体上添加一个image1控件，在属性窗口中将其Index属性设置为0（就是定义一个图像框控件数组），然后用下面代码：

PrivateSubCommand1_Click()

LoadImage1(1)

WithImage1(1)

.Stretch=True

.Picture=Image1(0)

.Top=100

.Left=100

.Visible=True

EndWith

LoadImage1(2)

WithImage1(2)

.Picture=Image1(0)

.Top=100

.Left=2000

.Visible=True

EndWith

EndSub

方法二：

PrivateSubCommand1_Click()

Fori=1To4

BqName="Image"&i

SetNewlbl=Controls.Add("VB.image",BqName)

Newlbl.Move3500,500*i,1000,360

Newlbl.Stretch=True

Controls(BqName).Picture=LoadPicture("D:\MyDocuments\MyPictures\a.jpg")

Newlbl.Visible=True

Nexti

EndSub