做不了的。字体是一维的，只能整体设置大小，不能只设置高度或者宽度。但是窗口是可以设置其中一种的，所以没有办法协调。非常容易失真
If e.Form.Width > 0 AndAlso e.Form.Height > 0 Then
e.Form.StopRedraw
For Each c As Winform.Control In e.Form.Controls
c.Left = c.Left * (e.Form.Width / vars("width"))
c.Top = c.Top * (e.Form.Height / vars("height"))
c.Width = c.Width * (e.Form.Width / vars("width"))
c.Height = c.Height * (e.Form.Height / vars("height"))
Dim s As Double = val(c.Font.Size)
Dim fnt As Font = new Font(c.Font.Name,s * e.Form.Width / vars("width"))
c.Font = fnt
Next
'msgbox(e.Form.Height / vars("height"))
vars("width") = e.Form.width
vars("height") = e.Form.height
e.Form.ResumeRedraw
End If
加好友 
发短信
Post By：2017/6/30 22:46:00 [显示全部帖子]
