PDA

Vollständige Version anzeigen : ComboBox


Benedict
30.04.2001, 20:07
hallo!
Das nachfolgende Programm schreibt die Werte in eine ComboBox. Wie kann ich VB abfragen lassen, welches der Elemente ausgewählt wurde?

Private Sub Form_Load()
Combo1.List(0) = "Weiß"
Combo1.List(1) = "Grau"
Combo1.List(2) = "Schwarz"
Combo1.List(3) = "Grün"
Combo1.List(4) = "Rot"
End Sub

Danke Benedict

Stefan Kulpa
01.05.2001, 15:05
<font face="Verdana" size="2">Hallo Benedict,

zunächst ein Vorschlag zum Füllen einer Combobox:</font>

<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#008000>'// Statt:</FONT>
Combo1.List(0) = "Weiß"
Combo1.List(1) = "Grau"
Combo1.List(2) = "Schwarz"
Combo1.List(3) = "Grün"
Combo1.List(4) = "Rot"

<FONT COLOR=#008000>'// Besser:</FONT>
<FONT COLOR=#000080>With</FONT> Combo1
.AddItem "Weiß"
.AddItem "Grau"
.AddItem "Schwarz"
.AddItem "Grün"
.AddItem "Rot"
.ListIndex = 0 <FONT COLOR=#008000>'ggf. Vorauswahl 1. Eintrag</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>

</FONT></PRE>

<font face="Verdana" size="2">Unabhängig vom Stil der ComboBox gilt:
sobald ein Eintrag aus der Liste gewählt wurde, wird der Wert von ListIndex verändert:</font>

<PRE><FONT SIZE=1 FACE=Courier New> <FONT COLOR=#000080>With</FONT> Combo1
<FONT COLOR=#000080>If</FONT> .ListCount > 0 <FONT COLOR=#000080>And</FONT> .ListIndex > -1 <FONT COLOR=#000080>Then</FONT>
MsgBox .List(.ListIndex)
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>

</FONT></PRE>

<font face="Verdana" size="2">HTH</font>