Reafecter une variable

bonjour a tous,

j'utilise VB6.
J'ai créer plusieurs type utilisateur (UDT) et une variable global "test".
J'aurais aimé pendant l'execution du programme, pouvoir réaffecté la
variable "test" a differents type, mais sans succès :(
En fait je voulais sauvegarder dans un fichier ouvert en "binary" les type
utilisateurs, sans avoir a passer par une variable pour chaques types.
Ou peut etre est-il possible de créer une variable dans VB d'une longueur
suffisante par rapport au type, de recuperer son adresse, d'aller ecrire
dedans, puis de l'ecrire dans le fichier avec une instruction api, mais
ça me semble compliqué, peut etre ya t-il plus simple :?

Les instruction de dimmensionnement sont des directives de compilation. A ma connaissance, il n'existe pas de possibilité de changer le type d'une variable en cours d'exécution en vb. Par contre regarde dans l'aide en ligne de vb, le type de variable "Variant". Peut être que cela t'aidera.

Bonjour (et un salut à Delbeke),

à bubu92, qu'entends-tu EXACTEMENT par "type utilisateur" ?

Parles-tu d'une variable/données définie par l'utilisateur (une structure) ?

oui un truc genre :

Code:

---

1 2 3 4 5

Type toto a as Integer b as Long End Type

---

en fait ce que je voudrais c'est eviter de créer des variables global comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Type toto1 a as Integer b as Long End Type   Type toto2 a as Single b as Integer End Type   Global Test1 as toto1 Global Test2 as toto2   ----form----   Test1.a = 12 Test1.a = 6   Test2.a = 10.5 Test2.a = 3   Open "C:\gaga.txt" For Binary Access Read Write Lock Read Write As #1 Put #1,,Test1 Put #1,,Test2 Close #1

---

Le probleme c'est que des "Type totoX" j'en ai 1000 :?
Si j'avais pu réaffecter la variable "Test" dans une boucle ça aurait été plus
simple :)

1000 structures différentes dans un seul programme ? 8O
Y'a pas moyen d'en regrouper certaines ?

Ce que j'adore, moi, c'est ceci :

Code:

---

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

----form----   Test1.a = 12 Test1.a = 6   Test2.a = 10.5 Test2.a = 3   Open "C:\gaga.txt" For Binary Access Read Write Lock Read Write As #1 Put #1,,Test1 Put #1,,Test2 Close #1

---

Ah, le soin apporté à ce que l'on étale ... !!! ;)