Traduction de l'instruction Enum de C# en VB10 ? [Résolu]

Signaler
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
-
Messages postés
282
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
15 août 2012
-
Aucun conflit, peut-être que le C# est case sensible ?
internal enum ClipType
{
None, AudioVideo, VideoOnly, AudioOnly
}
clipType = ClipType.AudioVideo;


En VB10 c'est différent
'ClipType' est déjà déclaré en tant que 'Enum ClipType As Integer' dans ce module.
    Private Enum ClipType
        None
        AudioVideo
        VideoOnly
        AudioOnly
    End Enum
    Private clipType As ClipType

5 réponses

Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
Eureka !
    Private Enum ClipType As Integer
        None = 0
        AudioVideo = 1
        VideoOnly = 2
        AudioOnly = 3
    End Enum

    Sub test()
        Dim clipType As ClipType = clipType.None
    End Sub


J'me demande si on peu pas faire plus court ?
Enfin, sa fonction !
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
Pourtant il semble accepter cette méthode malgré ce message d'erreur !
Bizzard !?
    Private Enum ClipType
        None
        AudioVideo
        VideoOnly
        AudioOnly
    End Enum
    Private clipType As ClipType

    Sub test()
        clipFile = ClipType.None
    End Sub
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
clipFile est un string ^^ et sa passe.

Non il l'accepte pas du tout; fausse joie.
Accès d'un membre partagé, d'un membre de constante, d'un membre enum ou d'un type imbriqué via une instance ; l'expression qualifiante ne sera pas évaluée.
    Private Enum ClipType
        None
        AudioVideo
        VideoOnly
        AudioOnly
    End Enum
    Private clipType As ClipType

    Sub test()
        clipType = ClipType.None
    End Sub
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
3
Private Enum tClipType
None
AudioVideo
VideoOnly
AudioOnly
End Enum
Private clipType As tClipType

Sub test()
ClipType = ClipType.None
End Sub
Messages postés
282
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
15 août 2012
2
en vb2008, les enum doivent être en Public dans les classes, je ne sais pas si c'est la meme chose en VB10

encore en vb2008, dans la valeur est toujours le nom du "enum".la_valeur