7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
kgdlnyq 2004-09-06
- 打赏
- 举报
谢谢各位的回答！！
northwolves 2004-09-05
- 打赏
- 举报
夜猫啊，三更半夜还不睡，呵呵
BlueBeer 2004-09-05
- 打赏
- 举报
哇，楼上的那么绝啊，一句也不留给我说了：）
rainstormmaster 2004-09-05
- 打赏
- 举报
Private Sub Command2_Click()
Dim obj As Object
Dim mstr As String
mstr = "text1"
Set obj = CallByName(Me, mstr, VbGet)
CallByName obj, "text", VbLet, "hello"
End Sub
Dim obj As Object
Dim mstr As String
mstr = "text1"
Set obj = CallByName(Me, mstr, VbGet)
CallByName obj, "text", VbLet, "hello"
End Sub
rainstormmaster 2004-09-05
- 打赏
- 举报
窗体上一个按纽，一个textbox：
Option Explicit
Private Sub Command1_Click()
Dim mstr As String
mstr = "text1"
Controls(mstr).Text = "也可以用callbyname实现"
End Sub
Option Explicit
Private Sub Command1_Click()
Dim mstr As String
mstr = "text1"
Controls(mstr).Text = "也可以用callbyname实现"
End Sub
碧海情天-赵亮 2004-09-05
- 打赏
- 举报
同意楼上的。
只能靠名称检测来做。
只能靠名称检测来做。
netwan 2004-09-05
- 打赏
- 举报
for each tmpTextbox in controls
if tmpTextbox.name=strTextboxname then
tmpTextBox.text="你好"
msgbox tmpTextbox.text
end if
next for
大概是这样吧,没有加错误处理.
if tmpTextbox.name=strTextboxname then
tmpTextBox.text="你好"
msgbox tmpTextbox.text
end if
next for
大概是这样吧,没有加错误处理.
renjunjun 2004-09-05
- 打赏
- 举报
Str.Text="你好!"
Msgbox Str.Text
是不是在问这个?
Msgbox Str.Text
是不是在问这个?
