home *** CD-ROM | disk | FTP | other *** search
/ Computer Tool Software / soft.iso / Multimed / WINFAST / WFST230 / VB-V400 / VIDEO.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-06-03  |  4.5 KB  |  100 lines
  1. Attribute VB_Name = "VIDEO"
  2. Option Explicit
  3.  
  4. 'VLIB.DLL, video functions declare
  5. Declare Sub VIDEO_SetVideoSource Lib "VLIB.DLL" (ByVal nVideoSrc As Integer)
  6. Declare Sub VIDEO_SetInputFormat Lib "VLIB.DLL" (ByVal nVideoFormat As Integer)
  7. Declare Sub VIDEO_SetVideoMode Lib "VLIB.DLL" (ByVal nVideoMode As Integer)
  8. Declare Function VIDEO_Initialize Lib "VLIB.DLL" () As Integer
  9. Declare Sub VIDEO_End Lib "VLIB.DLL" ()
  10. Declare Sub VIDEO_EnableVideo Lib "VLIB.DLL" ()
  11. Declare Sub VIDEO_DisableVideo Lib "VLIB.DLL" ()
  12. Declare Sub VIDEO_SetColor Lib "VLIB.DLL" (ByVal ncolor As Any, ByVal ncolor As Any)
  13. Declare Sub VIDEO_SetVideoPos Lib "VLIB.DLL" (ByVal word As Integer, ByVal word As Integer, ByVal word As Integer, ByVal word As Integer)
  14. Declare Sub VIDEO_FreezeVideo Lib "VLIB.DLL" ()
  15. Declare Sub VIDEO_UnfreezeVideo Lib "VLIB.DLL" ()
  16. Declare Sub VIDEO_LoadImageRect Lib "VLIB.DLL" (ByVal lpStr As Long, ByVal word1 As Integer, ByVal word2 As Integer, ByVal word3 As Integer, ByVal word4 As Integer, ByVal wType As Integer, ByVal woffset As Integer)
  17. Declare Sub VIDEO_RestoreImageRect Lib "VLIB.DLL" (ByVal lpStr As Long, ByVal word1 As Integer, ByVal word2 As Integer, ByVal word3 As Integer, ByVal word4 As Integer, ByVal wType As Integer, ByVal woffset As Integer)
  18. Declare Sub VIDEO_SetHorizontalAlignment Lib "VLIB.DLL" (ByVal word As Integer)
  19. Declare Sub VIDEO_SetVerticalAlignment Lib "VLIB.DLL" (ByVal word As Integer)
  20. Declare Sub VIDEO_SetHorizontalCrop Lib "VLIB.DLL" (ByVal word As Integer)
  21. Declare Sub VIDEO_SetVerticalCrop Lib "VLIB.DLL" (ByVal word As Integer)
  22.  
  23. 'windows api
  24. Type RECT
  25.     left As Integer
  26.     top As Integer
  27.     right As Integer
  28.     bottom As Integer
  29. End Type
  30.  
  31. Declare Sub GetWindowRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT)
  32. Declare Sub MoveWindow Lib "User" (ByVal hWnd As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer)
  33. Declare Sub SetWindowPos Lib "User" (ByVal h1%, ByVal h2%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal F%)
  34. Declare Sub InvalidateRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT, ByVal bErase As Integer)
  35.  
  36. Global Const SM_CXSCREEN = 0
  37. Global Const SM_CYSCREEN = 1
  38. Global Const SM_CYCAPTION = 4
  39. Global Const SM_CXBORDER = 5
  40. Global Const SM_CYBORDER = 6
  41. Global Const SM_CXDLGFRAME = 7
  42. Global Const SM_CYDLGFRAME = 8
  43. Global Const SM_CYMENU = 15
  44. Global Const SM_CXFRAME = 32
  45. Global Const SM_CYFRAME = 33
  46.  
  47. Declare Function GetSystemMetrics Lib "User" (ByVal nIndex As Integer) As Integer
  48.  
  49. Type BITMAPINFOHEADER '40 bytes
  50.         biSize As Long
  51.         biWidth As Long
  52.         biHeight As Long
  53.         biPlanes As Integer
  54.         biBitCount As Integer
  55.         biCompression As Long
  56.         biSizeImage As Long
  57.         biXPelsPerMeter As Long
  58.         biYPelsPerMeter As Long
  59.         biClrUsed As Long
  60.         biClrImportant As Long
  61. End Type
  62.  
  63. Type BITMAPFILEHEADER
  64.         bfType As Integer
  65.         bfSize As Long
  66.         bfReserved1 As Integer
  67.         bfReserved2 As Integer
  68.         bfOffBits As Long
  69. End Type
  70.  
  71. Declare Function lopen Lib "Kernel" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Integer) As Integer
  72. Declare Function lclose Lib "Kernel" Alias "_lclose" (ByVal hFile As Integer) As Integer
  73. Declare Function lcreat Lib "Kernel" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Integer) As Integer
  74. Declare Function lread Lib "Kernel" Alias "_lread" (ByVal hFile As Integer, lpBuffer As Any, ByVal wBytes As Integer) As Integer
  75. Declare Function lwrite Lib "Kernel" Alias "_lwrite" (ByVal hFile As Integer, lpBuffer As Any, ByVal wBytes As Integer) As Integer
  76. Declare Function llread Lib "Kernel" Alias "_lread" (ByVal hFile As Integer, ByVal lpBuffer As Long, ByVal wBytes As Integer) As Integer
  77. Declare Function llwrite Lib "Kernel" Alias "_lwrite" (ByVal hFile As Integer, ByVal lpBuffer As Long, ByVal wBytes As Integer) As Integer
  78.  
  79. Global Const GMEM_MOVEABLE = &H2
  80. Global Const GMEM_ZEROINIT = &H40
  81.  
  82. Global Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
  83.  
  84. Declare Function GlobalAlloc Lib "Kernel" (ByVal wFlags As Integer, ByVal dwBytes As Long) As Integer
  85. Declare Function GlobalFree Lib "Kernel" (ByVal hMem As Integer) As Integer
  86. Declare Function GlobalLock Lib "Kernel" (ByVal hMem As Integer) As Long
  87. Declare Function GlobalUnlock Lib "Kernel" (ByVal hMem As Integer) As Integer
  88.  
  89. 'set local window size
  90. Global ww As Integer
  91. Global hh As Integer
  92. Global xx As Integer
  93. Global yy As Integer
  94.  
  95. Sub Main()
  96.     Load Form1
  97.     Form1.Show
  98. End Sub
  99.  
  100.