pubpar.bas

北京微视公司图像采集卡SDK开发包

Attribute VB_Name = "PubPar"

''''''''''变量
Public nAmount As Long

Public hDevice As Long

Public Index As Long

Public nBoardType As Long

Public bOnField As Boolean

Public nFileFmt As Integer

Public bIsColor As Boolean

Public nQuality As Integer

Public nFrmNo As Long

Public strFileDir As String

Public nReg As Integer

Public info As MV_IMAGEINFO

Public bSaveFilePro As Boolean

Public bIsRGB15 As Boolean

Public bIsReadData As Boolean

Public Pnt As PointAPI

Public strDotData As String

Public hintFileDir As String

Public hintPAL As String

Public hintChannel As String

Public hintDx As String

Public hintCapFrame As String

Public hintName As String

Public bRealTimeInfo As Boolean

Public strCardName(7) As String

''''''''''类型
Public Type Size
    cx As Long
    cy As Long
End Type

Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

''''''''''函数
Public Declare Function GetCurrentDirectory _
               Lib "kernel32" _
               Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, _
                                             ByVal lpBuffer As String) As Long

Public Declare Function GetSaveFileName _
               Lib "comdlg32.dll" _
               Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

Public Declare Function GetOpenFileName _
               Lib "comdlg32.dll" _
               Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Public Declare Function TextOut _
               Lib "gdi32" _
               Alias "TextOutA" (ByVal hdc As Long, _
                                 ByVal X As Long, _
                                 ByVal Y As Long, _
                                 ByVal lpString As String, _
                                 ByVal ncount As Long) As Long

Public Declare Function SetTextColor _
               Lib "gdi32" (ByVal hdc As Long, _
                            ByVal crColor As Long) As Long

Public Declare Function SetBkMode _
               Lib "gdi32" (ByVal hdc As Long, _
                            ByVal nBkMode As Long) As Long

Public Declare Function GetWindowDC _
               Lib "user32" (ByVal hWnd As Long) As Long

Public Declare Function GetCursorPos _
               Lib "user32" (lpPoint As PointAPI) As Long '取得鼠标位置的函数。2005-9
               
Public Declare Function ScreenToClient _
               Lib "user32" (ByVal hWnd As Long, _
                             ByRef lPoint As PointAPI) As Boolean