你直接把图片赋值给图片对象 Dim Pic as StdPicture PIC就有大小啊 1、显示对话框读取文件 2、把图片赋值给图片对象 3、设置gvbox的大小
倒 Dim Pic as StdPicturedim x as Integer,y as Integerset pic=LoadPicture("你的图片") x=pic.Height y=pic.Width'gvbox我没有用过哦 gvbox.Height=x gvbox.Width=y 'gvbox装载图片(我不会)第一个你看着办
Dim Pic as StdPicture
PIC就有大小啊
1、显示对话框读取文件
2、把图片赋值给图片对象
3、设置gvbox的大小
Dim Pic as StdPicturedim x as Integer,y as Integerset pic=LoadPicture("你的图片")
x=pic.Height
y=pic.Width'gvbox我没有用过哦
gvbox.Height=x
gvbox.Width=y
'gvbox装载图片(我不会)第一个你看着办
StdPicture的单位默认是像素,我要你注意gvbox的单位