Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filename As String
If op1.ShowDialog = Windows.Forms.DialogResult.OK Then
filename = op1.FileName
TextBox2.Text = filename
'TextBox2.Text = My.computer.filesystem.readalltext(filename)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim filename As String
sa1.InitialDirectory = "c:\"
sa1.Filter = "txt files(*.txt)|*.txt|all files(*.*)|*.*"
sa1.FilterIndex = 1
If sa1.ShowDialog = Windows.Forms.DialogResult.OK Then
filename = sa1.FileName
TextBox2.Text = filename
'My.computer.filesystem.writealltext(sa1.FileName, TextBox1.Text, True)
End If
End Sub
sa1 为savefiledialog控件
op1 为OpenFileDialog控件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filename As String
If op1.ShowDialog = Windows.Forms.DialogResult.OK Then
filename = op1.FileName
TextBox2.Text = filename
'TextBox2.Text = My.computer.filesystem.readalltext(filename)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim filename As String
sa1.InitialDirectory = "c:\"
sa1.Filter = "txt files(*.txt)|*.txt|all files(*.*)|*.*"
sa1.FilterIndex = 1
If sa1.ShowDialog = Windows.Forms.DialogResult.OK Then
filename = sa1.FileName
TextBox2.Text = filename
'My.computer.filesystem.writealltext(sa1.FileName, TextBox1.Text, True)
End If
End Sub
sa1 为savefiledialog控件
op1 为OpenFileDialog控件