[VB6] Bouger une frame

Bonjour à tous,

Je n'arrive pas à bouger une frame en passant par une fonction, et j'ai donc besoin de votre aide.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub PlaceFrame(PositionDuFrame As Integer, NomDeLaFrame As Frame)   Select Case PositionDuFrame   Case 1: NomDeLaFrame.Move 120, 120   Case 2: NomDeLaFrame.Move 120, 1200   Case 3: NomDeLaFrame.Move 120, 2280   End Select End Sub

---

Et j'appel ma fonction comme ceci :

Code:

---

PlaceFrame 1, Me.FramePathArchivage

---

Seulement ca ne fonctionne pas, la frame ne bouge. Quand je regarde au débugger, lorsque j'arrive dans la fonction PlaceFrame, NomDeLaFrame est égal à ce qui se trouve dans le caption (par exemple, "Remplir votre nom ici").

Si j'appel ma fonction comme ceci :

Code:

---

PlaceFrame 1, Me.FramePathArchivage.name

---

J'obtiens une erreur également.

Enfin, si je met le type variant et appel ma fonction comme si dessus, avec la propriété .name, ca ne fonctionne pas non plus.

Avez-vous une idée ?

Merci d'avance pour votre aide

Bonjour,

1) ce que tu as écrit n'est pas une fonction (aucune valeur retournée) mais une procédure

2) elle devrait fonctionner sans aucun problème, à moins que ....===>> question, donc : où (dans quoi) as-tu écrit de code de cette "fonction" (qui n'en est pas une) et d'où (depuis quoi) l'appelles-tu ?

As-tu essayé de placer ton Frame simplement avec ses propirétés Left et Top ?

Oui effectivement ca s'appel une procédure, j'ai écrit le post un peu trop rapidement. L'important est qu'on se comprenne, n'est-ce pas ? ;)

J'ai écrit ce code dans la Form où se trouve mes frames.

C'est un placement dynamique des frames, donc je ne peux pas les positionner dès le départ, elles doivent etre bougées dynamiquement, et cela dépend de leur position passée en argument dans la procédure.

J'insiste !
Ton code marche sans problème !
Essaye (une Form Form1 aevc un Franme Frame1 et un bouton de Command Command1 )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub PlaceFrame(PositionDuFrame As Integer, NomDeLaFrame As Frame) Select Case PositionDuFrame Case 1: NomDeLaFrame.Move 120, 120 Case 2: NomDeLaFrame.Move 120, 1200 Case 3: NomDeLaFrame.Move 120, 2280 End Select End Sub   Private Sub Command1_Click() PlaceFrame 1, Frame1 End Sub

---

Clique sur Command1 et constate ...

Si tout ton code est vraiment celui de ta Form et qu'il ne "marche" pas chez toi, je ne vois qu'une explication possible : tu as mis sa procédure d'appel dans un événement inconnu ou d'un contrôle inexistant...

Bonne continuation ...

Oui tu as raison, mon code fonctionne correctement. Le problème était que j'initialisais mes variables avant de loader la form, et du coup cela ne fonctionnait pas.

Maintenant j'ai modifié mon code et cela fonctionne correctement.

Merci pour votre aide ;)