Hyperlinks in der RichTextBox (VB.NET) Dieses Beispiel zeigt, wie man Hyperlinks in der RichTextBox hervorhebt und auf Klicks reagieren kann.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  19.535
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 6 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Im nachfolgenden Beispiel zeigen wir, wie einfach man Hyperlinks im Text einer einer RichTextBox hervorheben und auf deren Klicks reagieren kann.

Um Hyperlinks hervorzuheben, braucht man einfach nur die DetectUrls-Eigenschaft auf True setzen. Beim Klick auf einen Hyperlink wird dann das LinkClicked-Ereignis ausgelöst. Den betroffenen Hyperlink kann man anschließend über die LinkText-Eigenschaft des Parameters e abfragen.

Ein kleines Beispiel
Platzieren Sie auf die Form ein RichTextBox-Control und fügen nachfolgenden Code in den Codeteil der Form ein:

Public Class Form1
  Inherits System.Windows.Forms.Form
 
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    With RichTextBox1
      ' Beispieltext
      .Text = "Hyperlinks in der RichTextBox (VB.NET)" & vbCrLf & vbCrLf & _
        "Diesen Tipp finden Sie unter: http://www.vbarchiv.net"
 
      ' URL's autom. hervorheben
      .DetectUrls = True
    End With
  End Sub
 
  Private Sub RichTextBox1_LinkClicked(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.LinkClickedEventArgs) _
    Handles RichTextBox1.LinkClicked
 
    ' bei Klick auf Hyperlink autom. die URL im 
    ' Standard-Browser öffnen
    System.Diagnostics.Process.Start(e.LinkText)
  End Sub
End Class