[VB6] Array als constante declareren

[Verwijderd]

In mijn module met constanten wil ik een array van strings als constante declareren op ongeveer de volgende manier

code:

Public Const TCP_STATES = {""Closed", "Open", "Listening", "Connection pending", "Resolving host", "Host resolved", "Connecting", "Connected", "Closing", "Error"}

Dit doe ik omdat als ik de state van het winsock object zou willen opvragen dat als volgt zou kunnen presenteren op het scherm

code:

state = TCP_STATES(Winsock.state)

kan iemand mij zeggen hoe ik dat kan doen (Google en tutorials vertellen niets over constante arrays)

[Verwijderd]

Kun je daar niet beter een enumeratie voor gebruiken?

[Verwijderd]

Nee want ik gok dat ie de string value wil gebruiken

[Verwijderd]

Ik wil op deze manier het nummer van de TCP state converteren naar een string die aangeeft wat met die state bedoeld wordt

[Crazy D]

Nope kan niet, je kan natuurlijk wel een globale variabele gebruiken en met jezelf afspreken dat je die niet verandert Of er een functietje voor maken...

[Kama]

Dat kun je beter ongeveer zo doen:

Visual Basic:

Public Const tcpOpen = 1
Public Const tcpClosed = 2

en dan een functie maken in de trant van:

Visual Basic:

Function TCP_STATE(tcpState)
  select case tcpState
    case tcpOpen
      TCP_STATE="Open"
    case tcpClosed
      TCP_STATE="Closed"
    case else
  end select
End Function

[Verwijderd]

het is niet constant maar . .het werkt wel

dim a() as string
a = array ("blaat", "blieb", "flurp")