vb 枚举类型能作为过程参数吗

可以，首先在模块中定义自己的 枚举 变量，如下

Public Enum InterfaceColors

icMistyRose = &HE1E4FF&

icSlateGray = &H908070&

End Enum

再在类里面定义属性

Private mvarshuxing1 As Boolean

Public Property Let shuxing1(ByVal vData As InterfaceColors)

mvarshuxing1 = vData

End Property

Public Property Get shuxing1() As InterfaceColors

shuxing1 = mvarshuxing1

End Property

你可以看到你要的效果

function FileEnum(a)

DebugPrint a'添加被枚举文件的处理代码

end function

function FolderEnum(a)

DebugPrint a'添加被枚举目录的处理代码

end function

function EnumFolder(byval g)

If IsEmpty(fso) Then set fso=createobject("ScriptingFileSystemObject")

set g=fsogetfolder(g)

FolderEnum g

for each t in gfiles '只枚目录举删掉这个for

FileEnum t

next

for each t in gsubfolders

EnumFolder t

next

end function

========================

用法：EnumFolder "E:\新建文件夹"

Enum Week

周日 = 0

周一 = 1

周二 = 2

周三 = 3

周四 = 4

周五 = 5

周六 = 6

End Enum

Sub Main()

Dim myType As Type = GetType(Week)

MsgBox(WeekGetName(myType, Week周二))

End Sub

以上就是关于vb 枚举类型能作为过程参数吗全部的内容，包括:vb 枚举类型能作为过程参数吗、VB 枚举目录、VB.net如何枚举字符串等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！