✔ inhalt der textbox auf hyperlink überprüfen

[rihab79]

hallo,
ich habe eine textbox, in der nur hyperlinks eingefügt werden sollen.
falls was anderes eingegeben wird, soll eine fehlermeldung erscheinen.
in meinem nachschlagebuch habe ich sowas gefunden:

private sub ttis_validate(keepfocus as boolean)
if not isdate(ttis.text) then
keepfocus = true
msgbox "bitte datum eingeben"
end if
end sub

die anpassung von date auf hyperlink ist bei vb6 nicht mitintegriert.. jetzt weiss ich nicht, wie ich das anpassen muss...
vielen lieben dank im voraus

 

[Masterclavat]

Guten Morgen,

vielleicht könntest du ja eine einfache Prüfung aufs http:// machen. Z.B. so:

Dim Link As String
   Link = Trim(Text2.Text)
   If Not LCase(Left(Link, 7)) = "http://" Then
      MsgBox "Geben sie einen gültigen Link ein!"
   Else
      Text1.Text = Link
   End If

Natürlich kannst/musst du alle anderen Protokolle (ftp usw.) zu der Prüfung hinzufügen.
Das funktioniert aber nur, wenn auch bei jedem Link das Protokoll angegeben wird. Es ist sicher nicht das gelbe vom Ei, aber ein recht guter Anfang denke ich.

 

[rihab79]

super danke