以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态增加控件时,怎么根据数据表设定,选择控件类型  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130042)

--  作者:淡月斜阳
--  发布时间:2019/1/11 15:56:00
--  动态增加控件时,怎么根据数据表设定,选择控件类型
控件的类型是由数据表决定的,类型设定为,Lable,TextBox,等

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)


如上代码:WinForm.Label,怎么能动态拼成,winform.textbox。

ControlTypeEnum.Label,拼成ControlTypeEnum.Textbox


--  作者:淡月斜阳
--  发布时间:2019/1/11 15:58:00
--  
二楼是控件表的样式

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

[此贴子已经被作者于2019/1/11 15:59:09编辑过]

--  作者:有点色
--  发布时间:2019/1/11 16:14:00
--  

必须通过字符判断,如

 

Dim lbl As object

If 某行("控件类型") = "Label" Then

    lbl = e.Form.CreateControl(某行("控件名"), ControlTypeEnum.Label)

ElseIf 某行("控件类型") = "TextBox" Then

    lbl = e.Form.CreateControl(某行("控件名"), ControlTypeEnum.TextBox)

End If