Ok...I need to find a hyperlink in a string coming from one text box to another...
dim sData as string
dim TheLink as string
private sub cmdSend_Click()
text1.text = text2.text & vbcrlf
sData = text2.text
Text2.text = ""
Now I need to tell if sdata has a hyperlink in it and if so catch the hyperlink starting at (http://
) would do and
end at (.com,.net,.org etc) so that is link is populated with the hyperlink... (http://www.whatever.com)...then
, to finish, I need to obviously make the link blue and underlined and if possible, clickable and change the mouse pointer etc... like yahoo messanger or msn messanger. I can user RTF text boxes if needed, but normal text boxes might be better, i also have a legit copy of txtext control v6 if someone has an example or something using that... I knwo this has been done already and I really don't want to re-invent the wheel here...
I breifly tried
Private Function IsHyper()
If sData = "" Then
Dim LookHyper 'Store the string
LookHyper = Split(sData, "http://
", -1) 'check for hyperlink
If LookHyper(0) <> "" Then ' if "" then nothing found otherwise we have a hyper link
IsHyper = True ' set is hyperlink to true
IsHyper = False ' no hyperlink found
LookHyper = "" ' clear the string
sData = ""
I always get true after sending a link...hmmmmmm
I will set the points to 50.
again thanks for looking at this.