Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
成都创新互联公司是一家专业提供加格达奇企业网站建设,专注与网站建设、成都网站设计、HTML5建站、小程序制作等业务。10年已为加格达奇众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
RichTextBox1.Text = "1" vbCrLf "2" vbCrLf "3"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim SaveFileDialog1 As New SaveFileDialog()
SaveFileDialog1.Filter = "txt files (*.txt)|*.txt"
If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, 3)
End If
End Sub
Dim SaveFileDialog1 As New SaveFileDialog()
'创建一个保存对话框
SaveFileDialog1.Filter = "txt files (*.txt)|*.txt"
'设置
扩展名
If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
'如果确定保存
My.Computer.
FileSystem
.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False)
'保存文本,False表示不追加文本，直接覆盖其内容
End If
把sw.writeline放在循环体里面就好了，至于每行加号码，字符串连接就行