Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Полосы прокрутки (VscrollBar и HscrollBar)




Элементы управления специального назначения

Установка начального значения

Элемент, который должен быть выделен в списке по умолчанию, устанавливается с помощью свойства ListIndex. Предположим, что нужная вам фамилия расположена в представленном на экране списке третьим, и вы хотите, чтобы при открытии формы эта фамилия была выделена по умолчанию. Тогда воспользуйтесь приведенным ниже оператором:

Пример 1:

Combo1.ListIndex=2

Пример 2. Фрагмент программы позволяет ненулевое числовое значение, введенное в текстовую строку ComboBox, поместить в список после нажатия кнопки Соmmand1. Если условие ввода не выполняются, то выдаются соответствующие сообщения. Кроме того, при вводе не допускается повторение элементов в списке.

Private Sub Form_Load()

For i = 1 To 10

Combo1.AddItem i * 100

Next

End Sub

 

Private Sub Command1_Click()

If Not IsNumeric(Combo1.Text) Then

MsgBox "Элемент не является числом"

Combo1.Text = ""

Combo1.SetFocus

Exit Sub

End If

For i = 1 To Combo1.ListCount

If (Combo1.Text = Combo1.List(i - 1)) Then

MsgBox "Элемент имеется в списке"

Combo1.SetFocus

Exit Sub

End If

Next

Combo1.AddItem Combo1.Text

End Sub

Приведенный способ может быть использован для малых списков. В противном случае целесообразно использовать более эффективные способы поиска, например, половинного деления.

- Полосы прокрутки (элементы типа VscrollBar и HScrollBar);

- Таймер (элемент типа Timer);

- Рамка (элемент типа Frame).

Принцип работы полос прокрутки чем-то напоминает ползунок регулятора громкости стереосистемы. Они используются для установки параметра, значение которого может меняться в некотором диапазоне – от минимума до максимума. С точки зрения программирования, описываемый элемент управления возвращает числовое значение, которое зависит от положения бегунка, а также от выбранного программистом диапазона чисел.

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

 




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


Дата добавления: 2014-12-23; Просмотров: 595; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.007 сек.