Programming Tool Box/SIMS_2.iso/vb_code1/apix/apitype.txt

Text File | 1992-04-27 | 6KB | 294 lines

DefInt A-Z
Type RECT
left As Integer
top As Integer
right As Integer
bottom As Integer
End Type
Type POINTAPI
x As Integer
y As Integer
End Type
Type MSG
hwnd As Integer
message As Integer
wParam As Integer
lParam As Long
time As Long
pt As POINTAPI
End Type
Type PARAMETERBLOCK
wEnvSeg As Integer
lpCmdLine As Long
lpCmdShow As Long
dwReserved As Long
End Type
Type OFSTRUCT
cBytes As String * 1
fFixedDisk As String * 1
nErrCode As Integer
reserved As String * 4
szPathName As String * 128
End Type
Type BITMAP
bmType As Integer
bmWidth As Integer
bmHeight As Integer
bmWidthBytes As Integer
bmPlanes As String * 1
bmBitsPixel As String * 1
bmBits As Long
End Type
Type RGBTRIPLE
rgbtBlue As String * 1
rgbtGreen As String * 1
rgbtRed As String * 1
End Type
Type RGBQUAD
rgbBlue as String * 1
rgbGreen As String * 1
rgbRed As String * 1
rgbReserved As String * 1
End Type
Type BITMAPCOREHEADER
bcSize as Long
bcWidth As Integer
bcHeight As Integer
bcPlanes As Integer
bcBitCount As Integer
End Type
Type BITMAPINFOHEADER
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
Type BITMAPINFO
bmiHeader as BITMAPINFOHEADER
bmiColors As String * 128
End Type
Type BITMAPCOREINFO
bmciHeader As BITMAPCOREHEADER
bmciColors As String * 96
End Type
Type BITMAPFILEHEADER
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Type HANDLETABLE
objectHandle As String * 512
End Type
Type METARECORD
rdSize As Long
rdFunction As Integer
rdParm As String * 512
End Type
Type METAFILEPICT
mm As Integer
xExt As Integer
yExt As Integer
hMF As Integer
End Type
Type METAHEADER
mtType As Integer
mtHeaderSize As Integer
mtVersion As Integer
mtSize As Long
mtNoObjects As Integer
mtMaxRecord As Long
mtNoParameters As Integer
End Type
Type TEXTMETRIC
tmHeight As Integer
tmAscent As Integer
tmDescent As Integer
tmInternalLeading As Integer
tmExternalLeading As Integer
tmAveCharWidth As Integer
tmMaxCharWidth As Integer
tmWeight As Integer
tmItalic As String * 1
tmUnderlined As String * 1
tmStruckOut As String * 1
tmFirstChar As String * 1
tmLastChar As String * 1
tmDefaultChar As String * 1
tmBreakChar As String * 1
tmPitchAndFamily As String * 1
tmCharSet As String * 1
tmOverhang As Integer
tmDigitizedAspectX As Integer
tmDigitizedAspectY As Integer
End Type
Type PELARRAY
paXCount As Integer
paYCount As Integer
paXExt As Integer
paYExt As Integer
paRGBs As Integer
End Type
Type LOGBRUSH
lbStyle As Integer
lbColor As Long
lbHatch As Integer
End Type
Type LOGPEN
lopnStyle As Integer
lopnWidth As POINTAPI
lopnColor As Long
End Type
Type PALETTEENTRY
peRed As String * 1
peGreen As String * 1
peBlue As String * 1
peFlags As String * 1
End Type
Type LOGPALETTE
palVersion As Integer
palNumEntries As Integer
palPalEntry As String * 252
End Type
Type LOGFONT
lfHeight As Integer
lfWidth As Integer
lfEscapement As Integer
lfOrientation As Integer
lfWeight As Integer
lfItalic As String * 1
lfUnderline As String * 1
lfStrikeOut As String * 1
lfCharSet As String * 1
lfOutPrecision As String * 1
lfClipPrecision As String * 1
lfQuality As String * 1
lfPitchAndFamily As String * 1
lfFaceName As String * LF_FACESIZE
End Type
Type EVENTMSG
message As Integer
paramL As Integer
paramH As Integer
time As Long
End Type
Type PAINTSTRUCT
hdc As Integer
fErase As Integer
rcPaint As RECT
fRestore As Integer
fIncUpdate As Integer
rgbReserved As String * 16
End Type
Type CREATESTRUCT
lpCreateParams As Long
hInstance As Integer
hMenu As Integer
hwndParent As Integer
cy As Integer
cx As Integer
y As Integer
x As Integer
style As Long
lpszName As Long
lpszClass As Long
ExStyle As Long
End Type
Type MEASUREITEMSTRUCT
CtlType As Integer
CtlID As Integer
itemID As Integer
itemWidth As Integer
itemHeight As Integer
itemData As Long
End Type
Type DRAWITEMSTRUCT
CtlType As Integer
CtlID As Integer
itemID As Integer
itemAction As Integer
itemState As Integer
hwndItem As Integer
hDC As Integer
rcItem As RECT
itemData As Long
End Type
Type DELETEITEMSTRUCT
CtlType As Integer
CtlID As Integer
itemID As Integer
hwndItem As Integer
itemData As Long
End Type
Type COMPAREITEMSTRUCT
CtlType As Integer
CtlID As Integer
hwndItem As Integer
itemID1 As Integer
itemData1 As Long
itemID2 As Integer
itemData2 As Long
End Type
Type MENUITEMTEMPLATEHEADER
versionNumber As Integer
offset As Integer
End Type
Type MENUITEMTEMPLATE
mtOption As Integer
mtID As Integer
mtString As Long
End Type
Type DCB
Id As String * 1
BaudRate As Integer
ByteSize As String * 1
Parity As String * 1
StopBits As String * 1
RlsTimeout As Integer
CtsTimeout As Integer
DsrTimeout As Integer
Bits1 As String * 1
Bits2 As String * 1
XonChar As String * 1
XoffChar As String * 1
XonLim As Integer
XoffLim As Integer
PeChar As String * 1
EofChar As String * 1
EvtChar As String * 1
TxDelay As Integer
End Type
Type COMSTAT
Bits As String * 1
cbInQue As Integer
cbOutQue As Integer
End Type
Type MDICREATESTRUCT
szClass As Long
szTitle As Long
hOwner As Integer
x As Integer
y As Integer
cx As Integer
cy As Integer
style As Long
lParam As Long
End Type
Type CLIENTCREATESTRUCT
hWindowMenu As Integer
idFirstChild As Integer
End Type
Type MULTIKEYHELP
mkSize As Integer
mkKeylist As String * 1
szKeyphrase As String * 253
End Type