Рассылка закрыта
При закрытии подписчики были переданы в рассылку "Программирование на Visual Basic/Visual Studio и ASP/ASP.NET" на которую и рекомендуем вам подписаться.
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
Программирование на Visual Basic 6.0 в примерах.
| Информационный Канал Subscribe.Ru |
Здравствуйте!!!
Выпуск
– 4: Элементы – 1(Начало)
Периодичность
рассылки:
каждая суббота.
Сайт
и архив рассылки: www.symsoft.narod.ru
Привет всем, кто принялся
изучать Visual
Basic. Мы
уже прошли с вами три урока, и на этом я
научу вас пользоваться такими элементами
формы, как OptionButton
(Переключатель), Frame(Рамка),
Timer(Таймер) и
Scrollbar. Как
всегда я приведу пример использования
переменных в виде исходного кода программ.
На следующем уроке вы познакомитесь с
оставшимися основными элементами.
Урок
– 4
“Element”
При написании кода
приходится широко работать со свойствами
элементов, которые обычно находятся справа
(Name, Caption,
BorderStyle и
множество других). На
прошлом уроке я сказал что для этого
используется символ точки. Например, если
мы хотим, чтобы после нажатия какой-нибудь
кнопки текст Labela изменился
то нам нужно сделать следующее:
Private
Sub SomeButton_Click()
Label.caption
= “текст”
End
sub
То есть мы
выбрали Label и указали, что
нужно изменить его метку(текст).
Сейчас
создадим приложение “Ellement”:
1.
Как всегда создаём
новый проект New->
New
Project-> Standard
EXE.
2.
Переносим на форму:
две рамки (Frame),
пять переключателей (OptionButton)
,
Таймер,
горизонтальную прокрутку (HScrollBar),2 Label’а
и кнопку(Button).
Всё
располагаем, как показано на рисунке:
Label находится над ScrollBarom.
Теперь работаем над
свойствами:
|
Рамки: |
1)
Name: Frame1; Caption: Цвет: |
|
2)
Name: Frame2;
Caption:Оформление |
|
Переключатели: |
1)
Name:optRed Caption:
Красный
2)
Name:optGreen Caption: Зелёный 3)
Name:
optBlack Caption: Чёрный 4)
Name:optNormal
Caption: Обычное 5)
Name:optFix
Caption: Фиксированное |
|
Label |
1)
Name:
lblColor
Caption:
(пусто)
2)Name:
Num
Caption: (пусто) |
|
Кнопка: |
Name:
cmdExit Caption:
Выход |
HScroll
- Name: Scroll; Max: 100
Timer –
Name: Timer1; Interval: 100
Вот теперь мы закончили
проектирование нашего
проекта, давайте запустим его командой F5.
Пощёлкайте переключателями и вы
увидите, что переключатели цвета
определяются(перещёлкиваются) отдельно от
переключателей оформления. В
этом и есть суть рамок – отделять элементы.
Так, одно выяснили, переходим к
таймерамJ.
Имя – понятно, а вот Interval сейчас разберём. Таймер
нужен чтобы выполнять определённые
действия(код) несколько раз в единицу
времени. И Interval показывает с
какой периодичностью таймер будет
выполнять действия.1000 = 1 секунде, 100= 0,1
секунде.
И HScroll:
Scroll
бывает и вертикальным (VScroll)
и нужны они для того чтобы что-нибудь
проматывать J
Значение Max указывает до куда
можно домотать, а Min
– минимум промотки.
Далее следует список самых
важных параметров:
|
Name |
Самый
важный параметр из всех, на нём
основывается код
программы. |
|
Caption или
Text |
Метка, текст
оглавление. |
|
Enabled |
Важный
параметр для включения\отключения
элементов, может принимать значения True
и False. |
|
Visible |
Невидимость\видимость элементов. |
|
Font |
Шрифт. |
И
другие…
Каждый элемент имеет
свои основные параметры.
3)Так а теперь перейдём к
написанию самого кода.
4)Дважды кликните на
переключателе “красный” и напишите код:
Private
Sub optRed_Click()
lblColor.BackColor
= vbRed
End
Sub
При
нажатии на переключатель цвет Label’a(BackColor) поменяется на
красный(vbRed)
Способов указать цвет
много: можно использовать цвета vb
– vbBlack(чёрный),vbGreen(зелёный),
можно смешиванием красного с зелёным и
синим, т.е. при
помощи RGB – label.backcolor = RGB(255,10,120)
– RGB
(красный, зелёный, синий), или qbcolor(цвет).
В qbcolor
каждый цвет имеет свою
цифру.
5)Тоже самое проделайте с
зелёным и чёрным. Напишите
код:
Private
Sub optGreen_Click() ‘ Для
зелёного
lblColor.BackColor
= vbGreen
End
Sub
Private
Sub OptBlack_Click()
lblColor.BackColor
= vbBlack ' Для
чёрного.
End
Sub
Запустите
проект и посмотрите, что у нас получилось,
пощелкайте по переключателям.
6)Далее пишем код для
переключателей оформления:
Private
Sub optNormal_Click() ‘ Для
обычного
lblColor.Borderstyle="0"
End
Sub
Private
Sub optFix_Click() ‘ для
“фиксированный”
lblColor.Borderstyle="1" ' Изменение
вида Labelа
End
Sub
BorderSize
– внешний вид элемента.
7)Таймер:
Private
Sub Timer1_Timer()
Num.Caption
= Scroll.Value ' Присвоение значения Scrolla
End
Sub
Таймер будет каждые 0,1 секунд
присваивать Labelу
метку значения ScrollBara
8) И
наконец кнопка:
Private
Sub cmdExit_Click()
End
' Завершение программы
End
Sub
Запустите проект и проэксперементируйте с элементами.
Создайте
Exe-файл
(File->Make Exe File)
И самое
главное – сохраните его J
Мы на следующем уроке будем
усовершенствовать проект. А пока можете
проводить эксперименты над элементами,
используя другие свойства.
Фу-ххх…
Вот так выпуск получился!!!JJJ
До
свидания!!! Урок закончен! Ждите новые!
To
be continued…
-------------------------------------------------------------------------------------------------------------------------------
Выпуск
– 4: Элементы – 1(Начало)
Периодичность
рассылки: каждая суббота.
Сайт
и архив рассылки: www.symsoft.narod.ru
Ведущий
рассылки: Сёмин Герман aka FerrUM
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
