richtextbox eigene befehle

MVN050 · 8. Februar 2013, 20:02

moin leute
und zwar folgendes
sorry bin leider anfänger in vb...

in der richtextbox gibt es ja den befehl bzw sub wenn man in der richtextbox auf ein link klickt das dan was passiert...
wie kann ich aber auch eigene befehle eige sub... kp wie ich das nennen soll... erstellen?
also das zb sowas in der richtextbox steht
hallo klick mich :msgbox-ich bin eine msgbox:
im chat steht und wenn man aufklickt soll eine msgbox mit dem inhalt "ich bin eine msgbox" kommen...
ich hoffe ihr wisst was ich meine

für eine url/links in der richtextbox is ja schon alles vorbereitet aber nich für eigene befehle

ErfinderDesRades · 8. Februar 2013, 21:24

vlt. kannstewas mit LinkLabel anfangen - da gibts das Ereignis "LinkClicked".

MVN050 · 8. Februar 2013, 21:34

ja genau das mein ich ja... das hab ich ja
nur ich möchte ja genau sowas einbauen nur etwas eigenes wie linklabel

RodFromGermany · 9. Februar 2013, 09:30

Würde es nicht zunächst genügen, das Wort, das sich unter der Maus befindet, zu identifizieren?
Machst Du eine Form, Label1, RichTextBox1 und folgenden Inhalt:

RichTextBox mit Worterkennung unter der Maus

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
End Function
Private Const EM_CHARFROMPOS& = &HD7
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RichTextBox1.Text = "Dies ist mein Rich-Text(bla)"
End Sub
Private Sub RichTextBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseMove
Dim Text As String
Text = GetWord(e.X, e.Y)
Label1.Text = Text
End Sub
Private Sub RichTextBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown
Dim Text As String
Text = GetWord(e.X, e.Y)
Label1.Text = Text
End Sub
Private Function GetWord(ByVal X As Integer, ByVal Y As Integer) As String
Dim POS, P1, P2 As Integer
Dim chars As Char
Dim feld() As Integer = {X, Y}
' Position des Textzeichens unter dem Mauszeiger auslesen
Dim WriteBuffer As IntPtr = Marshal.AllocHGlobal(8)
Marshal.Copy(feld, 0, WriteBuffer, 2)
POS = SendMessage(RichTextBox1.Handle, EM_CHARFROMPOS, IntPtr.Zero, WriteBuffer)
Marshal.FreeHGlobal(WriteBuffer)
If POS < 0 OrElse POS >= RichTextBox1.Text.Length Then
Return ""
End If
' Wortanfang finden
For P1 = POS To 0 Step -1
chars = CChar(RichTextBox1.Text.Substring(P1, 1))
If Not CheckChar(chars) Then
Exit For
End If
Next P1
P1 = P1 + 1
' Wortende finden
For P2 = POS To RichTextBox1.Text.Length - 1
chars = CChar(RichTextBox1.Text.Substring(P2, 1))
If Not CheckChar(chars) Then
Exit For
End If
Next P2
P2 = P2 - 1
If P1 < P2 Then
Return RichTextBox1.Text.Substring(P1, P2 - P1 + 1)
End If
Return ""
End Function
Private Function CheckChar(ByVal Chars As Char) As Boolean
' Testen auf Trennzeichen eines Wortes
If ((Chars >= "0"c AndAlso Chars <= "9"c) OrElse _
(Chars >= "a"c AndAlso Chars <= "z"c) OrElse _
(Chars >= "A"c AndAlso Chars <= "Z"c) OrElse _
(InStr("äöüÄÖÜß", Chars) <> 0)) Then
Return True
End If
Return False
End Function
End Class

Wenn Du dann "MessageBox" erkennst, kannste z.B. eine werfen.

MVN050 · 9. Februar 2013, 10:03

nein das glaube ich ehr nicht das das reichen würde...
wenn man ja "www.google.de" in die richtextbox schreibt dan wird es ja blau... genau das selbe will ich eben auch nur eben nicht mit einer url sondern mit etwas anderem...
ich kenne das von anderen programmen her da is das ganz einfach gemacht...

RodFromGermany · 9. Februar 2013, 10:13

MVN050 schrieb:

nein das glaube ich ehr nicht das das reichen würde...

Dann mach Dir z.B. ein Dictionary, in dem von Dir unterstützte Worte und Wortgruppen vorkommen und führe bei jedem Text-Change in der Umgebung der geänderten Stelle (Cursor-Position) ein Highlighting durch.

richtextbox eigene befehle

richtextbox eigene befehle

VB.NET-Quellcode

MVN050 schrieb:

Ähnliche Themen

3 Benutzer haben hier geschrieben