none
Clic droit dans une richtextbox RRS feed

  • Question

  • Débutant, j'en suis à l'apprentissage du « RichTextBox » et je galère avec le clic droit et le « ContextMenuStrip ».

    Plus simplement, je souhaiterai ouvrir le  « FontDialog » avec un clic droit, mais il n'y a rien à faire. Le clic droit ne marche pas, même quand le « ContextMenuStrip » n'est pas activé.

    Malgré de nombreuses recherches sur internet, je ne trouve pas de réponse à ce problème.

    Merci de m'en donner une.

    jeudi 7 avril 2011 21:24

Réponses

  • Bonjour,

    Public Class Form1
    
      Private fontDialog1 As FontDialog
    
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fontDialog1 = New FontDialog
      End Sub
    
      'Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
      '  fontDialog1.ShowColor = True
    
      '  fontDialog1.Font = RichTextBox1.Font
      '  fontDialog1.Color = RichTextBox1.ForeColor
    
      '  If fontDialog1.ShowDialog() <> DialogResult.Cancel Then
      '    RichTextBox1.Font = fontDialog1.Font
      '    RichTextBox1.ForeColor = fontDialog1.Color
      '  End If
      'End Sub
    
      Private Sub RichTextBox1_MouseDown(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles RichTextBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
          fontDialog1.ShowColor = True
    
          fontDialog1.Font = RichTextBox1.Font
          fontDialog1.Color = RichTextBox1.ForeColor
    
          If fontDialog1.ShowDialog() <> DialogResult.Cancel Then
            RichTextBox1.Font = fontDialog1.Font
            RichTextBox1.ForeColor = fontDialog1.Color
          End If
        End If
      End Sub
    End Class
    
    

    Voila avec ce code je peux avoir le fontDialog avec un clic droit :) N hesite pas a poser d autres questions

     

    Pj.

    vendredi 8 avril 2011 06:50

Toutes les réponses

  • Bonjour,

    Public Class Form1
    
      Private fontDialog1 As FontDialog
    
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fontDialog1 = New FontDialog
      End Sub
    
      'Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
      '  fontDialog1.ShowColor = True
    
      '  fontDialog1.Font = RichTextBox1.Font
      '  fontDialog1.Color = RichTextBox1.ForeColor
    
      '  If fontDialog1.ShowDialog() <> DialogResult.Cancel Then
      '    RichTextBox1.Font = fontDialog1.Font
      '    RichTextBox1.ForeColor = fontDialog1.Color
      '  End If
      'End Sub
    
      Private Sub RichTextBox1_MouseDown(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles RichTextBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
          fontDialog1.ShowColor = True
    
          fontDialog1.Font = RichTextBox1.Font
          fontDialog1.Color = RichTextBox1.ForeColor
    
          If fontDialog1.ShowDialog() <> DialogResult.Cancel Then
            RichTextBox1.Font = fontDialog1.Font
            RichTextBox1.ForeColor = fontDialog1.Color
          End If
        End If
      End Sub
    End Class
    
    

    Voila avec ce code je peux avoir le fontDialog avec un clic droit :) N hesite pas a poser d autres questions

     

    Pj.

    vendredi 8 avril 2011 06:50
  • Merci beaucoup pour les réponses ultra rapides.

    Je ne viens que d'essayer la solution proposée à cause d'un arrêt maladie.

    Cela marche très bien.

    C'est très encourageant d'avoir des conseils quand on galère un peu.

    Merci encore pour la solution

    ROCHARDJP

    jeudi 19 mai 2011 20:32