Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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

[ucfoutu]

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 ?

[zazaraignée]

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

[Invité]

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.

[ucfoutu]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[Invité]

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