发信人: gaibohan()
整理人: jchao(1999-08-31 16:57:37), 站内信件
|
【 在 chinalady (judy) 的大作中提到: 】
: 你好！
: 我教judy,最近心血来潮想学VB，但问题多多，在这里我有一个愚蠢的问题
: 想请教：
:
: .......
加一个text框,填写text 的 keypress事件,检查按键(keyascii)是否为13(回车)
:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then Exit Sub
Dim filename As String
Dim a, b, c, d As String
Open filename For Input As #1============做你要做的事
Write #1, a, b, c, d
Close #1
End Sub
如果还有问题,欢迎给我E-mail,E-mail:[email protected]
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.102.191.42]
|
|