NUMÉRO DE LA LIGNE DANS UN TEXTBOX
VicoLaChips2
Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
-
19 avril 2002 à 06:48
cs_dabro Messages postés 24 Date d'inscription mardi 15 avril 2003 Statut Membre Dernière intervention 25 novembre 2016 - 26 mars 2007 à 14:12
cs_dabro Messages postés 24 Date d'inscription mardi 15 avril 2003 Statut Membre Dernière intervention 25 novembre 2016 - 26 mars 2007 à 14:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3059-numero-de-la-ligne-dans-un-textbox
https://codes-sources.commentcamarche.net/source/3059-numero-de-la-ligne-dans-un-textbox
26 mars 2007 à 14:12
26 mars 2007 à 13:45
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
26 mars 2007 à 13:40
MsgBox SendMessage(Form1.Text1.hWnd, EM_GETLINECOUNT, 0, Byval 0)
ravi de voir que tu a cherché un peu par toi même.
26 mars 2007 à 13:36
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 !!!!!!
26 mars 2007 à 11:44
faut utiliser les APIs.
SendMessage et EM_LINEFROMCHAR
voir la doc :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/editcontrols/editcontrolreference/editcontrolmessages/em_linefromchar.asp
26 mars 2007 à 09:25
12 août 2004 à 14:37
10/10
24 juin 2004 à 16:58
Mais vu le nombre de mecs qui ont pompé sans commenter ni noter...
19 sept. 2003 à 15:16
Encore une methode comme celle là en delphi çà prend 10 fois moin de temps, mais bon compilateur de très haut niveau oblige il faudrai trouvé une autre methode !!!
19 avril 2002 à 11:14
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 ;-)
19 avril 2002 à 09:34
19 avril 2002 à 06:48
Bonne prog @+