※ 引述《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....如果有出入..也请大大指导一下 -- ┌─────◆ＫＫＣＩＴＹ◆─────┐ ◢╱ 只要你通过身份认证 ~ ◥█ │ bbs.kkcity.com.tw │ █▉─ 免经验、五人连署即开班系板 ◥ └──《From:220.229.203.163 》──┘ ◥╲ 赶快为班上设个秘密基地吧! ◢ --