Written by U1traDIMM 07.07.2001
Disclamer
Статья расчитана на начальный и средне-начальный уровень. Все желающие после прочтения статьи организовать свою компанию MacroHard для создания эксклюзивного супер-гипер-мега софта круто обломаются.
Моя цель при написании статей - научить новичков основам языка.Как раз написание софта помогает постигать эти основы.
Желающим узнать побольше могу посоветовать RTFM. Читайте HELP, доки на сайтах, спрашивайте в техподдержке (маловероятно, что вам ответят что-то стоящее - я пробовал), у более опытных кодеров.
Например наша группа [DLC] специализируется в программировании на написании софта для работы с графикой и с Inet′oм.
Вполне возможно, что через некоторое время на нашем сайте появятся серьёзные статьи по этим темам.
Цель : написать программу просмотра графических изображений(jpg,bmp, gif,ico,cur,emf,wmf).
На этот раз ограничимся стандартными компонентами.Расположим на форме компоненты DrivelistBox,DirlistBox,FilelistBox,Image и PictureBox как показано на скрине,причем Image поместим на PictureBox(у них должен быть общий левый-верхний угол).У меня помимо этого используются компоненты HScroll и VScroll (но это не обязательно). Также добавим вторую форму (Project-Add Form).Первая форма будет главной, вторая вспомогательной. На второй форме разместим всего одну кнопку.Два раза шёлкнем на ней и напишем в появившемся окне.
Этот код загрузит первую форму и уберёт вторую. С помощью этого очень легко делать кнопочные меню с выбором форм.
В первой форме изменим некоторые св-ва. Например Caption - по усмотрению (JPGviewer), у PictureBox background=black и у FileListBox pattern= *.bmp;*.jpg. Сюда можно дописать и другие графические форматы.
Теперь приступим собственно к кодингу :
Private Sub Dir1_Change()
File1.Path = Dir1.Path ′Выводим список файлов в директории
End Sub
Private Sub Drive1_Change()
On Error GoTo fuck
Dir1.Path = Drive1.Drive ′Выводим список директорий на диске
Exit Sub
fuck:
Dir1.Path = File1.Path
MsgBox Err.Description, vbCritical, "Error"
End Sub
Private Sub File1_Click()
Image1.Left = 0
Image1.Top = 0
HScroll1 = 0
VScroll1 = 0
Image1.Picture = LoadPicture(File1.Path & "" & File1.filename)′ Загрузка картинки
If Image1.Width > Picture1.Width Then ′ Дальше следуют операторы работы с
HScroll1.Max = Image1.Width - Picture1.Width ′размерами и положением картинки на экране.
HScroll1.Enabled = True
Else
HScroll1.Enabled = False
End If
If Image1.Height > Picture1.Height Then
VScroll1.Max = Image1.Height - Picture1.Height
VScroll1.Enabled = True
Else
VScroll1.Enabled = False
End If
End Sub
Private Sub HScroll1_Change()
Image1.Left = -HScroll1
End Sub
Private Sub VScroll1_Change()
Image1.Top = -VScroll1
End Sub
|
После этого программу можно компилировать.
Как всегда улучшенная версия на http://www.dlc.hut.ru. Правда она будет доступна где-то в конце августа.
