作者Hotan (昊天)
看板Visual_Basic
標題Re: [VB6 ] 輸入字元 ，讓特定的元件動作?
時間Thu Jul 13 22:31:02 2006
※ 引述《Hotan (昊天)》之銘言：
: ※ 引述《fumizuki (矇面加菲獅)》之銘言：
: : 假設你的文字方塊是Text1，command分別為command1、command2、...
: : cmdName = "Command" & CStr(Asc(UCase(Text1.Text))-65)
: : CallByName Me, cmdName, VbMethod
: 謝謝版大的回答，不過我放到keydown中有bug.. 陌生的語法完全不會抓..程式如下
我主要是想知道，若在版大覺得程式邏輯或是用法上用錯的話就會提出來
陌生的語法不會抓蟲，當然就是指
cmdname = "Command" & CStr(Asc(UCase(Text1.Text)) - 64)
CallByName Me, cmdname, VbMethod
: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
: Select Case KeyCode
: Case 65 To 84
: cmdname = "Command" & CStr(Asc(UCase(Text1.Text)) - 64)
: CallByName Me, cmdname, VbMethod
: Case Else
: Text1.Text = ""
: End Select
: End Sub
: : 在表單設計狀態點 monthview 物件，點格式功能表，物件層次，移至頂層
: vb是英文版的，format下選項灰色居大部份，都不能選 @@
: 是因為少灌了什麼嗎?? 重拉也一樣
: 發現text的問題可能比較大，因為monthview其實在其他的text上都在最上面
: 我複製一般的text，但在那個"位置"上就是不會被擋住...
: 只能往"位置"上想了@@ 實在太沒道理了....@@
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 202.132.132.184
1F：→ Hotan:cname是 empty，但 cstr(..) 輸出是1沒錯 @@ 07/13 22:32
2F：推 fumizuki:cmdname還沒執行前當然是空的 你要看callbyname那行 07/14 07:42
3F：推 fumizuki:然後你的控制項名稱是不是叫做command1 07/14 07:43
4F：推 fumizuki:相關的副程式 command1_click() 也要存在 07/14 07:43