NUMÉRO DE LA LIGNE DANS UN TEXTBOX

Commentaire de VicoLaChips2 le 19/04/2002 06:48:24

très bien !!

Bonne prog @+

Commentaire de OrionLG le 19/04/2002 11:14:15

Essaye en ajoutant un label (Label2) et remplace les deux dernière lignes de Private Sub Text1_Click() pas les ligne suivantes :
    
    For x = Text1.SelStart To 1 Step -1
        ' Détecte la fin de la ligne précédente
        If Mid(Text1.Text, x, 1) = Chr(10) Then
            NColonne = Text1.SelStart - x + 1
            GoTo Suite
        End If
    Next
    ' Donne la position du curseur si il est sur la première ligne
    ' (pas de ligne précédente donc pas de caractère chr(10))
    NColonne = Text1.SelStart + 1

Suite:
    '*******************************
    ' Affiche le numéro de la ligne
    '*******************************
    Label1.Caption = "Ligne N°" + Str(NLigne) + " / Colonne N°" + Str(NColonne)
    If Text1.SelStart > 0 Then
        ' Récupère le caractère avant le curseur
        caractere = Mid(Text1.Text, Text1.SelStart, 1)
        ' Affiche le numéro de la ligne, le caractère et son code ASCII
        Label2.Caption = caractere + "  / " + Str(Asc(caractere))
    End If

J'espère que j'ai répondu à ta question ;-)

Commentaire de wallon14 le 24/06/2004 16:58:13

plus de 900 affichages et je suis le premier a mettre une note... 10/10 ^^ Bin oui j'suis généreu :oP

Mais vu le nombre de mecs qui ont pompé sans commenter ni noter...

Commentaire de dabro le 26/03/2007 09:25:25

Salut, quelqu'un aurait la combine pour faire la même chose, mais avec ScrollBars = 2 - Vertical. Dans ces conditions les mises à la ligne automatiques ne sont pas comptées...

Commentaire de dabro le 26/03/2007 13:36:20

Bon, ben j'ai la réponse grâce à Renfield :

Pour compter les lignes d'un contrôle txt avec ScrollBars = 2-Vertical :

'Compter les lignes d'un controle
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const EM_GETLINECOUNT = &HBA

MsgBox SendMessage(Form1.Text1.hWnd, EM_GETLINECOUNT, 0, 0)

Merci !!!!!!

Commentaire de Renfield le 26/03/2007 13:45:18 administrateur CS

pour ceux qui trouvent que le code présenté ici est trop lent....


Private Const EM_LINEFROMCHAR As Long = &HC9

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Private Sub Text1_Click()
Dim nLine As Long
    nLine = 1 + SendMessage(Text1.hwnd, EM_LINEFROMCHAR, Text1.SelStart, ByVal 0&)
    Label1.Caption = "Ligne N°" & nLine
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    Text1_Click
End Sub