Nombre total de lignes dans un textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 483 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

Messages postés
10
Date d'inscription
dimanche 27 juin 2004
Statut
Membre
Dernière intervention
23 juillet 2011

Super
Messages postés
27
Date d'inscription
jeudi 10 juillet 2008
Statut
Membre
Dernière intervention
31 mai 2015

la note pardon !
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
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.
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
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.