modglobal.bas

管理电子相片 可以进行上传 评价 浏览 等操作

Attribute VB_Name = "modGlobal"

Option Explicit



'-- API Declarations
Public Type POINTAPI
    x As Long
    y As Long
End Type

Public Declare Function timeGetTime Lib "winmm" () As Long

Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY As Long = &HCC0020

Public Declare Function GetStretchBltMode Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function SetStretchBltMode Lib "gdi32" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long
Public Const COLORONCOLOR As Long = 3

Public Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_RESTORE As Long = &H9&

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

'-- Global
Public Const THUMB_MAX_SIZE = 61    ' Thumbnail size

Public tmpPath         As String    ' Picture path
Public tmpPathFull     As String
Public tmpPathPreview  As String

Public ThumbIndex      As Long      ' Actual Thumbnail
Public lastThumbIndex  As Long      ' Last Thumbnail
Public tblID()         As Long      ' ID Database Picture
Public tblSt()         As Long      ' Thumbnail status:
                                    '   1 : Load error
                                    '   2 : Moved
                                    '   3 : Deleted
Public ThumbIsSelected As Boolean   ' Move/Delete: False
Public CopyThumb       As Boolean   ' Move/Copy thumbnail flag

Public i     As Long                ' General counter
Public t     As Single              ' Timing counter
Public sResp As String              ' General return of InputBox/MsgBox




'------------------------------------------------------------------------------
' Draw decorative bar
'------------------------------------------------------------------------------

Public Sub DrawBar(dstForm As Form, yPos As Single)
    For i = yPos To yPos + 22 Step 2
        dstForm.Line (0, i)-(dstForm.ScaleWidth, i), vb3DHighlight
        dstForm.Line (0, i + 1)-(dstForm.ScaleWidth, i + 1), vb3DShadow
    Next i
End Sub