Foxtable(狐表)用户栏目专家坐堂 → [求助] 窗口的控件


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

主题:[求助] 窗口的控件

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


加好友 发短信
等级:幼狐 帖子:58 积分:738 威望:0 精华:0 注册:2018/2/28 11:21:00
[求助] 窗口的控件  发帖心情 Post By:2019/6/14 12:07:00 [只看该作者]

请教 ,把控件放在窗口中的图画中,窗口变化后如何保持空间在图中相对位置不变。如地图上的一个地址(ex 上海)上放个控件,地图变大了,控件在随地图变化而变,永远定位在原地址(上海)上

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


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

Afterload事件

 

vars("width") = e.Form.width
vars("height") = e.Form.height

 

SizeChanged事件

 

If e.Form.Width > 0 AndAlso e.Form.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/6/14 12:40:38编辑过]

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


加好友 发短信
等级:幼狐 帖子:58 积分:738 威望:0 精华:0 注册:2018/2/28 11:21:00
  发帖心情 Post By:2019/6/14 14:28:00 [只看该作者]

收到,谢谢。试用一下


 回到顶部