作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 输入字元 ，让特定的元件动作?
时间Sat Jul 15 00:03:16 2006
找到哪里的问题了...
第一，因为事件触发顺序的关系，KeyDown 的时候，TextBox 的内容尚未改变：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA To vbKeyT
cmdname = "Command" & CStr(
KeyCode - (vbKeyA - 1) & "_click"
Case Else
Text1.Text = ""
Exit Sub
End Select
CallByName Me, cmdname, VbMethod
End Sub
第二，被 CallByName 呼叫的副程式必须为公有方法：
Public Sub Command1_Click()
MsgBox 1
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.184.116.195