以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  运算导致溢出 应该怎么办？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95214)
--  作者：jinzhengbe
--  发布时间：2017/1/13 12:00:00
--  运算导致溢出 应该怎么办？
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"))
    Next
    \'msgbox(e.Form.Height / vars("height"))
    vars("width") = e.Form.width
    vars("height") = e.Form.height
e.Form.ResumeRedraw
End If

sizechange事件显示运算导致溢出 应该怎么处理？
--  作者：有点色
--  发布时间：2017/1/13 12:35:00
--  

AfterLoad事件，要写代码

 

If e.Form.Width> 0 AndAlso e.Form.height > 0 Then
    vars("width") = e.Form.width
    vars("height") = e.Form.height
End If