Calculer le nombre de lignes d'un texte
nazzguhl
Messages postés
26
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
26 janvier 2011
-
22 sept. 2005 à 14:49
guilleto Messages postés 256 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 20 mars 2013 - 23 sept. 2005 à 09:36
guilleto Messages postés 256 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 20 mars 2013 - 23 sept. 2005 à 09:36
A voir également:
- Calculer le nombre de lignes d'un texte
- Roulettechat texte - Forum PHP
- Calcul nombre de parpaing ✓ - Forum VB.NET
- Nombre premier ✓ - Forum C / C++ / C++.NET
- Nombre de semaine par an - Forum C / C++ / C++.NET
- Vba commenter plusieurs lignes ✓ - Forum Visual Basic
4 réponses
cs_lacomm
Messages postés
298
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2013
1
22 sept. 2005 à 15:27
22 sept. 2005 à 15:27
salut
peut-être printform ?
peut-être printform ?
nazzguhl
Messages postés
26
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
26 janvier 2011
22 sept. 2005 à 16:05
22 sept. 2005 à 16:05
Le printform permet d'imprimer mon texte, mais ça ne me donne pas le nombre de lignes, j'en ai besoin pour la suite du programme (ce n'est pas le VB qui imprime), je dois vérifier la mise en page et décider ce qu'il reste comme place dans la page après ce texte et calculer si des tableaux doivent être basculés sur une page suivante...
Mais merci tout de même de t'être penché sur le problème.
ACT
Mais merci tout de même de t'être penché sur le problème.
ACT
cboulas
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
16
22 sept. 2005 à 22:15
22 sept. 2005 à 22:15
Salut, regarde du côté de la fonction : ReadLine() ou Line() selon la version de ton VB
Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&
Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&
guilleto
Messages postés
256
Date d'inscription
jeudi 23 octobre 2003
Statut
Membre
Dernière intervention
20 mars 2013
1
23 sept. 2005 à 09:36
23 sept. 2005 à 09:36
Salut Nazzguhl,
Soit un Label1 avec ton Texte et une largeur de 18cm avec la police que tu veux !
En faisant la méthode suivante cela devrait fonctionner :
Printer.FontName = Label1.FontName
Printer.FontBold = Label1.FontBold
Printer.FontSize = Label1.FontSize
Printer.FontItalic = Label1.FontItalic
Printer.FontUnderlined = Label1.FontUnderlined
NbMinLigne = Printer.TextWidth(Label1.Caption)/Label1.Width
Cpt=0
Start=1
Do
Doevents
Pos = InStr(1, Label1.Caption, vbNewLine, vbTextCompare)
If Pos >0 then
Start=Pos+1
Cpt=Cpt+1
Else
Exit Do
End If
Loop
NbTotalLignes = NbMinLigne + Cpt
Voilà cela devrait fonctionner !
Bonne Prog
Olivier
Soit un Label1 avec ton Texte et une largeur de 18cm avec la police que tu veux !
En faisant la méthode suivante cela devrait fonctionner :
Printer.FontName = Label1.FontName
Printer.FontBold = Label1.FontBold
Printer.FontSize = Label1.FontSize
Printer.FontItalic = Label1.FontItalic
Printer.FontUnderlined = Label1.FontUnderlined
NbMinLigne = Printer.TextWidth(Label1.Caption)/Label1.Width
Cpt=0
Start=1
Do
Doevents
Pos = InStr(1, Label1.Caption, vbNewLine, vbTextCompare)
If Pos >0 then
Start=Pos+1
Cpt=Cpt+1
Else
Exit Do
End If
Loop
NbTotalLignes = NbMinLigne + Cpt
Voilà cela devrait fonctionner !
Bonne Prog
Olivier
