安全生产事故预防:VB控件问题

来源：百度文库编辑：查人人中国名人网时间：2024/05/05 02:51:19

假如我有一变量a
dim a as string
a="label1.caption"
我怎么样用a来使label1.caption="command"
???
我的意思是怎么用a来替代label1.caption
...........

楼主的意思我明白,您可以用api函数EbExecuteLine,它能执行一个字符串语句,全部代码如下:
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Private Sub Form_Load()
Dim a As String
a = "Label1.Caption"
ExecuteLine "Form1." & a & "=" & Chr(34) & "command" & Chr(34)
End Sub
这里把EbExecuteLine函数改造成更易用的函数ExecuteLine.另外应该注意一定要加一个Fomr1.，否则出现一个要求对象的错误.

哈哈,给分吧。。。

dim a as string
a = "command"
label1.caption = a

楼上说得对

VB的控件问题 vb控件问题，帮帮忙 vb定时器控件问题. vb 控件问题。帮帮忙 vb 控件问题。帮帮忙 vb-combo控件问题 vb控件操作问题 vb combo控件问题 VB控件问题 vb的控件问题