Открыть другую форму при нажатии элемента в ListBox VB.net

Question

Я администратор сети, которому было поручено создать систему безбумажного соединения. Поэтому сейчас я смотрю на VB.net как на свою платформу. Моя цель - заполнить список с элементами внутри папки, используя их имена файлов, это в основном файлы PDF. Поэтому я достиг этой цели, и когда я нажимаю элементы в списке, открывается файл в папке. Я хочу, если щелкнуть элемент в списке, появится другая форма. Эта форма имеет встроенный PDF-ридер и текстовое поле для комментариев. текстовое поле будет сохранено в TXT-файле внутри другой папки. вот мой код

Public Class Form2 

Dim MyFolderPath As String = IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "C:\Users\ICTCAdmin\Desktop\Board Meeting\Academic") 

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Try 

     For Each fullpath As String In IO.Directory.GetFiles(MyFolderPath) 


      ListBox1.Items.Add(IO.Path.GetFileName(fullpath)) 
     Next 
    Catch ex As Exception 
     MsgBox(ErrorToString) 
    End Try 
End Sub 

Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 
    Form1.Show() 
End Sub 

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged 
    Dim fullpath As String = IO.Path.Combine(MyFolderPath, ListBox1.SelectedItem.ToString) 
    Process.Start(fullpath) 
End Sub 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

End Sub 
End Class 

Заранее спасибо.

Answer 1

В вашей второй форме создать Friend свойство, как это в верхней части окна

Public Class frmWhateverYourNewFormIsCalled 
    Friend Property filepath As String 

кода дочерней формы в вашем вызывающем виде редактировать свойство listbox1_SelectedIndexChanged этой

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged 
    Dim fullpath As String = IO.Path.Combine(MyFolderPath, ListBox1.SelectedItem.ToString) 
    dim childForm as new frmWhateverYourNextFormIsCalled 
      childForm.filepath = "" 
    childForm.Show() 
End Sub 

В вашем ребенке form добавьте код, чтобы открыть файлPath в встроенном PDF-ридере. Вероятно, в обработчике событий Shown. Не обработчик события загрузки.

Для просмотра документа в программе это могло бы помочь Displaying a PDF in a control in Visual Basic 2010