pb avec un tableauRésolu

Question

Bonjour, quand je ve faire une pause sur mon jeu il faudrait que je puisse stocker les images de mes picturebox dans un tableau pour pouvoir les remettrent une fois la pause fini mais le probl&#232;me est que je n'arrive pas a stocker mes images dedans.
voici mon code :

Type pictures
     picture As StdPicture
End Type
Dim tableau(0 To 143) As pictures

Private Sub mnupause_Click()
Dim i As Integer
If mnupause.Caption = "Faire une pause" Then
   mnupause.Caption = "Arreter la pause"
   For i = 0 To 143
    tableau(i).picture = Picture1(i).picture
    Picture1(i).picture = LoadPicture(App.Path & "\img\question.gif")
   Next
   Timer1.Enabled = False
Else
   mnupause.Caption = "Faire une pause"
   Timer1.Enabled = True
   For i = 0 To 143
   Picture1(i).picture = tableau(i).picture
   next
End If
End Sub

merci de votre aide.

Gobillot · Accepted Answer

c'est normal si le Type pictures n'est plus d&#233;fini, tu peux plus l'utiliser.
choisit un des 3 &#231;a marche:

 Dim tableau(0 To 143) As StdPicture
 Dim tableau(0 To 143) As picture
 Dim tableau(0 To 143) As IPictureDisp

Daniel

Gobillot · Answer

oui mais si tu charges ton image seulement apr&#232;s ???
&#224; moins que ce soit une autre.

For i = 0 To 143
    Set tableau(i).picture = Picture1(i).picture
    Picture1(i).picture = LoadPicture(App.Path & "\img\question.gif")
   Next

Daniel

neotetsuo34 · Answer

ba en fait le probleme et que ca me marque "Impossible de definr un type public d&#233;fini par l'utilisateur &#224; l'interieur d'une classe" et se me surligne ca : Type pictures

Gobillot · Answer

si tu mets rien il prend Public par d&#233;faut:

Private Type pictures
     picture As StdPicture
End Type

mais pourquoi tu fait un type s'il y a qu'une variable ?

Dim tableau(0 To 143) As StdPicture

Set tableau(i) = Picture1(i).picture

Daniel

neotetsuo34 · Answer

parce que si je ne fait pas de type ca me marque "type d&#233;fini par l'utilisateur non d&#233;fini"

neotetsuo34 · Answer

merci maintenant ca marche

Pb avec un tableau

6 réponses

Discussions similaires