在列表框中单击项目时打开另一个窗体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

在你的第二个表格的子窗体的代码窗口

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 

在你的孩子表单添加代码以打开嵌入式pdf阅读器中的filePath。可能在显示的事件处理程序中。不是Load事件处理程序。

要查看你的程序中的PDF文件，这可能有助于 Displaying a PDF in a control in Visual Basic 2010