Type variable VBA variant en VB.NET

Version imprimable

Bonjour,

Je cherche l'équivalent du type de variable Variant de VBA en VB.Net.

ex VBA
Code:

1 2 3 4 5 Dim maVar as variant maVar = 1236 'Type variable Variant/Integer maVar = "HJKI" 'Type variable Variant/String maVar = true 'Type variable Variant/Boolean
J'ai essayé le type VariantType de VB.Net, mais cela ne fonctionne pas.

Déjà est-ce possible en VB.Net ?
et si oui que choisir comme type de variable ?

Merci d'avance.

23/04/2013, 10h11
DotNetMatt

L'équivalent c'est le type Object.
23/04/2013, 10h31
Rainui

Bonjour,

Citation:

Déjà est-ce possible en VB.Net ?
et si oui que choisir comme type de variable ?

Oui c'est possible.
Le type Object est fait pour ça. Vous serrez peut être amené à le caster pour pouvoir vous en servir pour éviter des conversions implicites foireuses.
23/04/2013, 11h53
Bluedeep

Citation:

Envoyé par DotNetMatt

L'équivalent c'est le type Object.

Pas tout à fait.

Le Variant est un type spécifique COM, qui en interne conserve une indication du type de l'objet contenu, indépendamment de ce type; aucune notion d'héritage ici, au contraire de Object.

Object est un type racine de tous les objets de .Net.

Ceci dit, dans son contexte, il peut peut être utiliser le type Object.
Mais il faudrait savoir un peu plus ce qu'il compte faire.
23/04/2013, 12h07
DotNetMatt

Oui effectivement ce n'est pas un équivalent dans le sens strict du terme au niveau de la mécanique, mais je ne vois pas d'autre solution... A quoi penses-tu ?
23/04/2013, 20h38
rlapt

Remerciements

Bonsoir,

Merci à tous.

Apparemment ça fonctionne dans le cadre de mon application.

Il semble que le type de la variable source soit bien mémorisé dans la variable destination. En mettant dans un espion la variable objet, on visualise le type en déployant.

J'ai essayer de récupérer cette information avec GetType mais cela ne fonctionne pas. Peu être y à t'il une autre méthode ?

Si cela n'est pas possible, mais j'en serais étonné, si j'ai besoin de connaître le type de variable source, je le mémoriserais dans mon tableau.

Pour l'instant je ne clos pas le sujet. Si je n'ai pas de réponse, je cocherai résolu.

Cordialement

Bonsoir,

la FAQ nous donnes : Comment vérifier qu'un objet est bien d'un certain type ?

Donc :

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
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim col As New Collection
        col.Add(New class1)
        col.Add(New class2)
        For Each elem As Object In col
            If TypeOf (elem) Is class1 Then
                Trace.WriteLine("class1")
 
            ElseIf TypeOf (elem) Is class2 Then
                Trace.WriteLine("class2")
            End If
        Next
    End Sub
 
    Public Class class1
 
    End Class
 
    Public Class class2
 
    End Class
End Class

Donne :

Citation:

class1
class2

bonjour rlapt
GetType() helas se contente d'examiner la declaration pour retourner le type...
Mais avec les types "boxed et unboxed"...,au secours ,ce bon vieux VarType qui ,lui fouine dans le "managed heap car c'est le managed qui store cet information" ,examine la valeur boxe pointe par Objet et nous retourne son type correct....
Y compris quand tu fais les mutations habituelles des variables propre aux veterans vb6.....

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
27
28
29
30
31
 
 
Public Class Form1
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = 123
        Dim o1 As Object = i
        Dim o2 As Object = "tartarin de tarascon et les lions"
        Dim o3 As Object = 245.74
 
        Dim b As Boolean = False
        Dim o4 As Object = b
 
        ListBox1.Items.Add(VarType(o1).ToString)
        ListBox1.Items.Add(VarType(o2).ToString)
        ListBox1.Items.Add(VarType(o3).ToString)
        ListBox1.Items.Add(VarType(o4).ToString)
    End Sub
    'les mutations des habitues  vb6 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim o1 As Object = 145.12
        ListBox2.Items.Add(VarType(o1).ToString)
        Dim i As Integer = o1
        ListBox2.Items.Add(VarType(i).ToString)
        Dim o2 As Object = i * 124.12
 
        ListBox2.Items.Add(VarType(o2).ToString)
    End Sub
End Class

bon code.............

24/04/2013, 15h47
rlapt

Bonjour Sankasssss, MABROUKI,

Merci encore de vous intéresser à mes problèmes de débutant.

Pour la solution de Sankasssss :

cela fonctionne, mais pas dans le sens qui m'intéresse. Pour mon application, il faudrait gérer cela par un select case en mettant tous les types de variables. Mais c'est à concerver pour une autre utilisation.

Pour la solution de MABROUKI :

Cela fonctionne bien dans le sens qui m'intéresse.

Merci encore à tous les deux.

Cordialement.