level 2
如何让form的picture属性 能够配合窗体大小
2007年08月03日 13点08分
2
level 0
Picture1.Top = 0Picture1.Left = 0Picture1.Width = Form1.WidthPicture1.Height = Form1.Height
2007年08月03日 13点08分
3
level 2
不是picture控件。。是form1.picture
2007年08月03日 13点08分
4
level 7
'设置好窗体的Picture属性,运行即可Dim MyImage As ImagePrivate Sub Form_Load() Set MyImage = Me.Controls.Add("VB.Image", "FormBackgroundImage") MyImage.Picture = Me.Picture MyImage.Stretch = True MyImage.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight MyImage.Visible = True Set Me.Picture = NothingEnd SubPrivate Sub Form_Resize() MyImage.Move 0, 0, Me.ScaleWidth, Me.ScaleHeightEnd Sub
2007年08月03日 16点08分
6