0

好的，所以我制作了两个程序。程序一个在用户单击列表视图项后以不同的方式打开一个 Flash 文件。我在程序一没有工作后制作的程序二。程序二做同样的事情，除了用户点击一个按钮。现在令人困惑的是，我对两个程序都使用了相同的代码，但是我的程序二可以工作，而我的程序一不能。有什么建议吗？这是两者的编码。这是方案二。

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    If Debugger.IsAttached Then
        AbsoluteRef = Path.GetFullPath(Application.StartupPath & "\..\..\Resources\")
    Else
        AbsoluteRef = Application.StartupPath & "\Resources\"
    End If
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    mefind = AbsoluteRef & shockfile & "ms access 4.swf"

    Form1.ShowDialog()
End Sub

在我的模块中，我将 mefind 和Shockfile 声明为字符串，但Shockfile 等于字符串“\Flash\”

和程序一

Private Sub LvVideo_DoubleClick(sender As Object, e As EventArgs) Handles LvVideo.DoubleClick
    If LvVideo.SelectedItems.Count > 0 Then
        Select Case LvVideo.SelectedItems(0).Text
            Case "MS Access 1"
                FlashVideos = AbsoluteRef & shockfile & "msaccessc1_demo1.swf"
                frmVideos.ShowDialog()
            Case "MS Access 2"
                FlashVideos = AbsoluteRef & shockfile & "msaccessc2_demo1.swf"
                frmVideos.ShowDialog()
            Case "MS Access 3"
                FlashVideos = AbsoluteRef & shockfile & "msaccessc3_demo1.swf"
                frmVideos.ShowDialog()
            Case "MS Access 4"
                FlashVideos = AbsoluteRef & shockfile & "ms access 4.swf"
                frmVideos.ShowDialog()
        End Select
    End If
End Sub

但是就像我说的那样，一方面有效，我尝试过很多事情，例如关闭 vs 并添加不同的冲击波对象来很好地创建一个新程序来尝试弄清楚发生了什么。我真正感到困惑的是我的第二个应用程序正在运行而我的第一个没有

4

0 回答 0