vb中用变量表示控件名
vb中用变量表示控件名 -
回答:是做不到的,只能使用控件数组其实呢,是有办法实现的,但需要一个vba6.dll控件,然后声明EbExecuteLine函数,然后就可以使用ExecuteLine 函数了,使用这语句ExecuteLine Text1.Text 就可以运行在Text1里输入的代码。Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As好了吧!
Set oCtrl = Controls.Add("VB.CommandButton", trim(str(i)))next
回答:是做不到的,只能使用控件数组其实呢,是有办法实现的,但需要一个vba6.dll控件,然后声明EbExecuteLine函数,然后就可以使用ExecuteLine 函数了,使用这语句ExecuteLine Text1.Text 就可以运行在Text1里输入的代码。Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As好了吧!
Set oCtrl = Controls.Add("VB.CommandButton", trim(str(i)))next
可以的,你把控件的Name改为一样的,把Index属性改为不同的就行了,
For i = 1 To 10 Controls("L" & i).Caption = rs("hkf")Next i这是一种歪门邪道的方法,效率上比控件数组要差一些,所以不建议用。
VB.NET如何用字符串加变量的形式来申明控件?比如说定义24个label,有l...
字符串加变量?还是用类似于VB6的控件数组方便些:Dim lbl() = { Label1, Label2, Label3, 还有呢? } '先将窗体上的Label控件定义为数组i=1 lbl(i).Text = "xxxx" '然后当作控件数组来用,
dim 变量as button 变量=TestButton3 变量.Enabled = True 另外你需要做什么?为什么要修改控件名?
VB.NET 变量和字符串组成控件名 -
直接For就行了Dim ctl As Control Dim lbl as Label For Each ctl In Me.Controls If ctl.GetType.ToString = "System.Windows.Forms.Label" Then lbl = CType(ctl,Label)'得到一个Label,可以对它进行赋值操作了Msgbox lbl.Name End If Next 后面会介绍。
calltype 必需的;常数。一个vbCallType 类型的常数,代表正在被调用的过程的类型。arguments() 可选的:变体型(数组)。说明CallByName 函数用于获取或者设置一个属性,或者在运行时使用一个字符串名称来调用一个方法。在下面的例子中,第一行使用CallByName 来设置一个文本框的MousePointer 属性,第是什么。
vb 控件数组名如何用变量表示 -
UBound返回数组最大下标你的Text1控件是数组形式UBound就是数组的最大下标例如你声明的数组是text1(10),那么Text1.UBound就是10 例如:For i = 0 To Text1.UBound Text1(i).Locked = True
可以的,这样用:dim a(10) as single for i = 1 to 10 a(i)=val(text(i).text)next i