---

Hallo zusammen,

ich möchte in meinem Tool mehrere Konstanten benutzen. Jetzt gibt es direkt am Anfang 2 Möglichkeiten für den User.

select case Möglichkeit
case 1
const test1 as string = "Option1"
case 2
const test1 as string = "Option2"
end select

Das geht aber nicht, da kommt von VB immer die Fehlermeldung :

Fehler beim Kompilieren:
Mehrfachdeklaration im aktuellen Gültigkeitsbereich

Wie kriege ich das mit den Konstanten hin?

Habe auch schon folgendes versucht:

const test1 as string = ""

select case Möglichkeit
case 1
test1 = "Option1"
'Auch folgendes versucht
'set test1 = "Option1"
case 2
test1 = "Option2"
'Auch folgendes versucht
'set test1 = "Option2"
end select

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko,

Du kannst einer Konstanten, wenn Sie einmal einen Wert zugewiesen bekommen hat, nicht nochmal einen Wert zuweisen. Deswegen heisst sie auch Konstante.

Probier es mit globalen Variablen, wobei ich das nicht so schön finde!

Code:

---

Dim test1 As String

Sub a()

Dim Moeglichkeit As String

    Select Case Moeglichkeit
   
        Case 1
       
            test1 = "Option1"
           
        Case 2
            test1 = "Option2"
           
    End Select

End Sub

---

oder Du machst das als Klasse, da weisst wenigstens, wo das Schniborix deklariert ist und es herkommt. Was man bei globalen Variablen ja immer nicht so wirklich weiss.

... das kommt in ein Modul

Code:

---

Sub a()

Dim Moeglichkeit As Integer
Dim myConst As New Klasse1

Moeglichkeit = 1

    Select Case Moeglichkeit
   
        Case 1
            myConst.myConst = "Option1"
           
        Case 2
            myConst.myConst = "Option2"
           
    End Select
   
Debug.Print myConst.myConst

End Sub

---

... das machst in ein Klassenmodul

Code:

---

Private m_myConst As String

Public Property Let myConst(ByVal sMyConst As String)
    m_myConst = sMyConst
End Property

Public Property Get myConst() As String
    myConst = m_myConst
End Property

---

Hoffe das hilft Dir weiter.

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi BloodyMess,

habe es jetzt auch mit den globalen Variablen gemacht, weil ich hier vorwärts kommen muß und ich niergendwo eine Lösung dazu gefunden habe. Aber wie will man eine Lösung finden, die es garnicht gibt. Es gibt da ein schönes Sprichwort...

... Paßt Deine Lösung nicht auf das Problem, dann ändere das Problem...

In diesem Sinne, Dankeschön!

------------------

cu
Heiko

Schau mal rein www.mertens-bb.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP