Aus der Hilfe...
16.01.2003 15:01:12
Michael Scheffler
Beispiel für Eigenschaften MultiSelect und SelectedIm folgenden Beispiel wird anhand der Eigenschaften MultiSelect und Selected veranschaulicht, wie der Benutzer ein oder mehrere Elemente in einem Listenfeld-Steuerelement (ListBox) auswählen kann. Der Benutzer gibt eine Auswahlmethode an, indem er auf ein Optionsfeld klickt, und wählt dann ein oder mehrere Elemente in dem Listenfeld-Steuerelement (ListBox) aus. Er kann die ausgewählten Elemente in einem zweiten Listenfeld-Steuerelement anzeigen, indem er auf das Befehlsschaltfläche-Steuerelement (CommandButton) klickt.
Wenn Sie dieses Beispiel verwenden möchten, kopieren Sie diesen Beispielcode in den Bereich Deklarationen eines Formulars. Das Formular muss Folgendes enthalten:
Zwei Listenfeld-Steuerelemente (ListBox) mit den Namen ListBox1 und ListBox2.
Ein Befehlsschaltfläche-Steuerelement (CommandButton) mit dem Namen CommandButton1.
Drei Optionsfeld-Steuerelemente (OptionButton) mit den Namen OptionButton1, 2 und 3.
Dim i As Integer
Private Sub CommandButton1_Click()
ListBox2.Clear
For i = 0 To 9
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i
End Sub
Private Sub OptionButton1_Click()
ListBox1.MultiSelect = fmMultiSelectSingle
End Sub
Private Sub OptionButton2_Click()
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub OptionButton3_Click()
ListBox1.MultiSelect = fmMultiSelectExtended
End Sub
Private Sub UserForm_Initialize()
For i = 0 To 9
ListBox1.AddItem "Choice " & (ListBox1.ListCount + 1)
Next i
OptionButton1.Caption = "Single Selection"
ListBox1.MultiSelect = fmMultiSelectSingle
OptionButton1.Value = True
OptionButton2.Caption = "Multiple Selection"
OptionButton3.Caption = "Extended Selection"
CommandButton1.Caption = "Show selections"
CommandButton1.AutoSize = True
End Sub