OpenFileDialog1.ShowDialog() ‘打开文件对话框
openfilename = OpenFileDialog1.FileName ’获取文件名
If OpenFileDialog1.FileName <> "" Then ‘如果文件名不为空 防止出错
Me.TextBox1.Text = ""
Dim str = New StreamReader(openfilename, System.Text.Encoding.Default) ’读取txt文档中的内容
Me.TextBox1.Text = str.ReadToEnd
streamr.Close()
End If
以上是打开
下面是写入
Dim path As String = "C:\text.txt " ‘定义保存路径
Try
Dim sw As StreamWriter = New StreamWriter(path)
sw.WriteLine(textbox1)’写入
sw.Close()
Catch ex As Exception
Console.WriteLine("The process failed: {0} ", e.ToString())
End Try
vb.net 代码,vb用的话得改写内容,另外你的全选不知道什么意思
追问全选就是按ctrl+A的全选文字的功能.
能不能再详细点. 包括触发事件、每一句的解释什么的,劳驾,我是学习。
不过这个我直接复制粘贴不能用的,触发事件是什么?
您能不能用VB做代码,能运行后复制给我。要不frm的文字代码也行。
追答全选
textbox1.focus
textbox1.selectall
我没有vb程序,无法调试