VB - Нажмите ту же кнопку Дважды

Question

Im новое для VB и искал в интернете ответ.

Im пытается создать пусковую установку, которая позволяет вам просто найти ваш exe и запустить exe.

Проблема в том, что я не могу понять, как выполнить эти 2 действия всего за 1 кнопку.

например: Нажмите «Воспроизвести», откроется папка, в которой вам нужно найти ваш exe, после того, как его папка будет закрыта, а затем, когда вы снова нажмете «Play», он запустит allready находящийся 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