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:	Views:  19.550
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.