affichage textbox

Question

Alors voila mon probleme :

Je veux creer un textbox par enregistrement de ma table Acces & les afficher suivant l' axe Y de mon graph..
Seulement les txtbox s' affiche de haut en bas (au lieu de bas en haut comme je voudrai)
Voici ma fonction
     Public Function creer_objet()
        compte = 0
            For compte = 1 To 5
                Load Text1(compte)
                ' BUG->affiche a l envers
                Text1(compte).Top = Text1(compte - 1).Top + Text1(compte - 1).Height + 20
                Text1(compte).Visible = True
            Next compte

        End Function

Le truc c' est que je n' arrive pas a trouver la bonne relation entre "Text1(compte).Top" et "Text1(compte - 1).Top"

Si quelqu' un le sait qu' il me le fasse savoir ..

Merci d' avance..

Pat76

cs_visualbasic · Answer

c koi ton container, je veux dire tu affiche les textbox sur une form directement ou alors tu passe autrement avec la gestion des scrolls bar ?

sinon essaye ca :

Public Function creer_objet()
compte = 0
Espace = 20

For compte = 1 To 5
Load Text1(compte)
' BUG->affiche a l envers
Text1(compte).Top = Me.height - (Text1(0).height * compte) - Espace
Text1(compte).Visible = True
Next compte

End Function

patl76 · Answer

Merci quand meme mais ton code marche pas ...
T' es sur de ton coup...

Pat76

econs · Answer

Tiens, j'aurais bien remplacé cette ligne :

Text1(compte).Top = Text1(compte - 1).Top + Text1(compte - 1).Height + 20

par celle-ci :

Text1(compte).Top = Text1(compte - 1).Top - Text1(compte - 1).Height - 20

sinon, effectivement, il s'empilent de haut en bas et pas de bas en haut !

Manu

patl76 · Answer

Merci !!
C' etait bien le + qu' il fallait remplacer par un -
Maintenant ca s' affiche ds le bon sens...

Est ce que tu saurait tant qu' a faire comment je peux relier chaque txtbox a un enregistrement de ma table Acces???

Affichage textbox

4 réponses

Discussions similaires