Поле со списком (ComboBox)

Это комбинированный список, представляет собой комбинацию двух элементов управления - самого списка со значениями и поля ввода текста (текстового поля). Используется, когда нельзя заранее определить значения, которые следует включить в список, или список содержит слишком много элементов. В таком списке нужное значение можно не только выбирать, но и вводить непосредственно в поле ввода. Новое значение поля автоматически помещается в список.

События:

Click - Щелчок мыши. Используется для выбора элемента списка.

Change - Для изменения записи в поле ввода текста.

Свойства:

Поле со списком имеет почти все свойства текстового поля и списка
(за исключением MultiLine)

Style - определяет внешний вид и функционирование поля со списком:

0 - ComboBox представляет собой текстовое поле для редактирования и открывающийся список (задано по умолчанию).

1 - ComboBox представляет собой текстовое поле для редактирования и постоянно открытый список.

2 - отличается от 0 тем, что пользователь не может вводить текст в текстовое поле.

Рассмотрим пример использования элементов управления для работы с данными в форме.

Создать справочник персонала. Для ввода сведений о работнике разместить в форме элементы управления: текстовые поля, список, переключатели

 

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

 

Контрольные вопросы

1) Что такое объект в объектно-ориентированном программировании?

2) Что называется свойствами объекта?

3) Что называется методами в объектно-ориентированном программировании?

4) Дайте понятие класса объектов.

5) Что такое событие?

6) Дайте понятие событийно-управляемого процесса.

7) Какие этапы создания WINDOWS-приложений вам известны?

8) Что называется типом данных?

9) Назовите основные типы данных в Visual Basic.

10) Что такое переменная?

11) Что называется константой?

12) Какие существуют возможности объявления типов данных в Visual Basic?

13) Как определяются массивы в Visual Basic?

14) Что такое стандартные диалоговые окна?

15) Каковы возможности языка при программировании ветвлений?

16) Каковы возможности языка при программировании циклов?

17) В чем заключается модульный принцип построения проекта и программного кода Visual Basic?

18) В чем заключается различие общих процедур и процедур обработки событий?

19) Каковы области определения переменных?

20) Каковы способы передачи параметров в процедуры?

21) В чем различие статических массивов и динамических?

Какие виды файлов создаются и обрабатываются в Visual Basic?

22) Какие операторы создания и обработки файлов вам известны?

23) Интерфейс каких типов позволяет разрабатывать ?

24) Роль формы в приложении. Каковы основные свойства и события формы?

25) Что собой представляет меню в Visual Basic?

26) Назовите основные элементы управления, их свойства, события и методы.

 








Дата добавления: 2015-08-08; просмотров: 642;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.009 сек.