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

看板Programming作者時間18年前 (2006/07/13 12:01), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/9 (看更多)
※ 引述《leon329 (從缺)》之銘言: > 想達成輸入 a~i,讓它觸動個別的 command_click 指令(1~20) > 使用controls() 寫在 text_keydown 中 > 失敗 :( > Private Sub text1_KeyDown(KeyCode As Integer, Shift As Integer) > If KeyCode = vbKeyReturn Then > For i = 0 To 19 > If Text1.Text = "a" + i or Text1.Text = "A" + i Then Chr(96 + i) Chr(64 + i) > ^^^^^^^^^ 相信這邊有錯,下面的是最重要的 > Controls ("call command_click" & i + 1) > ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ > controls的功能不太了解,因此這邊字有排列過,依然有錯吧 @@' > End If > Next > End if > 有前輩知道該怎麼做可以達成? > 另外,物件的顯示方面,monthview會被某些text擋住,我該調整什麼屬性呢?? > 謝謝 ^^" 我怎麼看怎麼怪>< 是在Text1中是不是只能輸入一個字元 在輸入完後他會自己去執行 你command_click 中的程式 如果是這樣你為什麼不寫個副程式 在Text1_KeyDown中寫成 Select Case KeyCode Case 65 ~ 73 (這兒實際語法忘了><) 副程式 (KeyCode) Case 97 ~ 105 副程式 (KeyCode) Case Else Text1.text="" End Select 副程式 (KeyCode) 以下為你要處理的東西 這樣應該可以吧 我是用VB6....如果有出入..也請大大指導一下 -- ┌─────KKCITY─────┐ ◢╱ 只要你通過身份認證 ~ ◥█ bbs.kkcity.com.tw 免經驗、五人連署即開班系板 └──From:220.229.203.163 ──┘ ◥╲ 趕快為班上設個秘密基地吧! --
文章代碼(AID): #14jSM000 (Programming)
文章代碼(AID): #14jSM000 (Programming)