[abo_ramas]

هذا مثال لعمل واجه Run للاستخدام




تحميل الأداة  هناااااااااااااااااا

السورس

كود :

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try
           Diagnostics.Process.Start(ComboBox1.Text)
       Catch ex As Exception
           MsgBox(ex.Message & ". Please type correct name the project.", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, ComboBox1.Text)
       End Try
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Me.Close()
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim rs As MsgBoxResult
       OpenFileDialog1.Filter = "Program File|*.exe"
       OpenFileDialog1.Title = "Select the file to open."
       rs = OpenFileDialog1.ShowDialog
       If rs = MsgBoxResult.Ok Then
           ComboBox1.Text = OpenFileDialog1.FileName
       End If
   End Sub
End Class