Question

好的，我做了两个节目。程序一打开一个与用户点击listview项后不同的flash文件。程序二我没有工作后制作的程序。除了用户点击按钮之外，程序2执行相同的操作。现在令人困惑的是，我为两个程序使用了相同的代码，但我的程序有两个工作，而我的程序没有。任何建议？这是两者的编码。这是第二阶段。

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和添加一个不同的shockwave对象来创建一个新的程序来试图弄清楚发生了什么。我真的很困惑的是我的第二个应用程序正在工作而我的第一个应用程序不是

在另一个表单上打开flash文件

0 个答案: