Gruss Caddy

Public Class frmTest
    Private Sub frmTest_KeyDown(sender As Object, _
      e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If RichTextBox1.Focused Then
            e.SuppressKeyPress = True
        End If
    End Sub
 
    Private Sub frmTest_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub
End Class

Gruss Caddy

Beitrag wurde zuletzt am 01.04.11 um 16:40:46 editiert.

Private Sub MouseDown(sender As Object, _
        e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown
    CType(sender, RichTextBox).Selectionstart = 0
End Sub

Gruss Caddy