x = Screen.Width \ Screen.TwipsPerPixelX Y = Screen.Height \ Screen.TwipsPerPixelY If CStr(x) + CStr(Y) = "1024768" Then MDIForm1.Picture = LoadPicture("picture1.jpg") End If if cstr(x)+ cstr(Y)="800600" then MDIForm1.Picture = LoadPicture("picture2.jpg") end if
x = Screen.Width \ Screen.TwipsPerPixelX
Y = Screen.Height \ Screen.TwipsPerPixelY
If CStr(x) + CStr(Y) = "1024768" Then
MDIForm1.Picture = LoadPicture("picture1.jpg")
End If
if cstr(x)+ cstr(Y)="800600" then
MDIForm1.Picture = LoadPicture("picture2.jpg")
end if
这样的话好像会遮住以后打开的别的窗口。
我去试试,成功后立即给分。
一个在上面(800*600),另一个在下面(1024*768)
当屏幕是800*600时,让上面一个Image充满整个窗体
当屏幕是1024*768时,让上面一个Image的高度为0,然后让下面个Image充满窗体。