С. Дополнение списков, перемещение элементов списков
Date: 2015-10-07; view: 480.
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. сделать щелчок на первой командной кнопке (Дополнить) слово "кнопки" выводятся в поля элементов управления.
8.
Рис. 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 Sub Private Sub Command2_Click() ' переместить элемент спискаlst.AddItem cboLaden.TextEnd Sub
| <== previous lecture | | | next lecture ==> |
| B. Перемещение элементов списка | | | А. CheckBox |