Effacer une variable "TYPE"Résolu

Question

Bonjour à tous

J'ai créé une variable selon un type :

Public ControleFichier As ParametresControles
Public Type ParametresControles
 Name As String * 30
 Index As Integer
 Top As Integer
 Left As Integer
 Width As Integer
 Height As Integer
 BackColor As Long
 Caption As String * 30
 Tag As String * 100
End Type

Existe t'il un fonction pour la remetre à 0 
Ou bien je dois faire :

ControleFichier.name = ""
ControleFichier.index = 0
etc ...

Merci et bonne journée

jrivet · Accepted Answer

Salut,
A ma connaissance je crois que tu vas devoir faire comme tu le dit.

Mais en revanche rien ne t'empêche de faire une petite procédure qui remmette à zero une varaible passée en parametre et de type ParametresControles

Une procédure du style
Public Sub ResetParametresControles(ByRef Var As ParametresControles)
   With Var
       .Name = vbNullString
       .Index = 0
       .Top = 0
       .Left = 0
       .Width = 0
       .Height = 0
       .BackColor = vbBlack
       .Caption = vbNullString
       .Tag = vbNullString
   End With
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Exploreur · Answer

Salut,

As-tu essayé ce que tu t'auto-propose ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Re,

Dans ton type, tu dis : Tag As String * 100 , ""attention"" la propriété tag d'une Frm est un long...

A+
Exploreur

 Linux a un noyau, Windows un pépin

jrivet · Answer

Re,
> Salut [auteurdetail.aspx?ID=17710 Exploreur]
             : Je crois qu'il y a une petite erreur la propriété Tag d'un Form est bien un type String (mais est ce bien important dans ce contexte?)

@+: Ju£i?n
Pensez: Réponse acceptée

PCPT · Answer

salut,
Explo -> fait msgbox vartype(me.tag), le retour sera de 8 = chaine

++

cs_Exploreur · Answer

Salut à tous,

Ben, c'est lundi, je part en 'live' comme d'habitude, si vous trouvez un petit trou de souris, dites-le moi pour que je m'y cache...Et PCPT, peux-tu  SVP effacer ces messages..Merci...Je retourne me coucher....

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_andrebernard · Answer

Merci à vous tous, de vos reponses rapides.

Je vais donc suivre le conseil de JRivet 

Pour explorer
J'avais éssayé ce que je "m'auto-proposais" mais je me demandais si il y avait pas plus simple.


Maintenant je sais grace à vous que non.
Encore merci et excelente journée à vous

PCPT · Answer

hihi Explo
bonne nuit ^^

cs_Exploreur · Answer

Salut,

Excusez-moi pour la " co....
ie" que j'ai dite...

A+
Exploreur

 Linux a un noyau, Windows un pépin

flcrn · Answer

Bonjour,

J'ai eu exactement le meme probleme aujourd'hui.
J'ai trouver une "solution".

Celle-ci n'est pas parfaite mais elle a le merite de me convenir.

Option Base 0

Public Type MaVariableSpecifique
   Prenom As String * 30
   Nom as String * 30
End Type

Sub MonProg()
   'Declaration des variables
      Dim MaVariable(0) as MaVariableSpecifique
   'Init
      MaVariable(0).Prenom = "Frederic"
      MaVariable(0).Nom = "CARON"
   'J'efface le contenu de MaVariable
      Erase MaVariable
End Sub

En esperant que cette solution vous satisfasse.

ordiax · Answer

Je suis 4 ans plus tard, mais si d'autres personnes cherchent une solution rapide...
Je cherchais moi aussi de quoi, finalement j'ai pensé à ceci et ca marche:

Public ControleFichier As ParametresControles
Public ControleFichier_empty As ParametresControles

Une fois que tu désires 'vider/détruire' la variable TYPE tu l'écrases comme ceci:
ControleFichier  =  ControleFichier_empty

Voila

Effacer une variable "TYPE"

11 réponses

Votre réponse

Discussions similaires