Variabele mag beperkt aantal waarden aannemen

[evertVB]

Ik heb nu dit:

    Public Const cPlaying As Integer = 1
    Public Const cBetweenGames As Integer = 0

    Private myStatus As Integer

    ...

    Public Property Status() As Integer
        Get
            Return myStatus
        End Get
        Set(ByVal value As Integer)
            Select Case value
                Case cPlaying
                    myStatus = value
                Case cBetweenGames
                    myStatus = value
                Case Else
                    myStatus = cBetweenGames
            End Select
        End Set
    End Property

    ...

    Public Sub NewGame()
        Me.Status = cPlaying
        ...
    End Sub

    Public Sub FinishGame()
        Me.Status = cBetweenGames
        ...
    End Sub

De bedoeling is dat aan Status alleen maar cPlaying/cBetweenGames kan worden toegekend.
Is er misschien een meer directe manier om dit te forceren in de declaraties?

Ik zoek zoiets als:

  Public Status As (Playing, BetweenGames)

Het mooiste zou zijn als designtime de auto-complete van VB mij ook alleen maar de toegestane opties geeft.

 

[That Guy]

enum! Heel handig. Zoiets.

public enum bbq
   saz = 0
   omg = 1
end enum

dim foo as bbq

als je dan typt

foo =

krijg je een intellisense dropdown met alleen 'saz' en 'omg'. 'saz' is gelijk aan 0, 'omg' is gelijk aan 1. (de integers)


'bbq' is dan een soort van 'nieuw' 'type' zoals boolean. Probeer het maar eens. Zie overgens ook dit: http://articles.techrepublic.com.com/5100-10878_11-5800339.html

 

[evertVB]

Dat is wat ik zocht, bedankt!