如何判断属于哪个枚举

[魔法软糖]

enum a1
str1= xxx
str2= xxx
end enum

enum a2
str3=xxx
str4=xxx
end enum

sub GetStr(byval v_str as string)
'如何判断v_str是属于a1还是a2或者都不属于
end sub

[天蛾糊]

[Quote=引用 1 楼 51crack 的回复:]
什么JB用法
[/Quote]
不知其所以然

[51Crack]

什么JB用法

[zixingcheng_]

枚举只支持整形，下面应该是你要的，自己整理下。

 Enum a1
        str1 = 11
        str2 = 11
    End Enum
    Enum a2
        str1 = 21
        str2 = 22 
    End Enum

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a1 As a1
        Dim a2 As a2
        Dim strTemp As String = ""
        Dim strResult As String = ""
        strResult = GetStr(a1)

    End Sub

    Function GetStr(ByVal v_str As Object) As String
        Dim strResult As String = ""

        '如何判断v_str是属于a1还是a2或者都不属于
        Dim objType As Type
        objType = v_str.GetType()

        '枚举需要判断
        If objType.IsEnum = True Then
            '提取枚举类型名即可判断
            strResult = objType.Name
        End If

    End Function