quelqu'un pourrait m'aider à coder les tabulations dans un "richtextbox"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 9 Then RichTextBox1.SelText = vbTab KeyCode = 0 End If End Sub
Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift 2 And KeyCode 9 Then RichTextBox1.SelText = vbTab KeyCode = 0 End If End Sub
Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift 4 And KeyCode 32 Then RichTextBox1.SelText = vbTab KeyCode = 0 End If End Sub
Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer) Me.Caption = KeyCode End Sub
Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown Me.Text = e.KeyCode End Sub
Private Sub RichTextBox1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles RichTextBox1.PreviewKeyDown If e.KeyCode = 9 Then RichTextBox1.Text &= vbTab End If End Sub