Discussion :

[nono27200]

Bonjour à tous,

J'ai une petite question sur le type "variant" en VB6.

Je voudrais savoir s'il est possible de tester son type, voire son contenu à un certain moment...???

J'ai ce style de code :

Code :

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

1
2
 
Public Function MaFonction(ByRef Dom As Variant) As Boolean

et j'aimerais, dans ma fonction tester le type de "Dom" voire son contenu

Si quelqu'un a une solution...

Merci d'avance !!

[OhMonBato]

Tester le contenu ? Ben c'est pas trop difficile quand même, un simple "debug.print Dom" devrait suffire

Pour tester le type, tu peux toujours essayer de convertir ta variable dans le type que tu souhaites tester et voir si une erreur se produit et si la valeur convertie est égale à la valeur initiale.
En cas d'erreur, tu l'interceptes bien sûr pour éviter un plantage.
Tu as les fonctions suivantes pour convertir :
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)

[pc75]

Bonjour,

As-tu testé la fonction TypeOf(LaVariable) ?

[ucfoutu]

Boànjour Pc75;

TypeOf ? pour une variant ? et avec cette syntaxe ? Euh....

Tu ne confondrais pas avec VarType ?...

Bonne continuation

Edit :
Et l'approximation ne sera jamais totalement bonne. La preuve :

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  Dim mavar As Variant
  mavar = 3.1
  MsgBox VarType(mavar) & " =  " & TypeName(mavar)
End Sub

Il vaut mieux utiliser un selectCase et la série des IsNumeric, Is...., Is.... puis tester à l'intérieur de chaque Case la conversion possible la plus proche

[LeForestier]

Bonsoir,
Pour confirmer la réponse de UcFoutu, le type de variable renvoyé par un 'Variant est fonction de ce qu'il contient.
S'il contient 'UnTexte' il renvoi Text
s'il contient '3.1' il renvoi Nombre avec virgule
etc...
A+