Combobox Fragen

[Mister master]

1. Frage: was muss Ich tun, damit der Name einer Auswahl in der Combobox Nicht verändert werden kann?

2. Frage: wie drücke ich soetwas aus:

Private Sub Command1_click()
If combo1.*Auswahl* = "Der text" then
Msgbox"Hallo, du hast nun der Text ausgewählt!"
End If

3.: Gibt es eine Möglichkeit, wie ich im code das Ständige

combo1.additem"1"
combo1.additem"2"
combo1.additem"3"
combo1.additem"4"
combo1.additem"5"

vermeiden kann, also dass es schneller geht und ich nicht ständig combo1.additem schreiben muss?

 

[wincnc]

Hallo

1.
Stelle die Style Eigenschaft auf 2 - Dropdown-Liste

2.

Private Sub Command1_Click()
  If Combo1.Text = "DeinText" Then
    MsgBox "Hallo, du hast nun der Text ausgewählt!"
  End If
End Sub

3.
Das kannst so abkürzen:

  With Combo1
    .AddItem "Test1"
    .AddItem "Test1"
  End With

Falls Du nur Zahlen eintragen willst:

Private Sub Command1_Click()
Dim N As Integer

  With Combo1
    For N = 1 To 10
      .AddItem CStr(N)
    Next
  End With
End Sub