以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口控件移动问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145610)
--  作者：丰田
--  发布时间：2020/2/2 10:50:00
--  窗口控件移动问题
窗口的"Button10"代码如下

Dim lbl = e.form.controls("TabControl1")
lbl.left = (e.form.width-lbl.width)/1.2

Dim lbl2 = e.form.controls("Button10")
lbl2.left = (e.form.width-lbl2.width)/10

在按一次要吧"TabControl1"，"Button10"恢复到原来的位置代码怎样写
--  作者：2900819580
--  发布时间：2020/2/2 10:57:00
--  

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim but As WinForm.Button = e.Form.Controls("Button1")   

tab.Left  = (E.Form.baseform.width - tab.width ) / 2
but.Left  = (E.Form.baseform.width - but.width ) / 2
--  作者：丰田
--  发布时间：2020/2/2 11:42:00
--  
不行啊 原来位置不是1/2处  控件在窗口里的绝对位置应该怎样写
--  作者：有点蓝
--  发布时间：2020/2/2 20:56:00
--  
没有原来位置这种东西，改位置之前，自己使用全局变量记录一下原来的位置