Часть 1/Часть 2/Часть 3/Часть 4/Часть 5/Часть 6/Часть 7/Часть 8/Часть 9/ Часть 10 /Часть 11/Часть 12/Часть 13 /Часть 14/Часть 15 /Часть 16 /Часть 17 /Часть 18
Форму, как и некоторые другие объекты можно скрывать и показывать, делать копии....
Для скрытия формы можно использовать 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 года
Место под Банеры |
![]() |