Главная Гостевая Форум INFA

Программируем на Visual Basic'e:

Часть 1/Часть 2/Часть 3/Часть 4/Часть 5/Часть 6/Часть 7/Часть 8/Часть 9/ Часть 10 /Часть 11/Часть 12/Часть 13 /Часть 14/Часть 15

ШАГ 31:

Введение в Анимацию

Анимация - это движение объектов, и мы будем заставлять двигаться все, что под руку попадется. Например, чтоб заставить двигаться текстовое поле мы сделаем прогу. Входим в VB(Standart EXE), на форму кидаем кнопку, и текстовое поле. Теперь код:

Private Sub Command1_Click() ' При нажатии на кнопку:
Text1.Left = Text1.Left + 10 ' Текстовое поле. Left равно Текстовое поле. Left+10 - короче текстовое поле при клике будет сдвигаться на десять пикселей, и место текстового поля можно указать любой объект.
End Sub

Вот и все! Здесь ничего сложного нет!

ШАГ 32:

Анимация

Одним из главных объектов анимации, и вообще всего программирования, является 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.
Исходник проги можешь скачать отсюда

ШАГ 33:

Фигуры

Как делать фигуры знает любой дурак (если ты не дурак, то это не читай: "Кликаешь в инспекторе на 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 - рисует на форме круг красного цвета.
Все я больше тебя грузить не буду.

ШАГ 34:

Компоненты

В следующем шаге мы сделаем несколько приколов с помощью компонентов, сделаем свой собственный блокнот, и 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

Вот что у тебя должно получиться:


Исходник проги можешь скачать отсюда

ШАГ 35:

Компонент Microsoft Common Dialog Control 6.0

С помощью этого компонента можно вызывать окно открытия файлов, сохранения, выбора цвета... Для начала подключи его(если забыл то посмотри в шаге 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


ШАГ 36

Компонент CompControl


Сегодня мы рассмотрим компонент 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 миллисекунд
В ней ты видишь функцию, и ее значение. Например, возьмем функцию OpenCDROM, как ты наверное догадался, или прочитал в описании, эта функция нужна для открытия CD - ROM`a. Для ее использования надо написать CC1.OpenCDROM. Также можно использовать другие функции. Короче тебе надо написать имя компонента.функция. Теперь можешь сделать прикол.

ШАГ 37

Делаем прикол с CD - ROM`om

Подключи компонент 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\Главное меню\Программы\Автозагрузка)). Исходник проги можешь скачать отсюда

ШАГ 38

Создание Меню

Почти в каждой проге есть меню, и скоро в наших прогах оно появится. Чтобы научиться создавать меню создадим новый проект. На панели Standart кликните по Menu Editor, или нажмите CTrl+E, или войдите в Tools >> Menu Editor

Короче ты должен открыть, любой ценой это окно:

Теперь я тебе децл расскажу о его создании. Для создания меню тебе надо ввести свойство Caption и Name любые буквы. Теперь нажимай Next, и если ты нажмешь на стрелку вправо ,и вписываешь текст в Caption и Name, то у тебя получиться такая фенька:

Если ты нажмешь 1 раз на стрелку, потом Next, и еще 2 раза на стрелку, то у тебя получится такая фенька:

Если ты будешь всегда нажимать Next, только вписывать Caption и Name, то у тебя получится такая фенька:

Теперь децл о свойствах расскажу. Если поставить галку на свойстве Checked, то напротив раздела меню будет стоять галка, если поставить на Enabled, то на раздел нельзя будет нажать, если поставить на Visible, то его не будет видно. Ну вроде все.

ШАГ 39

Создание Контекстного Меню

Для создания контекстного меню создадим новый проект. На форму кинем кнопку, и создадим обычное меню. У первого раздела уберем свойство 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

ШАГ 40

Работа с Клавой

Как я и обещал в первой части, что мы будем работать с клавой. Для этого нам понадобится прога, которую мы делали в первой части в 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 года

Место под Банеры

Официальный сайт учебника - 'Программируем на Visual Basic'