private sub form_resize() with me if .scaleheight > 4000 and .scalewidth > 4000 then .frame1.width = .scalewidth - frame1.left * 2 '..其它的类似 end if end with end sub
.left * 2 是什么意思呢 我要是高度要怎么表示
Private Sub Form_Resize() Label1.Height = Form1.Height / 100 * 30 Label1.Width = Form1.Width / 100 * 30 End Sub
private sub form_resize()
with me
if .scaleheight > 4000 and .scalewidth > 4000 then
.frame1.width = .scalewidth - frame1.left * 2
'..其它的类似
end if
end with
end sub
我要是高度要怎么表示
Label1.Height = Form1.Height / 100 * 30
Label1.Width = Form1.Width / 100 * 30
End Sub