- •3. Программирование пользовательского интерфейса
- •3.1. Использование элементов управления
- •3.2. Основные свойства и события элементов управления
- •3.3. Форма, свойства, основные события формы.
- •3.4. Основные элементы управления.
- •3.4.1. Кнопка
- •3.4.2. Надпись
- •3.4.3. Текстовое поле (TextBox)
- •3.4.4. Флажок(CheckBox)
- •3.4.5. Переключатель (OptionButton)
- •3.4.6. Список (ListBox)
- •3.4.7. Поле со списком (ComboBox)
- •3.4.8. Рамка (Frame)
3.4.8. Рамка (Frame)
Рамка - это элемент- контейнер. Предназначен для объединения в группу нескольких элементов управления, например, переключателей. Объекты, объединенные с помощью рамки, можно как единое целое перемещать, активизировать, деактивизировать, делать невидимыми.
Для объединения элементов в группу нужно сначала создать элемент-контейнер, а затем добавить в него нужные элементы управления. Если требуемые элементы управления уже находятся в форме, их достаточно переместить в элемент-контейнер.
Рамка не имеет особых свойств, присущих только ей.
События рамки обычно не анализируются.
Пример: Создать справочник персонала. Для ввода сведений о работнике разместить в форме элементы управления: текстовые поля, список, переключатели.
Р ис. 3.1. Форма для ввода сведений о работнике
Private Sub Command1_Click()
Dim фамилия As String, имя As String, отчество As String
Dim номер As String, разряд As String, пенсия As String
Dim пол As String
Open "c:\person.txt" For Append As #1
Do Until txtFam.Text = ""
фамилия = txtFam.Text
имя = txtName.Text
отчество = txtOtch.Text
номер = txtTab.Text
разряд = lstRasr.Text
If Option1.Value = True Then
пол = "м"
Else
пол = "ж"
End If
If Check1 = 0 Then
пенсия = "да"
Else
пенсия = "нет"
End If
txtFam.Text = ""
txtName.Text = ""
txtOtch.Text = ""
txtTab.Text = ""
Print #1, фамилия; ","; имя; ","; отчество; ","; номер; ","; _
разряд; ","; пенсия; ","; пол
Loop
Close #1
End Sub
Private Sub Form_Load()
lstRasr.AddItem "10"
lstRasr.AddItem "11"
lstRasr.AddItem "12"
lstRasr.AddItem "13"
lstRasr.AddItem "14"
lstRasr.AddItem "15"
lstRasr.AddItem "16"
lstRasr.AddItem "17"
End Sub