TextBox: GotFocus, LostFocus
Date: 2015-10-07; view: 446.
ListBox: Sorted
A. ListBox, TextBox
Практическая работа 33. ListBox, TextBox, ComboBox
· Ввести в ListBox числа 9 - 0 (использовать окно свойств), присвоить свойству Sorted значение True, стартовать проект; убедиться, что элементы списка отсортированы по возрастанию.
ListBox: ListCount, ListIndex, AddItem, RemoveItem:
· Создать на форме элементы управления Label и CommandButton, ввести код, данный ниже:
· Private Sub Command1_Click()· Dim j As Integer· Label1 = List1.ListCount· Label2 = List1.ListIndexEnd Sub· Заполнить поле списка цифрами 0 - 9: стартовать проект; результат: Label1 = 10, Label2 = -1, т.к. не маркирован ни один элемент списка,
· маркировать элементы списка, делать щелчки на командной кнопке - в поле метки 2 выводится номер выбранного элемента,
· использовать метод AddItem для добавления элементов списка - дополнить процедуру инструкцией:
· For j = 10 To 20· List1.AddItem jNext j· стартовать проект - в список добавляются элементы,
· для удаления элементов списка используется метод RemoveItem. Ввести код процедуры, стартовать проект, сделать щелчок на командной кнопке.
· Private Sub Command2_Click()· Dim j As Integer· For j = 0 To 10· List1.RemoveItem j· Next jEnd SubСобытие LostFocus вызывается после того, как текстовое поле становится неактивным; при "входе" пользователя в текстовое поле вызывается событие GotFocus.
Ввести код, данный ниже; стартовать проект, первая процедура выполняется при установке фокуса в поле Text1 - поле окрашивается и выводится сообщение о получении фокуса.
Private Sub Text1_GotFocus()Text1.BackColor = RGB(255, 0, 0)Label3.Caption = "TextBox имеет фокус"End SubВторая процедура выполняется при переводе фокуса из этого поля; поле окрашивается в другой цвет и выводится соответствующее сообщение:
Private Sub Text1_LostFocus()Text1.BackColor = RGB(0, 0, 255)Label3.Caption = "Потеря фокуса"End Sub| <== previous lecture | | | next lecture ==> |
| ListBox, ComboBox, TextBox | | | B. Перемещение элементов списка |