Dim FormX As Integer Dim FormY As Integer '引用sysinfo控件 FormY = SysInfo1.WorkAreaHeight FormX = SysInfo1.WorkAreaWidth Me.Move 0, 0, FormX, FormY Me.ScaleHeight = FormY Me.ScaleWidth = FormX '引用image控件 ImgBackground.Picture = LoadPicture(SysPath + "\*.bmp") ImgBackground.Stretch = True ImgBackground.Move 0, 0, FormX, FormY ImgBackground.Refresh
根据窗体的大小加载不同的图片
呵呵,笨办法
me.picture=loadpicture("\filename.image")
Dim FormY As Integer
'引用sysinfo控件
FormY = SysInfo1.WorkAreaHeight
FormX = SysInfo1.WorkAreaWidth
Me.Move 0, 0, FormX, FormY
Me.ScaleHeight = FormY
Me.ScaleWidth = FormX
'引用image控件
ImgBackground.Picture = LoadPicture(SysPath + "\*.bmp")
ImgBackground.Stretch = True
ImgBackground.Move 0, 0, FormX, FormY
ImgBackground.Refresh