Листинг 3.04. Код процедуры загрузки формы.

1 Private Sub Form_Load()

2 'процедура загрузки формы

4 'изменить свойства текстового окна

5 Text1.SelStart = 2 'начальная позиция курсора вставки

6 Text1.SelLength = 4 'число выделенных символов

8 End Sub

Если вы теперь выполните команду Start из меню Run, а после появления диалогового окна рассматриваемого приложения с помощью клавиши Tab передадите фокус текстовому окну, вы можете увидеть на экране окно, подобное приведенному на рис. 3.12.

Рис. 3.12

Начиная с третьей позиции, в текстовом окне выделены четыре символа.

Начинайте вводить символы в текстовое окно. Вы должны заметить, что символы выделенной части исчезли, а на их месте появился первый введенный вами символ. Неправда ли, это очень похоже на обычное редактирование, например, в Word? Но это еще не все. Есть еще одно замечательное свойство текстового окна — SelText. Это свойство содержит выделенную в текстовом окне строку. Значит, мы можем делать с этой строкой, что угодно, например, куда-нибудь вставить.

Приведем код (листинг 3.05) всего модуля формы, в котором в процедуре обработки события Click кнопки ОК, помещен оператор, присваивающий значение свойству Caption метки Label3 (мы не переименовывали метки). Таким образом, после щелчка на кнопке OK вы сразу должны заметить изменение в заголовке метки Label3.

Листинг 3.05. Код всего модуля формы.

1 Private Sub Form_Load()

2 'процедура загрузки формы

4 'изменить свойства текстового окна

5 Text1.SelStart = 2 'начальная позиция курсора вставки

6 Text1.SelLength = 4 'число выделенных символов

8 End Sub

9 Private Sub CmdCancel_Click()

10 'процедура обработки события -

11 'щелчок на кнопке Отмена

13 Dim answer As String

15 answer = MsgBox("Действительно завершить работу?", _

16 vbYesNo + vbQuestion, _

17 "Завершение работы")

19 If answer = vbYes Then Unload Me 'выгрузить форму

21 End Sub

23 Private Sub CmdHelp_Click()

24 'процедура обработки события -

25 'щелчок на кнопке Справка

27 MsgBox ("Справка")

28 End Sub

30 Private Sub CmdOK_Click()

31 'процедура обработки события -

32 'щелчок на кнопке ОК

34 'изменить заголовок метки на выделенный

35 'в текстовом окне фрагмент

36 Label3.Caption = Text1.SelText

38 End Sub

Элементы выбора

В большинстве приложений диалоговые окна дают возможность пользователю выбирать некоторые параметры из определенного набора. Visual Basic включает несколько стандартных элементов управления, обеспечивающих возможность выбора:

· <$I[]флажок (check boxe)> Флажки (check boxes) — небольшой набор опций, из которых можно выбрать одну или более опций.

· <$I[]кнопка выбора (option button)> Кнопки выбора (option buttons) — небольшой набор опций, из которых можно выбрать только одну опцию.

· <$I[]окно списка (list box)> Окно списка (list box) — список с линейкой прокрутки.

· <$I[]комбинированное окно (combo box)> Комбинированное окно (combo box) — список с линейкой прокрутки и дополнительное текстовое окно для алфавитно-цифрового ввода и редактирования.

Флажки

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

В листинге 3.06 приведена процедура обработки события Click флажка с Name -свойством ChBold, а на рис. 3.13 — форма с последними изменениями в режиме выполнения программы.