Question

我是VB新手，一直在网上寻找答案。

我试图创建一个启动程序，允许您只需找到您的exe并运行exe。

问题是我无法弄清楚如何只用一个按钮就能完成这两项操作。

例如：单击“播放”将打开一个文件夹，您必须在其中找到您的exe文件，一旦它找到文件夹关闭，然后当您再次按“播放”时，它将启动已经找到的所有exe文件。

到目前为止我得到的是：

Private Property TextBox As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        TextBox = OpenFileDialog1.FileName("/Wow.exe")
        Process.Start(TextBox)
    End Sub
End Class

它按照我的意愿“差不多”工作。截至目前，当我按“播放”时，它只是打开一个文件夹，我可以选择.exe，然后当文件夹关闭时，它会自动打开.exe。当我再次按下“播放”按钮时，它会重复此过程。如果我按下文件夹上的“退出按钮（右上角）”，它甚至会启动.exe。

如果它不是已经选择的正确文件，是否可以使它出现错误？

希望你能帮助我。提前谢谢。

Answer 1

这样的事情怎么样：

Private filePath As String = String.Empty

Private Sub PlayButton_Click(sender As System.Object, e As System.EventArgs) Handles PlayButton.Click
    Try
        If filePath.Length = 0 Then
            Dim diagResult As DialogResult = OpenFileDialog1.ShowDialog()
            If diagResult = Windows.Forms.DialogResult.OK Then
                filePath = OpenFileDialog1.FileName
                If filePath.ToUpper.EndsWith("WOW.EXE") Then
                    Process.Start(filePath)
                Else
                    MessageBox.Show("Wrong file selected!")
                    filePath = String.Empty
                End If
            End If
        Else
            Process.Start(filePath)
        End If

    Catch ex As Exception
        MessageBox.Show(String.Concat("An error occurred in the play button click:", ex.Message))
    End Try

End Sub

VB - 单击相同按钮两次

1 个答案: