在 SUB FORM-LOAD()中加入ME.HEIGH=SCREEN.SCALEHEIGH ME.WIDTH=SCREEN.SCALEWIDTH好久没用VB了,不知道这么写有没有拼错,就是让ME的高等于屏幕的实际高度.
over ride form_sizeform1.width = screen.width ... button1.width = form1.width / 20 ... button1.left = form1.width / 30 button1.top = form1.top / 30 ... note: if window is minimized the code should error so i think use thisform_size( ... ) if me.windowstate <> 1 then 'not minimized ............... endif
ME.WIDTH=SCREEN.SCALEWIDTH好久没用VB了,不知道这么写有没有拼错,就是让ME的高等于屏幕的实际高度.
...
button1.width = form1.width / 20
...
button1.left = form1.width / 30
button1.top = form1.top / 30
...
note: if window is minimized the code should error so i think use thisform_size( ... )
if me.windowstate <> 1 then 'not minimized
...............
endif
Me.Top = 0
Me.Height = Screen.Height - 500
Me.Width = Screen.Widthend
i used do this, i think it was easy to set control's positon then manaul