Uygulamamda bir metin dosyasını açmak için Dosya gezgini'nde Birlikte Aç işlevini nasıl kullanabilirim?

Bunu başarmak için gerçekten tüm Dosya Gezgini'ne ihtiyacınız yok. Kullan... OpenFileDialog sınıf. Dosyayı metin kutusuna okuyabilirsiniz. Kullandığınız metin kutusunun Çok Satırlı True olarak ayarlandığından emin olun.

Private Sub OpenFileInTextBox()
    Dim OFD As New OpenFileDialog
    OFD.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    OFD.Filter = "Text Files (*.txt)|*.txt"
    Dim fileSelected As String = ""
    If OFD.ShowDialog() = DialogResult.OK Then
        fileSelected = OFD.FileName
    Else
        MessageBox.Show("Not file selected")
        Exit Sub
    End If
    TextBox1.Text = File.ReadAllText(fileSelected)
End Sub