诚请懂VB6.0企业版的高手，怎么样设置在窗体内插入图片，随着屏幕分辨率的大小而改变呢？

Question

如题所述

Answer 1

使用image
image1的image1.strech属性设置为true

在form_resize事件中
image1.move 0,0,width,height ‘使image1的大小和窗体一样追问

那么怎样设置窗体随着分辨率的大小而变化呢

追答

Screen.Width
Screen.Height
检测分辨率的值，如果低于某个值，就调整窗体大小

Answer 2

Dim p As Picture
Private Sub Form_Load()
Set p = LoadPicture("E:\Users\Administrator\Pictures\蔡卓妍.jpg") '写上你自己的图片
Picture = p
End Sub

Private Sub Form_Resize()
Set Picture = Nothing
PaintPicture p, 0, 0, Width, Height
End Sub '

Answer 3

窗体随分辨率改变比较麻烦,尤其是窗体上控件比较多的时候,如果窗体上控件比较少,可以根据比例调整控件大小,最省事的办法你去下载一个控件,Resize32.ocx,把这个控件放窗体上一扔就可以了,别的不用管

Answer 4

在form_resize中设定图片的高和宽就可以了追问

那么怎样设置窗体随着分辨率的大小而变化呢

追答

用Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
获取当前的屏幕大小