How to pass an Enum to a Functon

Question

I have several Enums defined and I would like to know if anyone knows how to pass an Enum to a function.

Enum

 

eOne

eName

eAddress

eCity

 

End Enum

 

Enum eTwo

eDate

eEmailAddress

 

End Enum

 

''' <summary>

 

''' Routine that passes enum,

 

''' </summary>

 

''' <param name="EnumGoesHere"></param>

 

''' <remarks></remarks>

 

Public Sub PassEnum(ByVal EnumGoesHere)

 

Dim sqlString As String = Nothing

sqlString =

Me.LoadHdrEnum()

 

End Sub

 

''' <summary>

 

''' Routine that accepts enum.

 

''' </summary>

 

''' <param name="mode"></param>

 

''' <param name="sqlString"></param>

 

''' <param name="EnumGoesHere"></param>

 

''' <returns></returns>

 

''' <remarks></remarks>

 

Public Shared Function LoadHdrEnum(ByVal mode As String, ByVal sqlString As String, ByVal EnumGoesHere) As String

 

Dim i As Int16 = 0

 

Dim holdString As String = Nothing

 

' Replace the Enum names with the numbers.

 

For Each enumType In [Enum].GetValues(GetType(EnumGoesHere))

 

Dim strMsgType As String = enumType.ToString()

sqlString = Replace(sqlString,

"hdr." & strMsgType, i)

i += 1

 

Next

 

Return sqlString

 

End Function

Answer 1

Pls. see:

Public Enum eOne

    eOne

    eName

    eAddress

    eCity

 

End Enum

Enum eTwo

    eDate

    eEmailAddress

End Enum

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PassEnum()
    End Sub

    Public Sub PassEnum()

        Dim enumGoesHere1 As eOne = eOne.eAddress

        Dim sqlString As String = Nothing

        sqlString = Me.LoadHdrEnum("", "", enumGoesHere1)

 

 

    End Sub

    Public Function LoadHdrEnum(ByVal mode As String, ByVal sqlString As String, ByVal EnumGoesHere As eOne) As String

 

        Dim i As Int16 = 0

 

        Dim holdString As String = Nothing

 

        ' Replace the Enum names with the numbers.

 

        For Each enumType In [Enum].GetValues(GetType(eOne))

            If enumType = EnumGoesHere Then
                Dim ii As Int32 = 0
            End If

            Dim strMsgType As String = enumType.ToString()

            sqlString = Replace(sqlString, "hdr." & strMsgType, i)

            i += 1

 

        Next

 

        Return sqlString

 

    End Function

End Class