German Spinner-Inhalt zur Laufzeit ändern

[peternmb]

Hallo,

ich möchte den Inhalt eines Spinners mit einem ToggleButton ändern.
Dazu lösche ich alles und lese es neu ein, es tut sich aber nichts.
Der Spinner und der ToggleButton wurden mit dem Designer erzeugt.

..
'Auswahldialog für Spitzen
spnSpitzen.Clear
spnSpitzen.Add("mit 1")
spnSpitzen.Add("mit 2") 
spnSpitzen.Add("mit 3")
spnSpitzen.Add("mit 4")
..


Sub btnSpitzen_CheckedChange(Checked As Boolean)
  If btnAnzeige.Checked = True Then
    spnSpitzen.Clear   
    spnSpitzen.Add("mit 1")
    spnSpitzen.Add("mit 2") 
    spnSpitzen.Add("mit 3")
    spnSpitzen.Add("mit 4")
  Else
    spnSpitzen.Clear
    spnSpitzen.Add("ohne 1")
    spnSpitzen.Add("ohne 2") 
    spnSpitzen.Add("ohne 3")
    spnSpitzen.Add("ohne 4")
  End If  
End Sub

 

[klaus]

Folgender Code funktioniert:

Sub btnSpitzen_CheckedChange(Checked As Boolean)
  If Checked = True Then
    spnSpitzen.Clear    
    spnSpitzen.Add("mit 1")
    spnSpitzen.Add("mit 2") 
    spnSpitzen.Add("mit 3")
    spnSpitzen.Add("mit 4")
  Else
    spnSpitzen.Clear
    spnSpitzen.Add("ohne 1")
    spnSpitzen.Add("ohne 2") 
    spnSpitzen.Add("ohne 3")
    spnSpitzen.Add("ohne 4")
  End If      
End Sub

Beste Grüsse.

 

[peternmb]

vielen Dank, klappt wunderbar :sign0142: