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

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

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

ШАГ 51:

Формы

Форму, как и некоторые другие объекты можно скрывать и показывать, делать копии....
Для скрытия формы можно использовать Visible(установив False), но можно и Hide(Form1.Hide), а чтобы показать, нужно использовать свойство Show(Form1.Show).Чтобы форму размножить, будем использовать свойство Show. Код:

Dim a As New Form1 'Объявляем переменную a как новую форму
Private Sub Command1_Click() ' При нажатии на кнопку:
a.Show ' Будет показываться новая форма
End Sub

Теперь создадим дочерние окно. Войдем в VB, на форму не чего кидать не будем, а войдем в Project >> Add Midi Form, и перед тобой открывается дочернее окно.


Теперь у формы в окне свойств, у свойства MIDIChild ставим True. Создаем меню. У первого раздела свойство Caption будет Файл, у первого подраздела Создать, и имя New, а у второго подраздела свойство Caption будет Выход, и имя Exit. У тебя получиться такая фенька:


Теперь пишем код:
Private Sub Exit_Click() ' При нажатии на Выход
Unload Me ' Прога закрывается
End Sub

Private Sub New_Click() ' При нажатии на Создать
Dim a As New Form1 ' объявляется переменная a как новая форма
a.Show ' Будет показываться новая форма
End Sub

ШАГ 52:

Мультимедиа. Автомат

Для работы со звуом, и все что с ним связанно есть компонент Microsot Multimedia Control 6.0. С помощью него можно проигрывать звуковые и видео файлы. Подключи этот компонент, и за одно Common Dialog. Щас сделаем прогу, котоая будет проигрывать звуковые файлы. На форму кинь кнопу(Caption = "Открыть"), MMControl(Name= "MM"), CommonDialog(Name = "CD"). Код:

Private Sub Command1_Click()
CD.ShowOpen ' Вызываем окно открытия файлов
MM.FileName = CD.FileName ' Открываем выбранный файл
MM.Command = "open" ' Запускаем
End Sub

Теперь выбери любой звуковой файл, и нажми на Play. Тока в этом примере все кнопки выбираются автоматом, и от тебя ни чо не зависит. В следующем шаге мы будем делать все это тока в ручную.
Исходник - Здесь

ШАГ 53:

Убираем лишнии кнопки

Чтобы убрать не нужные кнопки на MMControl, кинь его на форму, потом нажми на него правой кнопкой мыши, и выбери в меню - "Properties", потом в появившимся окне нажми на закладку Control.

Сдесь на против кнопки стоят 2 флажка. Первый Enabled - это активность кнопки, если галка стоит, то кнопка будет активна, если нет, то не активна. Второй Visible - это видимость, если галка стоит то кнопку будет видно, если нет...
Тока на забудь выключить свойство AutoEnabled = False, а то у тебя будут кнопки автоматом становится активными и не активными...
Так же можно делать и вручную, например:

Private Sub Form_Load()
MM.AutoEnable = False ' Выключаем AutuEnabled
MM.PrevEnabled = True ' Делаем первую кнопку активной
MM.PrevVisible = True ' И видимой
End Sub

ШАГ 54:

Проигрывание видео файлов

Чтобы спомощью VB смотреть видео, сделаем прогу. На форму кинь кнопку(Caption = "Открыть"), CommonDialog(Name = CD1), MMControl(Name= "MM"), и Picture(сдесь будет Video ролики показыватся)

Private Sub Command1_Click()
CD1.ShowOpen ' Вызываем окно открытия файлов
MM.FileName = CD1.FileName ' Открываем выбранный файл
MM.Command = "open" ' Запускаем
MM.hWndDisplay = Picture1.hWnd
End Sub

Теперь запускай прогу, ищи видео(почти на любом CD), и любуйся.



Исходник - Здесь

ШАГ 55:

Атрибуты файлов

Ты наверное когда - нибудь видел, что в свойствах файла есть 3 атрибута - Только чтение, Скрытый, Архивный, там же можно поставить галку на любой из атрибутов. В VB тоже можно это сделать. Вот как:

SetAttr "C:\Чел.exe", vbReadOnly 'Поставить атрибут "Только чтение"
SetAttr "C:\Чел.exe", GetAttr("C:\Scan Port.exe") And (Not vbReadOnly) 'Очистить атрибут "Только чтение"


SetAttr "C:\Чел.exe", vbArchive 'Поставить атрибут "Архивный"
SetAttr "C:\Чел.exe", GetAttr("C:\Scan Port.exe") And (Not vbArchive) 'Очистить атрибут "Архивный"

SetAttr "C:\Чел.exe", vbHidden 'Поставить атрибут "Скрытый"
SetAttr "C:\Чел.exe", GetAttr("C:\Scan Port.exe") And (Not vbHidden) 'Очистить атрибут "Скрытый"

ШАГ 56:

Задание

Усовершенствуй Чудо Блокнот, который ты сделал в 5 Части, добавь в раздел Правка разделы:
Вырезать
Копировать
Вставить
Удалить
Выделить Все
Дата/Время

В раздел Файл - Печать
И сделай раздел Поиск

ШАГ 57

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

