首先在类中定义一个枚举变量
public class PTest
Public Enum emnStatus As Integer
传递 = 1
在办 = 2
挂起 = 3
完成 = 4
结案 = 5
注销 = 6
End Enum
end Class
在另一个类中使用
public class TestP
public function Test(ByVal Status As emnStatus)
end function
end class
当我们使用TestP的方法时就会弹出参数让用户选择:
dim objTestP as New TestP()
objTestP.Test(PTest.emnStatus.在办)