看板 Visual_Basic 關於我們 聯絡資訊
※ 引述《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 因為我移到 Ucase(text1.text) 的 text1.text 有值說 我被誤導囉? @@ : 第二,被 CallByName 呼叫的副程式必須為公有方法: : Public Sub Command1_Click() : MsgBox 1 : End Sub 第二點不太懂,而且 function 不能叫command1_click() ambiguous name detected: command1_click -- -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 202.132.132.184
fumizuki:你有重覆的名稱 07/15 17:03