http://www.5ivb.net/club/dispbbs.asp?BoardID=1&replyID=15120&id=35188&star=1&skin=0 可以进这里去看一下,,注意点和技巧,你的之所以不会变是因为你的图片不会跟随窗口的变化而变化,,, 现给出图片跟随窗口变化的代码如下: Private Sub MDIForm_Resize() Dim X as long Dim Y as long Dim H as long Dim W as long With Form1 '这里原来是PICTURE1,现在我们用FORM1来显示 .Move 0, 0, Me.Width - 128, Me.Height -400 '如果有菜单的话后面的数字改为704 .Cls X=(.scalewidth-image1.width)\2 '如果想改为拉伸则:X=0 Y=(.scaleheight-image1.height)\2 '如果想改为拉伸则:Y=0 H=image1.height '如果想改为拉伸则:H=.scalehhight W=image1.width '如果想改为拉伸则:W=.scalehwidth .PaintPicture Image1.Picture,X,Y,W,H .refresh '因为我们将FORM的AUTOREDRAW设为TRUE,所以要REFRESH一下才能显示 End With End Sub
可以进这里去看一下,,注意点和技巧,你的之所以不会变是因为你的图片不会跟随窗口的变化而变化,,,
现给出图片跟随窗口变化的代码如下:
Private Sub MDIForm_Resize()
Dim X as long
Dim Y as long
Dim H as long
Dim W as long
With Form1 '这里原来是PICTURE1,现在我们用FORM1来显示
.Move 0, 0, Me.Width - 128, Me.Height -400 '如果有菜单的话后面的数字改为704
.Cls
X=(.scalewidth-image1.width)\2 '如果想改为拉伸则:X=0
Y=(.scaleheight-image1.height)\2 '如果想改为拉伸则:Y=0
H=image1.height '如果想改为拉伸则:H=.scalehhight
W=image1.width '如果想改为拉伸则:W=.scalehwidth
.PaintPicture Image1.Picture,X,Y,W,H
.refresh '因为我们将FORM的AUTOREDRAW设为TRUE,所以要REFRESH一下才能显示
End With
End Sub
他下面做个做按钮什么的.一级一级往下做,就会相对移动了.
就像vb里面的frame一样.