Comment puis-je obtenir un numéro de ligne cliqué dans la zone de texte?

La classe TeintboxBase (à partir de laquelle la zone de texte dérive) a de nombreuses méthodes pouvant vous aider dans cette tâche.

suppose que vous avez ce gestionnaire d'événements pour l'événement MOUSEDOWN de votre commande TextBox1 Contrôle P>

Sub TextBox1_MouseDown(sender as Object, e as MouseEventArgs) Handles TextBox1.MouseDown

    '  In the MouseEventArgs we have the click location
    '  We can use that point to get the CharIndex from the TextBox
    Dim charIndex as Integer = TextBox1.GetCharIndexFromPosition(e.Location)

    ' Now the charIndex could be passed to another method to get the line index
    Dim line As Integer = TextBox1.GetLineFromCharIndex(charIndex)

    ' Lines start from 0
    MessageBox.Show("Click on line=" + line + ", Text=" + TextBox1.Lines(line))
End Sub

Une solution est la détermination de la hauteur de la ligne de texte, de telle sorte:

Dim LineHeight = 16 ' you may change this value

Private Sub richTextBox1_MouseClick(sender As Object, e As MouseEventArgs)

  'the number of the selected line
  Dim i = e.Location.Y/LineHeight

  'get the value of the number line.
  MessageBox.Show(Me.richTextBox1.Lines(i))
End Sub

Steve a une grande réponse qui m'a appris quelques petites choses, mais comme il a utilisé MouseDown au lieu de cliquez sur Je pensais que je pouvais donner une autre option et d'élargir la différence entre les deux un peu.

Je vais vous montrer Mon code au cas où vous voulez tout ce que vous voulez, mais si vous voulez un peu plus d'informations, vous pouvez lire sur. p>

Le code (à l'aide d'un clic à la demande): p>

Private Sub mainTextBox_MouseClick(sender As Object, e As MouseEventArgs) Handles mainTextBox.MouseClick
    Dim line As Integer = mainTextBox.GetLineFromCharIndex(mainTextBox.SelectionStart)
End Sub

Private Sub mainTextBox_MouseDown(sender As Object, e As MouseEventArgs) Handles mainTextBox.MouseDown
    Dim line As Integer = mainTextBox.GetLineFromCharIndex(mainTextBox.SelectionStart)
End Sub