Nombre total de lignes dans un textbox

0/5 (6 avis)

Snippet vu 8 889 fois - Téléchargée 92 fois


Commenter

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
S'inscrire maintenant

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.

Du même auteur (Nix)