以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态增加控件,让用户自己拖拉到指定位置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170972)

--  作者:hgy
--  发布时间:2021/8/12 18:12:00
--  动态增加控件,让用户自己拖拉到指定位置

老师,动态增加了控件,想让用户自己拖拉到他想要的位置,我们再获取他的坐标设置进去。


要怎么实现呢?


刚才动态增加了,发现控件没有办法拖动~


例如希望单击某个按钮,能够向窗口中加入一个标签,可以将按钮的Click代码设为:

Dim lbl As WinForm.Label
lbl
= e.Form.CreateControl("lable1", ControlTypeEnum.Label)
lbl
.Text = "Foxtable"
lbl
.Left = 100
lbl
.Top = 100
e
.Form.AddControl(lbl)


--  作者:有点蓝
--  发布时间:2021/8/12 19:59:00
--  
默认都是无法拖动的。


--  作者:hgy
--  发布时间:2021/8/13 11:18:00
--  
谢谢蓝老师