В этом компоненте есть много всякой всячины, но самые нормальные это 2 объекта: Slider и ProgressBar. И мы щас сделаем прогу. Подключи этот компонент, но форму кинь Slider и ProgressBar, и таймер. Вот что у тебя должно получиться:



Теперь о свойствах:
Value - это свойство есть у обоих объектов, у Slider это положение ползунка, т.е. если Value = 5 то ползунок будет на 5 отметен. А у ProgressBar это синий квадрат. Max - это свойство есть тоже у обоих объектов, у Slider это сколько будет отметен, а у ProgressBar это вместимость.
Ну а остальные свойства ты уже должен знать. Теперь код:

Dim x As Long ' Объявляем переменную для хранения чисел

Private Sub Form_Load()
x = 0
End Sub

Private Sub Slider1_Click()
x = Slider1.Value ' При передвижении ползунка x будет равен положению ползунка
End Sub

Private Sub Timer1_Timer()
On Error GoTo Error: ' Если происходит ошибка то пропускаем это место
ProgressBar1.Value = ProgressBar1.Value + x ' Если отжата то выключаем
Error:
If Err.Number = 380 Then ProgressBar1.Value = 0 ' Если отжата то выключаем
End Sub

Есть еще свойство Scrolling, если оно будет равным 1 ccScrollongSmooth то объект ProgressBar изменит свой вид.
Исходник качай сдесь

ШАГ 58

Вставляем в кнопку картинку

Очень часто при создания файлов типо Setup, надо в кнопку всунуть картинку. На форму кинь кнопку, сделай ее размером побольше. Свойство Style = "1-Graphical", и свойство Picture = "картинка(любую)". Теперь у кнопки будет картинка. А у кнопки есть еще свойство DownPicture, оно нужно для того, чтоб при нажатии на кнопку, у нее менялась картинка. для нее тоже найди какую - нибудь картинку(желательно для этих свойств картинки с типом *.ico и *.cur, т.к. там размеры оптимальные). Вот что у тебя должно получиться:


Скачать Исходник

ШАГ 59

Коды клавишь

В этом Шаге представленны коды основных клавиш клавы. Например, у CTRL ваще не определяется ASCII код. Вот он:(Начнем с верхушки клавы)

vbKeyF1 - От F1
...
vbKeyF12 - До F12

vbKeyA - От A
...
vbKeyZ - До Z(тока англиские буквы(заглавные и обычные))

vbKeyBack - BackSpace

vbKeyInsert - Insert
vbKeyHome - Home
vbKeyPageUp - Page Up
vbKeyDelete - Delete
VbKeyEnd - End
VbKeyPageDown - Page Down

vbKeyNumlock - Num Lock
vbKeyCapital - Caps Lock

vbKeyEscape - Esc
vbKeyReturn - Enter
vbKeySpace - Пробел

vbKeyShift - Shift
vbKeyTab - TAB
VbKeyControl - CTRL
vbKeyMenu - ALT

VbKeyLeft - Стрелка влево
VbKeyRight - Стрелка в право
VbKeyDown - Стрелка в низ
VbKeyUp - Стрелка вверх

Ну вроде и все, а пользоватся ими также как и ASCII кодами:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then MsgBox "Нажат пробел" ' Если нажат пробел то выскакивает сообщение
End Sub

Остальные ASCII символы ты можешь посмотреть Здесь

ШАГ 60

CommonDialog. Метод ShowFont

Метод ShowFont нужен для вызова стандартного окна выбора шрифтоф. Щас сделаем прогу, в которой при нажатии на кнопку появится это окно. На форму кинь CommonDialog(Name = CD1), и кнопку. Вот код:

Private Sub Form_Load()
CD1.FontName = "Arial" ' Устанавливаем начальные значения для CD1
End Sub

Private Sub Command1_Click()
'Устанавливаем тип отображения диалогов окна Font
CD1.Flags = cdlCFBoth Or cdlCFEffects Or cdlCFLimitSize Or cdlCFTTOnly Or dlCFForceFontExist
'Устанавливаем значения минимального и максимального размера шрифта(они будут отображаться в поле Размер)
CD1.Min = 8 ' Минимальный размер шрифта
CD1.Max = 22 ' Максимальный размер шрифта
CD1.ShowFont ' Вызываем окно выбора шрифтов
'Присваиваем выбранные свойства(к примеру текстовому полю)
Text1.FontName = CD1.FontName ' Имя шрифта в текстовом поле будет равно выбранному
Text1.FontBold = CD1.FontBold ' Если юзер ставить в окне выбора шрифтов Жирный, то в текстовом поле будет тоже жирный шрифт
Text1.FontItalic = CD1.FontItalic ' Если юзер ставить в окне выбора шрифтов Курсив, то в текстовом поле будет тоже Курсивный шрифт
Text1.FontSize = CD1.FontSize ' Размер шрифта
Text1.FontStrikethru = CD1.FontStrikethru ' Если юзер ставит галку на зачеркнутый, то в текстовом поле будет тоже зачеркнутый текст
Text1.FontUnderline = CD1.FontUnderline ' Если юзер ставит галку на подчеркнутый, то в текстовом поле будет тоже подчеркнутый текст
Text1.ForeColor = CD1.Color ' Устанавливаем выбранный цвет шрифта
End Sub


Исходник

автор учебника: Падре
Дата создания: 12 апреля 2003 года

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

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