Wie bringe ich dieses Tool dazu den Angepassten Link zu öffnen?
Code
Public Class Form1
Dim ext As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = My.Application.Info.Title
extentionchecker.Start()
End Sub
Private Sub extentionchecker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles extentionchecker.Tick
'Akktiviert bzw deaktiviert den "Eingabe Löschen" Button.
'Je nach dem ob in der Textbox etwas drinnsteht
If TextBox1.Text = "" Then
Button2.Enabled = False
Else
Button2.Enabled = True
End If
End Sub
'MEIN PROBLEM
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Lege Variable su als Link für Extentionsuche fest
ext = "http://shell.windows.com/fileassoc/0407/xml/redir.asp?EXT=" & TextBox1.Text
Shell("cmd.exe start " & ext, AppWinStyle.NormalFocus, True)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
End Sub
End Class
Alles anzeigen