精華區beta Programming 關於我們 聯絡資訊
==> leoliou.bbs@cis.nctu.edu.tw (高三壞男孩) 提到: > 在一個畫面中, > 請問要如何寫個程式, > 控制按下"Enter"鍵呢? > -- > * Origin: ★ 交通大學資訊科學系 BBS ★ <bbs.cis.nctu.edu.tw: 140.113.23.3> 範例:在text中輸人滿四個字後,自動按下enter跳下一行 Private Sub Text1_Change() If Len(Trim(Text1.Text)) = 4 Then Call Text1_KeyPress(13) End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{tab}" End If End Sub 不知道是不是你想要的東東? -- ☆ [Origin:椰林風情] [From: h70.s125.ts30.hinet.net] [Login: 43] [Post: 19] ☆ [Origin:椰林風情] [From: h70.s125.ts30.hinet.net] [Login: 43] [Post: 20]