求Vb编程代码

效果:一个输入框,当用户输入文字的时候,它会自动在C盘生成一个TXT文件

追问：来自手机问问怎么没有生成TXT文档

答案：

新建工程，里面有form1，另外添加一个窗体form2。在form1里有text1text2label1timer1和Command1共5个控件。在代码窗口粘贴以下代码： PrivateSubCommand1_Click()IfText1.Text="123"AndText2.Text="123"Then 'text1是帐号，text2是密码Label1.Caption="正在登录，请稍后..."Timer1.Interval=3000 '延迟3秒显示ElseMsgBox"你输入的密码或帐号不正确",32,"密码错误"Text1=""Text2=""EndIfEndSub PrivateSubForm_Load()Text1=""Text2=""Text2.PasswordChar="*"EndSub PrivateSubTimer1_Timer()UnloadForm1  '直接关闭form1。如果需要是隐藏的就写成form1.hideForm2.ShowEndSub小学VB，略懂。如有不明，请加527608906
'添加Text1
Private Sub Text1_Change()
    Open "C:\记录.TXT" For Output As #1 '打开文件
        Print #1, Text1.Text  '         覆盖写入文件
    Close #1 '                          关闭文件，释放内存
End Sub
==二马慧芳==
用open函数！input参数是读出output参数是写入当不存在此文件时则创建一个文件


Private Sub Form_Load()
Timer1.Interval = 100
End Sub


Private Sub Timer1_Timer()
    Open "C:\Text1文本记录.txt" For Output As #1 '创建文件并打开
        Print #1, Text1.Text  ' 写入文本框内容
    Close #1 '关闭文件
End Sub
'请画一个时钟控件和一个文本框
首先要用API中的一个函数获得输入框的句柄,之后用open "C:\123.TXT"  for input as #1 
Private Sub Text1_Change()
Dim s
s = Text1.Text
If Text1.Text = "" Then
s = 0
End If
If Asc(s) < 0 Then ' 在VB中，中文的ASCII值总是负值
Open "c:\s.txt" For Output As #1
Close #1
End If
End Sub
End If
Next
End Sub
感觉这代码不是很好，凑合着用吧！

上一个：VB怎么编写聊天框
下一个：关于VB编程问题