'用自定义枚举类型,详细用法可以百度搜索 vb enum
Enum myEnum
myA = 1
myB = 2
myC = 3
myD = 4
End Enum
Function f(x As String, y As myEnum)
'参数y设为自定义枚举类型
End Function
'用自定义枚举类型,详细用法可以百度搜索 vb enum
Enum myEnum
myA = 1
myB = 2
myC = 3
myD = 4
End Enum
Function f(x As String, y As myEnum)
'参数y设为自定义枚举类型
End Function