Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
1. Загрузите Visual Basic
2. Установите на форме следующие объекты и измените им свойства
Объект | Свойство | Значение |
Рамки | Caption | Толщина линии |
Font | Размер 10 | |
Caption | Стиль линии | |
Font | Размер 10 | |
Горизонтальные прокрутки | Name | Hsb1 |
Left | ||
Top | ||
Width | ||
Max | ||
Min | ||
LargeChange | ||
SmallChange | ||
Name | Hsb2 | |
Value | ||
Left | ||
Top | ||
Width | ||
Max | ||
Min | ||
LargeChange | ||
SmallChange | ||
Name | HsbWidth | |
Max | ||
Min | ||
Name | HsbStyle | |
Max | ||
Min | ||
Вертикальные прокрутки | Name | Vsb1 |
Value | ||
Left | ||
Top | ||
Height | ||
Max | ||
Min | ||
LargeChange | ||
SmallChange | ||
Name | Vsb2 | |
Value | ||
Left | ||
Top | ||
Height | ||
Max | ||
Min | ||
LargeChange | ||
SmallChange | ||
Линия | Name | Line1 |
3. Приведите свою форму в соответствие с образцом
4. В окне кода процедуры обработки события Change набрать
для объекта Vsb1
Line1.Y1 = Vsb1.Value
для объекта Vsb2
Line1.Y2 = Vsb2.Value
для объекта Hsb1
Line1.X1 = Hsb1.Value
для объекта Hsb1
Line1.X2 = Hsb2.Value
для объекта HsbStyle
Line1.BorderStyle = HSbStyle.Value
для объекта HsbWidth
Line1.BorderWidth = HSbWidth.Value
5. Проверьте работу программы, изменяя значения на прокрутках несколькими способами:
- щелчок по одной из стрелок на концах линейки прокрутки;
- перемещение «бегунка»
- щелчок внутри линейки прокрутки
6. Результат показать преподавателю.
Дата публикования: 2015-02-22; Прочитано: 373 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!