各位老师好!为了让窗口自适应各种不同大小的屏幕,写了两端代码,窗口类型也设置成独立或者模式,自动滚开也是TRUE,为什么不起作用?
代码如下:
Afterload事件
vars("width") = e.Form.width
vars("height") = e.Form.height
SizeChanged事件
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"))
Next
msgbox(e.Form.Height / vars("height"))
vars("width") = e.Form.width
vars("height") = e.Form.height