单击 ListBox VB.net 中的项目时打开另一个表单

Question

我是一名网络管理员，任务是建立无纸化会议系统。所以现在我将 VB.net 作为我的平台。我的目标是使用文件夹中的项目的文件名填充列表框，它主要是 PDF 文件。所以我已经实现了这个目标，当我单击列表框中的项目时，文件夹中的文件就会打开。我想要的是，如果我单击列表框中的一个项目，将显示另一个表单。此表单有一个嵌入式 pdf 阅读器和一个用于 cmets 的文本框。文本框将保存在另一个文件夹内的 .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

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

要在您的程序中查看 pdf，这可能会有所帮助 Displaying a PDF in a control in Visual Basic 2010