Часть 1/Часть 2/Часть 3/Часть 4/Часть 5/Часть 6/Часть 7/Часть 8/Часть 9/ Часть 10 /Часть 11/Часть 12/Часть 13 /Часть 14/Часть 15
Анимация - это движение объектов, и мы будем заставлять двигаться
все, что под руку попадется. Например, чтоб заставить двигаться текстовое поле
мы сделаем прогу. Входим в VB(Standart EXE), на форму кидаем кнопку, и текстовое
поле. Теперь код:
Private Sub Command1_Click() ' При
нажатии на кнопку:
Text1.Left = Text1.Left + 10 '
Текстовое поле. Left равно Текстовое поле. Left+10 - короче текстовое поле при
клике будет сдвигаться на десять пикселей, и место текстового поля можно указать
любой объект.
End Sub
Вот и все! Здесь ничего сложного нет!
Одним из главных объектов анимации, и вообще всего программирования,
является Timer, да ты не ослышался это таймер. Вскоре ты поймешь почему. Входим
в VB, нажимаем Standart EXE. На форму кидаем 1 кнопку со свойством Caption
равным "Пуск", 1 Shape(фигура) со свойством Shape равным 3 - Circle(Круг), и
свойством BackStyle равным 1 - Opaque(для закраски фигуры), и 3 Timera со
свойством Interval равным 1(это время через которое Timer будет обновляться
(мл)), и свойством Enabled равным False(ложь), чтобы выключить Timer, а чтоб
включить таймер тебе надо в свойстве Enabled поставить True(И это свойство есть
у всех объектов, даже у текстового поля). У тебя должна получиться такая
фенька:
Теперь код:
Private Sub
Command1_Click() ' При нажатии на кнопку включается Timer1 и
Timer3
Timer1.Enabled = True
Timer3.Enabled = True
End
Sub
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 25 ' Каждую мл Shape1 будет сдвигаться вправо на 25
End
Sub
Private Sub Timer2_Timer()
Shape1.Left = Shape1.Left - 25 ' Каждую мл Shape1 будет сдвигаться влево на 25
End
Sub
Private Sub Timer3_Timer()
If Shape1.Left <= -400 Then 'Если Shape1.Left <= -400(отскок от левой стенке)
то
Timer1.Enabled = True ' Timer1 включается
Timer2.Enabled = False ' Timer2 выключается
End If
If Shape1.Left >= 4000 Then 'Если
Shape1.Left <= -400(отскок от правой стенке) то
Timer2.Enabled =
True ' Timer2 включается
Timer1.Enabled =
False ' Timer1 выключается
End If
End
Sub
Здесь при нажатии на кнопку круг будет двигаться вправо, потом ударяться
об форму, и идти влево. Потом мы сделаем PineBall.
Исходник проги можешь
скачать отсюда
Как делать фигуры знает любой дурак (если ты не дурак, то это не
читай: "Кликаешь в инспекторе на Shape, и в свойстве объекта Shape выбираешь тип
фигуры") Все можешь читать. А как создавать фигуры програмно, знает не каждый, а
только избранные. И в этом шаге я научу тебя делать фигуры программно. Начнем с
рисования линий.
Объект.Line (X1, Y1)-(X2, Y1), Color, BF
x1 - y1,x2 - y2
- это координаты; color - цвет линии; B - задает прямоугольник; F - его
закрашивание. Пример: Form1.Line (4444, 444)-(444, 44), vbRed - рисует линию
красного цвета.
Тоже самое и с кругами:
Объект.Circle (x,y),radius,color
Пример: Form1.Circle (1255, 1266), 444, vbRed - рисует на форме круг
красного цвета.
Все я больше тебя грузить не буду.
В следующем шаге мы сделаем несколько приколов с помощью
компонентов, сделаем свой собственный блокнот, и Internet Explorer 7.0. А сейчас
будем делать прогу, у которой при нажатии на кнопку будет появляться окно выбора
цвета, и при выборе пользователем цвета, цвет текста будет меняться на
выбранный, ну если ты нифига не понял, то поймешь потом. Для добавления
компонента войди в Project >> Components
Там
выбери Microsoft Common Dialog Control 6.0, этот компонент один из самых
главных.
Теперь на форме размести текстовое поле,
кнопку, и CommonDialog с именем CD1. Код:
Private Sub
Command1_Click()
CD1.ShowColor ' Вызов стандартного окна
выбора цвета
Text1.ForeColor = CD1.Color ' Текст
станет таким же цветом какой выбрал юзер
End Sub
Вот что у тебя должно получиться:
Исходник проги можешь скачать отсюда
С помощью этого компонента можно вызывать окно открытия файлов,
сохранения, выбора цвета... Для начала подключи его(если забыл то посмотри в
шаге 34). На форму кинь текстовое поле, 3 кнопки, и CommonDialog(назови его
CD1). Начнем мы с открытия файлов.
1. Открытие файлов:
Сделай
свойство Caption у Первой кнопки = "Открыть". Вот щас мы прогу сделаем, у
которой выбранный файл в Окне Открытия файлов записывался в текстовое поле.
Код:
Private Sub Command1_Click()
CD1.ShowOpen '
Вызываем окно открытия файлов
Text1.Text = CD1.FileName ' Свойство FileName нужно для того чтоб узнать какой файл был
выбран
End Sub
Свойства:
1. InitDir - это
свойство определяет папку, которая будет при открытии Окна выбора файлов первой.
Короче сделай свойство InitDir = A:\, и тогда при запуске окна выбора файлов
первый будет диск A:(можно написать c:\games - тогда первый будет папка Games)
2. DialogTitle - это свойство определяет заголовок окна(например у
окна выбора файлов заголовок по умолчанию - "Открыть")
4. FilterName
это свойство указывает начальные значения текстового поля(Имя Файла). Например
если туды вписать Базик, то при запуске окна в поле Имя файла будет вписанно
Базик
5. Filter - Это чо то типа фильтра, т.е. сдесь можно указать
чтоб можно было выбирать тока текстовые файлы, или exeшники... Например можно
написать так:
Private Sub Command1_Click()
CD1.ShowOpen ' Вызываем окно открытия файлов
End Sub
Private
Sub Form_Load()
CD1.Filter = "Ворд|*.doc|Текстовые|*.txt|Приложения|*.exe|Все
файла|*.*|" ' Даем право выбора юзеру
End
Sub
Сегодня мы рассмотрим компонент CompControl, с его помощью можно
управлять компом (перезагружать, открывать CD-ROM, очищать корзину...), и делать
всякие приколы. Для добавления компонента войди в Project >>
Components
Там выбери Do many API calls! version 3,
другие версии тоже сойдут. Если у тебя нет этого компонента, то можешь скачать его
(нажми Browse, найди скаченной компонент, и нажми открыть). Если у тебя по какой
- то причине не скачивается, или не работает этот компонент срочно пиши
мне(E-mail: padre03@mail.ru), или
оставляй на форуме, или гостевой книге(vbstreets.narod.ru свой вопрос. Ну ладно,
будем считать что у тебя есть этот компонент. Подключи его (см. выше как это
делается). На панели инструментов появится у тебя появится такая фенька:. Закинь ее на форму, и дай ей имя CC1, теперь смотри на таблицу:
Название функции | Описание |
Семейство функций, которые вызывают вкладки из панели управления | |
Add_HardWare() | Добавление нового оборудования |
Add_Remove() | Добавление и удаление программ |
Display_Settings() | Настройки экрана |
Internet_Settings() | Настройки Internet Explorer |
Keyboard_Settings() | Настройки клавиатуры |
Modem_Settings() | Настройки модемов |
Mouse_Settings() | Настройки мыши |
Network_Settings() | Настройки сети |
Password_Settings() | Настройки защиты |
Regional_Settings() | Региональные настройки |
Sounds_Settings() | Настройки звука |
System_Settings() | Системные настройки |
Функции, изменяющие настройки системы | |
ALT_CTRL_DEL_Disabled() ALT_CTRL_DEL_Enabled() |
Выключение и, соответственно, включение волшебной комбинации клавиш Alt+Ctrl+Delete |
Cursor_Hide() Cursor_Show() |
Скрытие и, соответственно, показ курсора |
DesktopIconsHide() DesktopIconsShow() |
Скрывает и, соответственно, показывает все иконки на рабочем столе пользователя |
TaskBarHide() TaskBarShow() |
Скрывает и, соответственно, показывает системную панель. Ту самую, на которой находится кнопка "Пуск" ("Start") |
Функции работы с файлами | |
Copy_File(FileToCopy, Destination) | Копирует файл FileToCopy в Destination |
Delete_File(file) | Удаляет файл file |
EmptRecycle() | Очищает корзину |
FindFiles() | Открытие окна поиска файлов |
Move_File(FileToMove, Destination) | Переименовывает / переносит файл FileToMove в Destination |
Другие функции | |
InternetConnect() InternetDiconnect() |
Установить и разорвать связь с Internet-провайдером |
LogOff() | Завершить сеанс работы пользователя и вывести окно для ввода имени пользователя и пароля |
MinimizeAll() | Свернуть все окна |
OpenCDROM() | Открыть CD-ROM |
OpenExplore() | Открыть окно Explorer |
OpenInternetBrowser() | Открыть окно Internet Explorer |
Restart() | Перезагрузить компьютер. |
ScreenSaverOff() | Выключить хранитель экрана |
ScreenSaverOn() | Включить хранитель экрана |
SendEmail() | Открыть окно для создания сообщения электронной почты |
ShutDown() | Завершить работу компьютера |
ShutDown_DIALOG() | Показать диалог завершения работы компьютера |
Sleep_Millisecs(LengthInMilliseconds) | Заснуть на LengthInMilliseconds миллисекунд |
Подключи компонент CompControl, на форму закинь компонент
CompComtrol(он находится на Панели инструментов), Timer, со свойством Interval
равным 3000, и у формы свойство Visible, должно быть равным False(это чтобы
форму не было видно(Visible означает видимость)). Теперь код:
Private
Sub Form_Load() ' При загрузки формы
Form1.Visible
= False ' Прога становится не видимой
Timer1.Interval = 3000 ' Timer каждые 3 сек. будет
обновляться
CompControl1.ALT_CTRL_DEL_Disabled '
блокируем 3 волшебные клавиши
End Sub
Private Sub
Timer1_Timer()
CompControl1.OpenCDROM ' CD - ROM будет
открываться каждые 3 сек.
End Sub
Все прога готова! Теперь
осталось ее откомпилировать, и подсунуть какому - нибудь ламеру. Чтобы на
вражеском компе она загружалась каждый раз при включении компа, тебе надо
поместить ее в Автозагрузку. (Нажми на кнопку Пуск правой кнопкой, и кликни на
открыть. Дальше входишь в программы, Автозагрузка. Теперь переносишь туда свою
прогу (ее ярлык)(C:\WINDOWS\Главное меню\Программы\Автозагрузка)). Исходник
проги можешь скачать отсюда
Почти в каждой проге есть меню, и скоро в наших прогах оно появится.
Чтобы научиться создавать меню создадим новый проект. На панели Standart
кликните по Menu Editor, или нажмите CTrl+E, или войдите в Tools >> Menu
Editor
Короче ты должен открыть, любой ценой это окно:
Теперь я тебе децл расскажу о его создании. Для
создания меню тебе надо ввести свойство Caption и Name любые буквы. Теперь
нажимай Next, и если ты нажмешь на стрелку вправо ,и вписываешь текст в Caption
и Name, то у тебя получиться такая фенька:
Если ты нажмешь 1 раз на стрелку, потом Next, и еще 2 раза на
стрелку, то у тебя получится такая фенька:
Если ты будешь всегда нажимать Next, только вписывать Caption
и Name, то у тебя получится такая фенька:
Теперь децл о свойствах расскажу. Если поставить галку на
свойстве Checked, то напротив раздела меню будет стоять галка, если поставить на
Enabled, то на раздел нельзя будет нажать, если поставить на Visible, то его не
будет видно. Ну вроде все.
Для создания контекстного меню создадим новый проект. На форму кинем
кнопку, и создадим обычное меню. У первого раздела уберем свойство Visible,
чтобы его не было видно.
У кнопки событие Event
поставь MouseUp(при нажатии на кнопку мыши)
Теперь
код:
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 2 Then ' Если нажата 2
кнопка мыши то: (1 кнопка левая, 2 - правая, 3 - средняя; также можно написать
vbRightButton - правая кнопка, vbLeftButton - левая)
Form1.PopupMenu
A, , , , S ' Здесь A - это имя первого раздела, а S - имя того
раздела, который будет выделен
End If
End Sub
Как я и обещал в первой части, что мы будем работать с клавой. Для
этого нам понадобится прога, которую мы делали в первой части в 7 шаге. Эта
прога переводит числа в код Аски и обратно, если у тебя ее нет, то скачай ее от
сюда.Хей, Стоп не
нажимай туда, обойдемся и без нее. Теперь входим в VB, у форме событие Event
делаем KeyDown(если нажата клавиша): автор учебника: Падре
Теперь пишем
код:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If
KeyCode = Asc("Z") Then
MsgBox "Ты нажал на Z"
End If
End
Sub
Ну на этом я закончу тебя грузить, можешь переходить к Пятой части. В ней
будем делать приколы, работать с файлами и папками, сделаем PinBall, Блокнот, и
Internet Explorer 7....Если у тебя есть какие - нибудь вопросы, пожелания и
т.д., то оставляй свои сообщения на форуме, гостевой книге (моего сайта vbstreets.narod.ru), или пиши в
наглую на E-mail: padre03@mail.ru, я на них обязательно отвечу.
И если ты зайдешь на мой сайт, кликни плиз по банеру Porta(сиреневый), мне за
это немного бабла отвалется(2 цента). И если ты захочешь поддержать
Отечественного производителя(т.е. Меня), то кликай по банеру раз в месяц. А если
ты очень богатый, то не просто кликни, а еще что - нибудь купи.
Дата создания: 9 Февраля 2003 года
Место под Банеры |
![]() |