vb 根据字符串执行过程

发布网友 发布时间：2022-04-26 12:50

我来回答

共3个回答

热心网友 时间：2022-06-28 09:47

'使用CallByName函数
'==问法1答案
Function a()
MsgBox "a"
End Function
Function b()
MsgBox "b"
End Function
Private Sub Command1_Click() '执行按纽
Control = "a"
CallByName Me, Control, VbMethod
End Sub
问法二答案：
Private Sub Command1_Click()
CallByName Me, Text1.Text, VbMethod
End Sub
'请参考采纳。

热心网友 时间：2022-06-28 09:47

窗口里的代码，添加按钮Command1，然后点击按钮，看看效果，修改一下就是问法2了：

Sub a()
MsgBox "call a"
End Sub

Sub b()
MsgBox "call b"
End Sub

Private Sub Command1_Click()
CallByName Me, "a", VbMethod
CallByName Me, "b", VbMethod
End Sub

没看到，原来有人回答了！！！

热心网友 时间：2022-06-28 09:48

问题一：
xx = Control
For i = 97 To 122
If xx = Chr(i) Then
Call xx
End If
Next i
问题二：
Command 是对象，TextBox中是字符串，不可能将字符串转换为对象，估计不能实现，也许是我孤陋寡闻吧。