- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]登录窗口的设计思路 求指点 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135434)
-- 发布时间：2019/5/26 19:30:00
-- [求助]登录窗口的设计思路 求指点
此主题相关图片如下：timg.jpg
此主题相关图片如下：01.jpg
像图片里这种登录窗口 背景自适应全屏 中间登录框保持不变 需要怎么做？
此主题相关图片如下：00.jpg
-- 发布时间：2019/5/26 19:44:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=106091&skin=0
-- 发布时间：2019/5/26 19:45:00
--
参考
http://www.foxtable.com/webhelp/scr/2048.htm
-- 发布时间：2019/5/26 19:49:00
--
传统的登录窗口我会做 问题是怎么做这种全屏窗口 背景自适应全屏 中间登录框不变的那种
-- 发布时间：2019/5/26 19:52:00
--
Afterload事件
vars("width") = e.Form.width
vars("height") = e.Form.height
SizeChanged事件
If vars("width") > 0 AndAlso vars("height") > 0 Then
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
End If
-- 发布时间：2019/5/26 20:25:00
--
好的 谢谢老师
-- 发布时间：2019/5/30 23:07:00
--
此主题相关图片如下：qq截图20190530230537.jpg
老师 用了您的代码 弹出两个窗口 您看下是扫描情况
此主题相关图片如下：qq截图20190530230531.jpg
-- 发布时间：2019/5/30 23:29:00
--
把msgbox代码删除，即可
msgbox(e.Form.Height / vars("height"))