pardon zapomel sem pridat zdrojak :o)
Private Sub Spustit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spustit.Click
Dim app As String
If String.Compare(Me.TextBox1.Text, "icq", StringComparison.CurrentCultureIgnoreCase) = 0 Then
app = "ICQ.exe"
Else
app = Me.TextBox1.Text
End If
System.Diagnostics.Process.Start(app)
End Sub
Private Sub Spustit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spustit.Click
Dim app As String
If String.Compare(Me.TextBox1.Text, "internet", StringComparison.CurrentCultureIgnoreCase) = 0 Then
app = "iexplore.exe"
Else
app = Me.TextBox1.Text
End If
System.Diagnostics.Process.Start(app)
End Sub
|