décharger des variables de la mémoire?Résolu

Question

Voici le code :

Option Explicit Public Type Obj be As Boolean solid As Boolean objText As String objMat As String geo As String posX As Single posY As Single posZ As Single rotation As R3DVector3D transparent As Boolean colorkey As Boolean End Type Public Cubik(1 To 125000) As Obj

Durant mon jeu, je remplis les "sous-variables" de mes cubik(1 to 125000). Mais ces sous-variables ne sont utiles que pour une seule "map"... Lorsque je change de monde, je doit toutes les redéfinir à neuf et là est mon problème.. Comment recommencer à neuf? C'est à dire, comment faire pour "détruire" tous mes cubiks et toutes leurs "sous-valeurs" pour ensuite les recharger avec la nouvelle map? Je sais comment recharger, mais je sais pas comment détruire.. ou plutot "vider", afin que ca ne prenne pas de mémoire pendant le jeu. Merci de votre aide ! Voici ce que j'ai esseyé jusqu'à présent :

Public sub Dechargement() Dim i as integer For i = 1 to 125000 Cubik(i) = Nothing 'De ces trois essais, rien ne fonctionne... Cubik(i) = Null Cubik(i) = Empty Next i End Sub

cs_Jack · Accepted Answer

Salut
Gobillot a raison.
Par contre, je pense qu'un tableau d&#233;fini 'en dur' ne peut pas &#234;tre red&#233;fini avec Redim.
Il va falloir d&#233;clarer ton tableau dynamiquement pour l'utiliser comme &#231;a :
A la place de Redim Cubik(1 To 125000) As Obj
Utilise Public Cubik() As Obj
Et dans ta Sub Main ou dans ton premier Form_Load, dimensionne :
Redim Cubik(1 To 125000)
C'est cette m&#234;me commande que tu r&#233;utilisera pour vider ton tableau.

Pour &#234;tre complet, Redim Preserve Cubik(1 To 125000) permettrait de changer le format du tableau tout en pr&#233;servant le contenu de chaque index, sauf bien s&#251;r si la quantit&#233; diminuait.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

Radiohead4ever · Answer

Je me suis tromp&#233;, ce que j'ai essey&#233; est plut&#244;t :

<HR>
Public sub Dechargement()

Dim l as Long
For l = 1 to 125000

  Cubik(i) = Nothing 'De ces trois essais, rien ne fonctionne...
  Cubik(i) = Null
  Cubik(i) = Empty

Next l
End Sub

Gobillot · Answer

Redim Cubik(0)



ou



Erase Cubik





Daniel

Radiohead4ever · Answer

Merci beaucoup ! Tr&#232;s complet comme r&#233;ponse

RadioHead4Ever

Décharger des variables de la mémoire?

4 réponses

Discussions similaires