Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
С. Дополнение списков, перемещение элементов списков
|
|
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 - помечен, но не доступен.
|
|