Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.55
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.55

ListBoxl.Item.Add (TextBoxl.Text) TextBoxl.Text = ""

Первой строкой этого кода добавляется элемент в список. Add (добавить), Item (элемент), ListBox (список). Второй строкой очищается текстовое поле TextBox, чтобы сохранившийся в нем элемент не был внесен в список второй раз. Недостаток такого способа заключается в том, что после закрытия программы данные, внесенные в список таким образом, теряются. Поэтому для их сохранения требуется создание специальной процедуры.

Элементы списка можно не только добавлять, но и удалять. Для этого поместите на форму еще одно текстовое поле TextBox2 и кнопку Button2. Дважды щелкните кнопку и добавьте следующий код:

ListBoxl.Items.Remove (TextBox2.Text)

Здесь необходимо ввести в текстовое поле строку, которую следует удалить, и щелкнуть кнопку Button2. А следующий код позволяет очистить весь список.

ListBoxl.Items.Clear

Теперь рассмотрим, каким образом действует в программе этот элемент управления. В окне Properties обратите внимание на свойство Selection Mode. С его помощью устанавливается количество выбираемых элементов. Остановимся пока на значении One (один). Теперь в списке ListBox можно

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА 12 Т Текстовые поля

выделить только одну строку. При выделении строки генерируется событие SelectedlndexChanged. Щелчок выделенной строки сродни щелчку Button. Им можно изменить свойства объектов, вызвать нужный файл и т.д.

Рассмотрим действие на конкретном примере. Дважды щелкните ListBoxl и в процедуру обработки событий ListBoxl__ SelectedlnddexChanged добавьте следующий код:

Private Sub ListBoxl_SelectedIndexChanged (ByVal _

sender As System. Object, ByVal e As _

System.EventArgs) Handles LiBoxl.SelectedlndexChanged

If ListBoxl.Selectedltem = "строка1" Then _ Call form (New Form2)

If ListBoxl.Selectedltem = "строка2" Then Buttonl.BackColor = Color. Blue

If ListBoxl.Selectedltem = "строкаЗ" Then _ Labell.Text = "надпись" End Sub

Первая строка вызывает процедуру form, которая создает новую форму (подробно об этом рассказывается в главе 9). Создав сколь угодно большое количество форм, заполненных различными программами, можно вызывать их поочередно с помощью списка ListBox. Две другие строки изменяют цвет кнопки Button и текст на надписи Label.


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta