vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Controls · TextBox & RichTextBox   |   VB-Versionen: VB5, VB605.05.08
RichTextBox - bei Rechtsklick Cursor setzen

Standardmäßig wird der Cursor im RichTextBox-Control nur beim Linksklick auf die entsprechende Textstelle gesetzt. Hier zeigen wir eine Möglichkeit, wie man den Cursor auch beim Rechtsklick entsprechend setzen kann.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  9.825 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Bei Verwendung des RichTextBox-Controls wird der Cursor standardmäßig nur beim Linksklick auf die entsprechende Textstelle positioniert. Beim Rechtsklick hingegen bleibt der Eingabecursor an der aktuellen Einfügemarke stehen. Manchmal will man aber, dass der Eingabecursor auch beim Rechtsklick entsprechend gesetzt wird.

Nachfolgend eine Möglichkeit, wie sich das Ganze durch "Siumlieren" eines Linksklicks realisieren lässt:

Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, _
  x As Single, y As Single)
 
  If Button = vbRightButton Then
    ' Links-Klick simulieren
    SendMausklick MOUSE_LEFT
  End If
End Sub

Den benötigten Code zur Funktion "SendMausklick" finden Sie hier:
 Mausklick simulieren