Foxtable(狐表)用户栏目专家坐堂 → [求助]登录窗口的设计思路 求指点


  共有1906人关注过本帖树形打印复制链接

主题:[求助]登录窗口的设计思路 求指点

帅哥哟,离线,有人找我吗?
七夜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:345 威望:0 精华:0 注册:2019/1/25 10:34:00
[求助]登录窗口的设计思路 求指点  发帖心情 Post By:2019/5/26 19:30:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:timg.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看
像图片里这种登录窗口  背景自适应全屏  中间登录框保持不变  需要怎么做?
图片点击可在新窗口打开查看此主题相关图片如下:00.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/26 19:44:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/26 19:45:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
七夜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:345 威望:0 精华:0 注册:2019/1/25 10:34:00
  发帖心情 Post By:2019/5/26 19:49:00 [只看该作者]

传统的登录窗口我会做  问题是怎么做这种全屏窗口   背景自适应全屏  中间登录框不变的那种

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
七夜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:345 威望:0 精华:0 注册:2019/1/25 10:34:00
  发帖心情 Post By:2019/5/26 20:25:00 [只看该作者]

好的  谢谢老师

 回到顶部
帅哥哟,离线,有人找我吗?
七夜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:345 威望:0 精华:0 注册:2019/1/25 10:34:00
  发帖心情 Post By:2019/5/30 23:07:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190530230537.jpg
图片点击可在新窗口打开查看
老师  用了您的代码  弹出两个窗口 您看下是扫描情况
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190530230531.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/30 23:29:00 [只看该作者]

把msgbox代码删除,即可

 

msgbox(e.Form.Height / vars("height"))


 回到顶部