Nombre total de lignes dans un textbox

0/5 (6 avis)

Snippet vu 8 680 fois - Téléchargée 91 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

13 févr. 2011 à 20:24
Super
yiab
Messages postés
27
Date d'inscription
jeudi 10 juillet 2008
Statut
Membre
Dernière intervention
31 mai 2015

8 oct. 2008 à 22:40
la note pardon !
yiab
Messages postés
27
Date d'inscription
jeudi 10 juillet 2008
Statut
Membre
Dernière intervention
31 mai 2015

8 oct. 2008 à 22:37
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

12 sept. 2008 à 04:13
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

15 mars 2008 à 19:52
très interressant bien joué felecitation 10/10
Afficher les 6 commentaires

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.