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

看板Visual_Basic作者 (昊天)時間19年前 (2006/07/13 16:42), 編輯推噓3(300)
留言3則, 1人參與, 最新討論串3/8 (看更多)
※ 引述《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

07/13 21:54, , 1F
1. 善用 F9 設中斷點,檢查哪行程式有問題
07/13 21:54, 1F

07/13 21:54, , 2F
然後 bug 是什麼沒說清楚,沒人知道你有什麼問題@@
07/13 21:54, 2F

07/13 21:55, , 3F
2. 複製一般的text @@? 不然你原本的text是什麼o.o?
07/13 21:55, 3F
文章代碼(AID): #14jWU43v (Visual_Basic)
討論串 (同標題文章)
文章代碼(AID): #14jWU43v (Visual_Basic)