以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口缩放  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86810)
--  作者：zcgmxf
--  发布时间：2016/6/26 23:22:00
--  [求助]窗口缩放

老师，用论坛提供的代码，在使用窗口最小化：e.Form.BaseForm.WindowState = System.Windows.Forms.FormWindowState.Minimized  提示：

 

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.6.26.1
错误所在事件：窗口,加班明细查询,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
vars("width") = e.Form.width
vars("height") = e.Form.height
--  作者：大红袍
--  发布时间：2016/6/27 0:28:00
--  

 加上判断呗

 

If e.Form.BaseForm.WindowState = System.Windows.Forms.FormWindowState.Minimized  Then Return
--  作者：zcgmxf
--  发布时间：2016/6/27 19:31:00
--  

红袍老师，还是不行啊。
--  作者：大红袍
--  发布时间：2016/6/27 19:41:00
--  
 我测试，没有问题啊。