作者Hotan (昊天)
看板Visual_Basic
標題Re: [VB6 ] 輸入字元 ，讓特定的元件動作?
時間Thu Jul 13 17:06:23 2006
※ 引述《fumizuki (矇面加菲獅)》之銘言：
: ※ 引述《Hotan (昊天)》之銘言：
: : 想達成輸入 a~i，讓它觸動個別的 command_click 指令(1~20)
: : 使用controls() 寫在 text_keydown 中
: 假設你的文字方塊是Text1，command分別為command1、command2、...
: cmdName = "Command" & CStr(Asc(UCase(Text1.Text))-65)
: CallByName Me, cmdName, VbMethod
謝謝版大的回答，不過我放到keydown中有bug.. 陌生的語法完全不會抓..程式如下
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會被某些text擋住，我該調整什麼屬性呢??
: : 謝謝 ^^"
: 在表單設計狀態點 monthview 物件，點格式功能表，物件層次，移至頂層
vb是英文版的，format下選項灰色居大部份，都不能選 @@
是因為少灌了什麼嗎?? 重拉也一樣
發現text的問題可能比較大，因為monthview其實在其他的text上都在最上面
我複製一般的text，但在那個"位置"上就是不會被擋住...
只能往"位置"上想了@@ 實在太沒道理了....@@
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 202.132.132.184
1F：推 fumizuki:1. 善用 F9 設中斷點，檢查哪行程式有問題 07/13 21:54
2F：推 fumizuki:然後 bug 是什麼沒說清楚，沒人知道你有什麼問題@@ 07/13 21:54
3F：推 fumizuki:2. 複製一般的text @@? 不然你原本的text是什麼o.o? 07/13 21:55