fabientoupeti
Messages postés9Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention14 juin 2007
-
14 juin 2007 à 12:01
fabientoupeti
Messages postés9Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention14 juin 2007
-
14 juin 2007 à 14:17
bonjour,
j'ai un petit soucis avec une scrollbar dans un formulaire.
j'ai un formulaire avec des contrôles créés en dynamique sur ce formulaire j'ai ajouté une scrollbar.
mon probleme est que quand j'utilise les fleches de la scrollbar seul la barre de la scrollbar se déplace mais tout mes textbox dans ma userform restent immobile.Par contre quand je clique directement sur la barre et que je la deplace les textbox se deplacent parfaitement.
quelqu'un sait-il d'où cela vient?
faut il que je mette tous mes controles dans une frame avec la scrollbar directement dans la frame?
faut il que j'utilise la scrollbar de ma userform sans en rajouter une nouvelle?
ciberrique
Messages postés589Date d'inscriptionlundi 25 août 2003StatutMembreDernière intervention18 juillet 20101 14 juin 2007 à 12:13
Dans quel événement tu modifies les positions de tes text box par rapport aux scroll bar ?
Verifie si l'evenement cliquer sur le scroll bar est le meme que celui de deplacer avec les flèches.
fabientoupeti
Messages postés9Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention14 juin 2007 14 juin 2007 à 13:21
merci a vous pour vos reponses.
reponse pour ciberrique:
je suis un petit nouveau dans le monde du vb, donc je ne suis pas sûre de bien repondre a ta question.
pour moi evenement c 'est Private Sub...
je modifie les positions de mes textbox dan l'évènement:
Private Sub ScrollBar1_Scroll()
pour exemple je pose ce que j'ai ecrit pour que mes textbox se bougent avec la scrollbar:
Private Sub ScrollBar1_Scroll()
Dim i As Integer
For i = 1 To cantidad
For Each capa In definicion_mano.Controls
If capa.Name = "capa" & i - 1 Then
capa.Top = captop(i - 1) - ScrollBar1.Value
End If
'If capa.Top <= 18 Then
'capa.Visible = False
'End If
Next capa
Next i
Pour Renfield, j'ai essayé d'utiliser ce que tu m'avais filé avec le lien mais quand je tente d'importer le .frm il me dit que la classe selectionné n'est pas compatible avec VBE??
c'est quoi VBE?
et pour etre franc je n'ai pas bien compris ta remarque, désolé.
fabientoupeti
Messages postés9Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention14 juin 2007 14 juin 2007 à 14:12
le truc c'est qu'en fait je crée mes label et texbox en dynamique parce que je ne sais pas a priori combien je vais avoir de lignes à remplir dans ma userform.
pour que tu comprennes mieux où je veux venir je vais t'expliquer comment se passe mon prog.
je lance mon prog la userform apparait.
je remplis une premiere textbox, elle, créée avec l'outil pour dire combien je veux de lignes dasn ma userform (normalement, pour mon application on pourrait demander plus ou moins de créer 200lignes).
sur chaque ligne il y a un label et 4 textbox.
ma fenetre est dimensionné de telle maniere que pour moins de 25 lignes la scrollbar n'apparaisse. pour plus elle apparait et le besoin de se déplacer se fait sentir pour pouvoir remplir toutes les textbox de toutes lignes.
le problème que je vais avoir avec les onglets va etre dans la lourdeur du remplissage si à chaque fois il faut cliquer à un endroit...ca risque d'être plus chiant que ça ne l'est en ce moment...
fabientoupeti
Messages postés9Date d'inscriptionmercredi 21 mars 2007StatutMembreDernière intervention14 juin 2007 14 juin 2007 à 14:17
nos messages se sont croisés!
le captop(i-1) vient du fait que j'ai créé mes textbox ou label en dynamique et donc il me fallait recuperer la valeur top de chaque label et textbox
captop est une liste ca me permet de créer plus facilement des boucles pour bouger chaque ligne de ma userform.
For i = 1 To cantidad
For Each capa In definicion_mano.Controls
If capa.Name = "capa" & i - 1 Then
captop(i - 1) = capa.Top
End If
Next capa
Next i