Re: [VB6 ] 輸入字元 ，讓特定的元件動作?

[fumizuki (矇面加菲獅)]

找到哪裡的問題了...
第一，因為事件觸發順序的關係，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