Hej alla hjälpliga personer.

Jag har en kompis här som vill att jag ska göra ett ordbehandlingsprogram till honom.

Problemet är bara att han vill när man skriver in en länk i texten skall den automatiskt bli blå och understruken och när man trycker på den skall webbläsaren starta och gå in på sidan. (precis som i Word med andra ord).

Hur gör man?

MvH Dan "DaPe" Persson

Det skall finnas som exempel i tips & tricks om jag inte minns fel. Se på common controls|richtext. Ta även en titt på www.vbaccelerator.com för olika lösningar
/Pelle

När det gäller att göra om texten till länkar har jag kommit så här långt. Hur man sen ska kunna klicka på dem får jag fundera på senare.
Felet är att ingenting händer när jag klickar på knappen som utför denna funktionen, varför?


Private Sub ColorTags(rch As RichTextBox)
Dim txt As String
Dim tag_open As Integer
Dim tag_close As Integer

txt = rch.Text
tag_close = 1
Do
' Se var taggen starar.
tag_open = InStr(tag_close, txt, "www")
If tag_open = 0 Then Exit Do

' Se var taggen slutar.
tag_close = InStr(tag_open, txt, ".se" or ".com" or ".edu" or ".org" or ".nu")
If tag_open = 0 Then tag_close = Len(txt)

' Färglägg taggen
rch.SelStart = tag_open - 1
rch.SelLength = tag_close - tag_open + 1
rch.SelColor = vbBlue
rch.SelBold = true
Loop
End Sub

Tacksam för svar!

MvH Dan "DaPe" Persson