Nombre total de lignes dans un textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 402 fois - Téléchargée 89 fois


Contenu du snippet

Faites un Form(Form1) avec 1 TextBox(TextBox1) et un Bouton(Command1)

Source / Exemple :


Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()
  MsgBox (SendMessageLong(TextBox1.hwnd, EM_TOTALLIGNE, 0&, 0&) & " ligne(s) au total")
End Sub

A voir également

Ajouter un commentaire

Commentaires

samrom
Messages postés
10
Date d'inscription
dimanche 27 juin 2004
Statut
Membre
Dernière intervention
23 juillet 2011
-
Super
yiab
Messages postés
27
Date d'inscription
jeudi 10 juillet 2008
Statut
Membre
Dernière intervention
31 mai 2015
-
la note pardon !
yiab
Messages postés
27
Date d'inscription
jeudi 10 juillet 2008
Statut
Membre
Dernière intervention
31 mai 2015
-
super génial ! 800000 lignes en un éclair merci beaucoup a toi et a RVL également
Minihisht
Messages postés
6
Date d'inscription
lundi 8 septembre 2008
Statut
Membre
Dernière intervention
23 septembre 2008
-
Merci beaucoup, c'est très utile.
kgdecaen
Messages postés
38
Date d'inscription
dimanche 5 novembre 2000
Statut
Membre
Dernière intervention
16 décembre 2009
-
très interressant bien joué felecitation 10/10

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.