problème de boucle en Visual Basic

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : problème de boucle en Visual Basic

quaresma

bonjour,
je travail avec vb6 et crystal report 8.5 et dans mon code VB cette boucle ne marche pas:

Code :

Sub police()
''''''''''''''''' Les polices ''''''''''''''''''''''''
Dim chxname As String
Dim chxbold, chxitalic, chxbarre, chxsouligne As Boolean
Dim chxsize As Integer
Dim Z As Integer
Dim chxcolor As Double
Open App.Path & "\police.mod" For Input As #1
Input #1, chxname, chxbold, chxitalic, chxsize, chxbarre, chxsouligne, chxcolor
Close #1
For Z = 247 To 361
NoFiel = CStr(Z)
LeControle = "T" + NoFiel
Report.LeControle.Font.Name = chxname
Report.LeControle.Font.Bold = chxbold
Report.LeControle.Font.Italic = chxitalic
Report.LeControle.Font.Size = chxsize
Report.LeControle.Font.Strikethrough = chxbarre
Report.LeControle.Font.Underline = chxsouligne
Next
End Sub

Je voudrai faire en sorte que tous les champs de textes ayant pour nom "T247 -> T361" dans la crystal report aient la même police. C'est pour éviter d'ecrire plein de fois la même chose que j'ai voulu faire cette boucle...
Savez-vous ce qui ne va pas dans mon code?
merci pour votre aide.

Publicité

juju2k

Pourrais-tu être plus précis quand tu dis que cette boucle ne marche pas ? On te renvoie une erreur ? Elle s'opère, mais ne fait pas ce que tu veux ? etc.

Sinon, juste pour information (peut-être y a-t-il un rapport) : Lorsque tu déclares tes variables sur une seule ligne, elles doivent toutes avoir leur type en face d'elles.

C'est-à-dire que dans cette déclaration :

Dim chxbold, chxitalic, chxbarre, chxsouligne As Boolean

seule chxsouligne est de type Boolean. Les autres sont de type Variant.

tegu

Clairement ça ne peut pas marcher
Dans la phrase

Report.LeControle.Font.Name = chxname

l'interpréteur VB cherche un objet LeControle dans Report, et pas un objet dont le nom serait le contenu de la variable LeControle.

Je ne sais pas si ton objet Report a une collection du genre .Controls, mais il faudrait trouver une syntaxe Crystal comme l'exemple suivant

Report.Controls(LeControle).Font.Name = chxname

Je précise que je n'ai aucune idée si mon exemple fonctionne; cela dépend complètement de l'objet Report que je ne connais pas.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

problème de boucle en Visual Basic

Sujets relatifs
Probleme de mise en page	[SGBD/SQL] Oracle : PL/SQL, problème tout con
Probleme DIV scrollable dans un Tableau	Problème avec un onblur...
[résolu] Problème bouton / javascript	Problème de ponctuation ds un fichier texte dynamique ds flash
Problème Validation css	Probleme de cryptage de mot de passe
Probleme pour Modifier mon formulaire
Plus de sujets relatifs à : problème de boucle en Visual Basic

Page générée en 0.070 secondes