С. Дополнение списков, перемещение элементов списков
1. Создать на форме элементы управления: ListBox (Name = lst), ComboBox (Name = cboLaden, Style=2), 2 элемента управленияCommandButton, TextBox (Name = txt); cхема формы дана на рис. 5.2, 2. ввести код процедуры Form_Load () - заполнение ComboBox элементами списка, см. ниже, 3. ввести код процедуры Command1_Click () - дополнение ComboBox и ListBox новыми элементами, вводимыми в текстовое поле, 4. ввести код процедуры Command2_Click () - перемещение элементов из ComboBox в ListBox, 5. стартовать проект, открыть щелчком список ComboBox, маркировать строку ComboBox, сделать щелчок на кнопке Command2 - происходит перемещение элемента, 6. ввести в текстовое поле слово "кнопки", 7. сделать щелчок на первой командной кнопке (Дополнить) слово "кнопки" выводятся в поля элементов управления.
Рис. 5.2. Схема формы Рrivate Sub Form_Load() ' заполнение списковcboLaden.AddItem "тетради"cboLaden.AddItem "скрепки"cboLaden.AddItem "карандаши"End Sub' дополнить поля новыми элементамиPrivate Sub Command1_Click()cboLaden.AddItem txt.Textlst.AddItem txt.TextEnd SubPrivate Sub Command2_Click() ' переместить элемент спискаlst.AddItem cboLaden.TextEnd SubCheckBox, OptionButton, Frame CheckBox - флажок Набор элементов управления CheckBox позволяет выбрать одновременно несколько опций. Важнейшим является событие Click; важным свойством является Value. Value принимает значения: 1 - флажок помечен, 0 - не помечен, 2 - помечен, но не доступен.
|
