关于vb文件控制问题,text文本框写入记事本
如图,我想实现的功能是:1:点击按钮1后text1种的“一”被写入指定记事本(比如e:/newfile.txt)第一行。2:点击按钮2后text2中的“二”被写入同上记事...
如图,我想实现的功能是:
1:点击按钮1后text1种的“一”被写入指定记事本(比如e:/newfile.txt)第一行。
2:点击按钮2后text2中的“二”被写入同上记事本“一”的后面,二者之间加三个空格的位置,就是想把他们隔开。
3:按钮3和按钮4功能以此类推
4:清除换行的功能是:擦去4个文本框的文本,并在上面的记事本中换行,让下一次点击按钮1的时候text1里面的文本能写入记事本第二行的开头。
谁帮我下 我自己学习中, 展开
1:点击按钮1后text1种的“一”被写入指定记事本(比如e:/newfile.txt)第一行。
2:点击按钮2后text2中的“二”被写入同上记事本“一”的后面,二者之间加三个空格的位置,就是想把他们隔开。
3:按钮3和按钮4功能以此类推
4:清除换行的功能是:擦去4个文本框的文本,并在上面的记事本中换行,让下一次点击按钮1的时候text1里面的文本能写入记事本第二行的开头。
谁帮我下 我自己学习中, 展开
展开全部
Sub SaveTxt(s As String)
Open "e:\newfile.txt" For Append As #1
Print #1, s;
Close #1
End Sub
Private Sub Command1_Click() '按钮1
SaveTxt Text1.Text
End Sub
Private Sub Command2_Click() '按钮2
SaveTxt " " & Text2.Text
End Sub
Private Sub Command3_Click() '按钮3
SaveTxt " " & Text3.Text
End Sub
Private Sub Command4_Click() '按钮4
SaveTxt " " & Text4.Text
End Sub
Private Sub Command5_Click() '清除换行
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
SaveTxt vbCrLf
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询