==> 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]