home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
bmp_catl
/
bview.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1995-02-26
|
4KB
|
88 lines
BVIEW
(Bitmap Catalog - Written By: Sean Bishop
ffffffffffffff`
ffffffffffffff`
Form1%
Picture2
File1
*.bmp;*.rle
Timer1
VScroll1
Picture1
MS Sans Serif
&Options
&Change Dir...
&About
&Exit
@ EXT_Click
Form_ClickG
Form_Resize
StretchBlt
destDC
srcDC
hSrch
SRCCOPY
XWidth
ScaleWidth.
YWidthf
ScaleHeight
Width
Height
CDIR_Click
Browse"
File1_Click
File1_PathChange
File1
ListCount
VScroll1
Enabled
ListC
PTemp
Picture
BitBlt3
Picture1
Picture2V
Picture2_Click
Picture1_Click
Picture1_Paint
Form_Paint
@ Form_Load
BView
Screen
Timer1_Timer
Timer1
VScroll1_Change
Value
AutoRedraw
@ ABT_Click
CurrentY
CurrentX
MousePointer
OPT_Click
Declare the StretchBlt GDI routine to resize the bitmaps
ABT_Click
CDIR_Click
If cancel was selected then exitp
EXT_Click
File1_PathChange
This is the routine to load and display the graphics
Change mousepointer to hourglass
Clear Picture Boxo
Get number of files to load
If no files in list then exit
This increments the display to show all pictures
FN$ is directory - This gets the filename to load
This loads the picture into the temp picture box for resizing
This resizes and places the graphic in the main display areas
This sets the current horizontal text position
This sets the current horizontal text position
This prints the filename under the picturep
Update display(
Change mouse to normal arrowt
Form_Load
Center form on screenn
Timer1_Timer
This disables timer, once the program is loaded and the first set loaded it is not needed!o
Start picture process
VScroll1_Change