以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何让控件横着排列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119289)

--  作者:188802386
--  发布时间:2018/5/22 10:29:00
--  [求助]如何让控件横着排列
昨晚看到hanxuntx的一个动态添加按钮的案例,但是不知道里面的意思,代码如下
Dim ss() As String 
Dim name As String = DataTables("按钮名称").GetComboListString("按钮名称",,"_Identify")
Dim i As Integer = 0
ss = name.Split("|")
For Each s As String In ss
    Dim sb As WinForm.Button
    Dim t As Integer
    sb = e.Form.CreateControl(s,ControlTypeEnum.Button)
    sb.Text = s
    sb.Left = 20
    sb.Top = i*20 + 20
    i = i +2
    e.Form.SetBounds(0,0,115,sb.Top + 40)
    e.Form.AddControl(sb) 
Next
请问如何实现按钮横向排列,还有能否讲解下各行代码的意思呢?还有如何将多个窗口的代码实现动态识别添加呢
[分享]动态添加按钮 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!  http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=13865&page=6

--  作者:188802386
--  发布时间:2018/5/22 10:34:00
--  
感觉用这个功能延伸出去可以做一个动态主界面菜单,再配合权限控制,再在全局事件click事件中加入Forms(e.sender.Text).Open就超级完美了,不知有哪位大侠能帮我实现这个愿望呢

--  作者:有点甜
--  发布时间:2018/5/22 10:34:00
--  

很简单的代码啊。

 

1、循环每一个按钮名称;

 

2、添加一个按钮,然后设置left、top属性控制位置;

 

3、left固定为20;top不断累加,从20到40到60这样累加下去。


--  作者:188802386
--  发布时间:2018/5/22 11:06:00
--  
请问如何做到 表A 中 窗口名列 和  按钮名称列 实现自动添加按钮呢   
--  作者:有点甜
--  发布时间:2018/5/22 11:17:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=119284