Private Sub Open_Button_Click(sender As Object, e As EventArgs) Handles Open_Button.Click Dim openFileDialog As New OpenFileDialog() openFileDialog.CheckFileExists = True openFileDialog.CheckPathExists = True openFileDialog.FileName = "" openFileDialog.Filter = "All|*.*" openFileDialog.Multiselect = False openFileDialog.Title = "Open" If openFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then Dim fileReader As String = My.Computer.FileSystem.ReadAllText(openFileDialog1.FileName) TextBox.Text = fileReader End If End Sub
<span id="text">Text</a>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)