Kaip nustatyti elementus, kurie yra sąrašo lauko valdiklis


Šio straipsnio versija Microsoft Word 98 Macintosh Edition, ieškokite 201669 .

Santrauka


Šiame straipsnyje aprašoma, kaip gauti pasirinktus elementus iš a
Sąrašo lauko valdiklis, kuris leidžia jums pasirinkti kelias reikšmes.

Daugiau informacijos


"Microsoft" pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami tam tikros procedūros funkcinę galimybę, tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.

UserForm, kai nustatote pažymėti kelis ypatybės sąrašo lauko valdiklis, 1 - fmMultiSelectMulti galite pasirinkti bet kokį elementų skaičių iš sąrašo. Pavyzdžiui, jei sąraše yra (sekmadienį, pirmadienį, antradienį, trečiadienį, ketvirtadienį, penktadienį ir šeštadienį) savaitės dienos, galite pasirinkti bet kurį, nė vienas, ar visi pasirinkti elementai.

Norėdami nustatyti elementus, kurie yra pažymėtas, galite naudoti ypatybę pasirinktas sąrašo lauką. Pasirinktas sąrašo lauko ypatybė reikšmių masyvą, kur kiekviena reikšmė yra True (jei pažymėtas) arba False (jei pažymėtas elementas).

Pavyzdžiui, jei sąraše yra septynių dienų savaitę ir sekmadienį, antradienį ir šeštadienį yra pažymėtas, pasirinktas ypatybė masyvo apimtų šias reikšmes:
True, False, True, False, False, False, True
Tai taikytina pirmą elementą (sekmadienį) yra pažymėtas, nepažymėtas antrą elementą (pirmadienis), pažymėtas trečias (antradienis), ketvirtąjį – šeštąjį elementus (Trečiadienis, ketvirtadienis ir penktadienis) nėra pažymėti, nes seventh elementas (šeštadienį).

Pavyzdys Visual Basic procedūros

Šį makrokomandos kodą pateikiami du būdai naudojant pasirinktus duomenis iš sąrašo lauką. Pirmuoju būdu naudojamas vienas pasirinktą elementą vienu metu, ir antruoju būdu sukuria pažymėtų elementų sąrašą.

Pastaba. Toliau nurodytus veiksmus, kaip sukurti UserForm naudojant Visual Basic rengyklės Tarkime, kad suprantate Visual Basic programos, Microsoft Word ir Microsoft Forms dizaino ir įrankius.
  1. Paleiskite Visual Basic rengyklę. Norėdami tai padaryti, paspauskite ALT + F11.
  2. Jei dialogo langą Ypatybės nesimato, meniu rodinys spustelėkite Ypatybės .
  3. Jei projektas "Internet Explorer" lango nerodomas, spustelėkite
    Projekto "Internet Explorer" meniu .
  4. Meniu Įterpti spustelėkite
    UserForm.
  5. Spustelėkite sąrašo lauko valdiklis,
    Įrankių komplektas valdikliai, ir tada vilkite jį į UserForm.
  6. Lange Ypatybės ListBox1 pažymėti kelis ypatybės pakeisti reikšmę 1 - fmMultiSelectMulti .
  7. Spustelėkite CommandButton valdymo į
    Įrankių komplektas valdikliaiir vilkite jį į UserForm įdėti CommandButton1 valdymo UserForm.
  8. Pakartokite 7 įdėti per sekundę
    CommandButton UserForm. Tai kelia,
    CommandButton2 valdymo UserForm.
  9. Du kartus spustelėkite UserForm Rodyti kodų langas, UserForm.
  10. Paspauskite PAGE DOWN, ir tada įveskite šį makrokomandos kodą Userform_Initialize ir CommandButton_Click įvykių:
Private Sub UserForm_Initialize()
'Creates and assigns the Array to the ListBox when the form loads.
Dim mylist As Variant

mylist = Array("Sunday", "Monday", "Tuesday", "Wednesday", _
"Thursday", "Friday", "Saturday")
ListBox1.List = mylist

End Sub

Private Sub CommandButton1_Click()

'First Method: Displays individual selections one at a time.
For x = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(x) = True Then
MsgBox ListBox1.List(x)
End If

Next x
Unload Me

End Sub

Private Sub CommandButton2_Click()

'Second Method: Displays all the items in one message box
Dim msg As String

For x = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(x) = True Then
msg = msg & ListBox1.List(x) & vbCrLf
End If

Next x
MsgBox "You have selected " & vbCrLf & msg
Unload Me

'Uncomment the following two line to insert the variable
'into a document.
'Documents.Add
'Selection.TypeText Text:= msg

End Sub