home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
apmmet
/
metaglob.bas
< prev
next >
Wrap
BASIC Source File
|
1992-08-18
|
958b
|
33 lines
DefInt A-Z
Option Base 1
Type RectStr
Left As Integer
Top As Integer
Right As Integer
Bottom As Integer
End Type
Type APMHEADER
dwKey As Long
hMF As Integer
rcBBox As RectStr
wInch As Integer
dwReserved As Long
wChecksum As Integer
End Type
Type METABITMAP
hMetaMem As Integer
mLeft As Integer
mTop As Integer
mRight As Integer
mBottom As Integer
End Type
Declare Function LoadAPMetafile Lib "apmmeta.dll" (ByVal FileStr$, APMHdr As APMHEADER) As Integer
Declare Function CreateMemhDC Lib "apmmeta.dll" (APMHdr As APMHEADER, MetaBmp As METABITMAP, ByVal hDC As Integer) As Integer
Declare Function CopyMemToDev Lib "apmmeta.dll" (MetaBmp As METABITMAP, ByVal hDC As Integer, ByVal Xorg As Integer, ByVal Yorg As Integer) As Integer
Declare Sub ClearMemhDC Lib "apmmeta.dll" (MetaBmp As METABITMAP)