VB 新建函数里使用控件数组怎么定义
就是这样:FunctionWingC(XAsString,Lbl()AsLabel)’吗?使用的时候怎么输入?这样吗:CallWingC(Text1.Text,Me.Wd...
就是这样:Function WingC(X As String, Lbl() As Label)’吗?
使用的时候怎么输入?
这样吗:Call WingC(Text1.Text, Me.Wds)‘←Wds是控件数组
用WingC函数来新建Wds的控件 展开
使用的时候怎么输入?
这样吗:Call WingC(Text1.Text, Me.Wds)‘←Wds是控件数组
用WingC函数来新建Wds的控件 展开
2个回答
展开全部
两种方法,
注意,生成完后默认visible是false ,要可见要置为true,同时位置属性要设置,
1种是直接添加
'下面添加了一个richtext
myfrom.Controls.Add("RichText.RichTextctrl.1", "text1", myform)
‘ 添加textbox
myfrom.Controls.Add("vb.TextBox", "text1", myform)
2 一种是控件数组生成
首先窗口上放一个控件索引定位0,比如先放置一个textbox1(0)
生成代码
load textbox1(1)
....
load textbox1(i)
注意,生成完后默认visible是false ,要可见要置为true,同时位置属性要设置,
1种是直接添加
'下面添加了一个richtext
myfrom.Controls.Add("RichText.RichTextctrl.1", "text1", myform)
‘ 添加textbox
myfrom.Controls.Add("vb.TextBox", "text1", myform)
2 一种是控件数组生成
首先窗口上放一个控件索引定位0,比如先放置一个textbox1(0)
生成代码
load textbox1(1)
....
load textbox1(i)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询