?? pubpar.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -