Je suis sous VB6, j'ai un formulaire avec un TextBox (dont la propriété
MultiLine = True et Scrollbars = 3 - Both) et je voudrais intercepter les
scrolls verticaux et horizontaux de manière à ce que ça m'indique dans un
label le numéro de la ligne et le numéro de la colonne situées dans le coin
supérieur gauche (un peu à la UltraEdit).
Je sais que ça se base sur le subclassing mais je n'ai trouvé aucun exemple.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Yves G.
Bonjour Nicolas,
Si tu utilisais plutôt un RichTextBox qui aurait accès la fonction GetLineFromChar qui te faciliterait la tâche.
Voici un example: Private Sub RichTextBox1_Click() GetLineNumber End Sub
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) GetLineNumber End Sub
Private Sub GetLineNumber() Label1.Caption = RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) + 1 End Sub
Jean-Yves
"Nicolas" a écrit :
Bonjour,
Je suis sous VB6, j'ai un formulaire avec un TextBox (dont la propriété MultiLine = True et Scrollbars = 3 - Both) et je voudrais intercepter les scrolls verticaux et horizontaux de manière à ce que ça m'indique dans un label le numéro de la ligne et le numéro de la colonne situées dans le coin supérieur gauche (un peu à la UltraEdit).
Je sais que ça se base sur le subclassing mais je n'ai trouvé aucun exemple.
Merci infiniment
Bonjour Nicolas,
Si tu utilisais plutôt un RichTextBox qui aurait accès la fonction
GetLineFromChar qui te faciliterait la tâche.
Voici un example:
Private Sub RichTextBox1_Click()
GetLineNumber
End Sub
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
GetLineNumber
End Sub
Private Sub GetLineNumber()
Label1.Caption = RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) + 1
End Sub
Jean-Yves
"Nicolas" a écrit :
Bonjour,
Je suis sous VB6, j'ai un formulaire avec un TextBox (dont la propriété
MultiLine = True et Scrollbars = 3 - Both) et je voudrais intercepter les
scrolls verticaux et horizontaux de manière à ce que ça m'indique dans un
label le numéro de la ligne et le numéro de la colonne situées dans le coin
supérieur gauche (un peu à la UltraEdit).
Je sais que ça se base sur le subclassing mais je n'ai trouvé aucun exemple.
Si tu utilisais plutôt un RichTextBox qui aurait accès la fonction GetLineFromChar qui te faciliterait la tâche.
Voici un example: Private Sub RichTextBox1_Click() GetLineNumber End Sub
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) GetLineNumber End Sub
Private Sub GetLineNumber() Label1.Caption = RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) + 1 End Sub
Jean-Yves
"Nicolas" a écrit :
Bonjour,
Je suis sous VB6, j'ai un formulaire avec un TextBox (dont la propriété MultiLine = True et Scrollbars = 3 - Both) et je voudrais intercepter les scrolls verticaux et horizontaux de manière à ce que ça m'indique dans un label le numéro de la ligne et le numéro de la colonne situées dans le coin supérieur gauche (un peu à la UltraEdit).
Je sais que ça se base sur le subclassing mais je n'ai trouvé aucun exemple.
