Ich bin derzeit Schüler und in unserer Schule haben wir VBA als Fach.
Ich bin eigentlich gut dabei und wollte Zuhause ein bisschen was ausprobieren.
Ich hab mir bisschen was gebastet.
Was ich machen wollte ist, das wenn jemand etwas bestimmtes sowas wie "ebay" in das Textfeld eingibt, dass sein Standardbrowser Ebay öffnet. Wenn das Programm "ebay" nicht findet, z.B. weil "ebay" falsch geschrieben wurde oder es sich einfach nicht in meiner Liste befindet, dann soll eine Fehlermeldung ausgegeben werden. (Msgbox?)
Mein Problem ist leider nun, dass mein Programm den Inhalt dieser Textbox anscheinend nicht anerkennen will. Er sagt mir, egal was ich eingebe, dass die Seite nicht gefunden wurde.. So wie es eigentlich sein sollte, wenn der Inhalt wirklich nicht gefunden wurde..
Mein Code sieht bisher so aus:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim Champ As String
Champ = Tchamp.Text
#If Champ = "ebay" Then
Process.Start("http://www.ebay.de/")
#Else
MsgBox("Seite nicht gefunden!")
#End If
End Sub
End Class