Часть 1/Часть 2/Часть 3/Часть 4/Часть 5/Часть 6/Часть 7/Часть 8/Часть 9/ Часть 10 /Часть 11/Часть 12/Часть 13 /Часть 14/Часть 15
Форму, как и некоторые другие объекты можно скрывать и показывать,
делать копии....
Для скрытия формы можно использовать 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
Для работы со звуом, и все что с ним связанно есть компонент
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. Тока в этом примере все кнопки выбираются автоматом, и от
тебя ни чо не зависит. В следующем шаге мы будем делать все это тока в
ручную.
Исходник - Здесь
Чтобы убрать не нужные кнопки на MMControl, кинь его на форму, потом
нажми на него правой кнопкой мыши, и выбери в меню - "Properties", потом в
появившимся окне нажми на закладку Control.
Сдесь на против кнопки стоят 2 флажка. Первый Enabled -
это активность кнопки, если галка стоит, то кнопка будет активна, если нет, то
не активна. Второй Visible - это видимость, если галка стоит то кнопку будет
видно, если нет...
Тока на забудь выключить свойство AutoEnabled = False, а
то у тебя будут кнопки автоматом становится активными и не активными...
Так
же можно делать и вручную, например:
Private Sub
Form_Load()
MM.AutoEnable = False ' Выключаем
AutuEnabled
MM.PrevEnabled = True ' Делаем первую
кнопку активной
MM.PrevVisible = True ' И
видимой
End Sub
Чтобы спомощью 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), и любуйся.
Исходник - Здесь
Ты наверное когда - нибудь видел, что в свойствах файла есть 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) 'Очистить
атрибут "Скрытый"
Усовершенствуй Чудо Блокнот, который ты сделал в 5 Части, добавь в
раздел Правка разделы:
Вырезать
Копировать
Вставить
Удалить
Выделить
Все
Дата/Время
В раздел Файл - Печать
И сделай раздел Поиск
В этом компоненте есть много всякой всячины, но самые нормальные это
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 изменит свой вид.
Исходник
качай сдесь
Очень часто при создания файлов типо Setup, надо в кнопку всунуть
картинку. На форму кинь кнопку, сделай ее размером побольше. Свойство Style =
"1-Graphical", и свойство Picture = "картинка(любую)". Теперь у кнопки будет
картинка. А у кнопки есть еще свойство DownPicture, оно нужно для того, чтоб при
нажатии на кнопку, у нее менялась картинка. для нее тоже найди какую - нибудь
картинку(желательно для этих свойств картинки с типом *.ico и *.cur, т.к. там
размеры оптимальные). Вот что у тебя должно получиться:
Скачать
Исходник
В этом Шаге представленны коды основных клавиш клавы. Например, у
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 символы
ты можешь посмотреть Здесь
Метод 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
года
Место под Банеры |
![]() |