模块1.txt

来自「一个用vb的经典的图形编辑程序」· 文本 代码 · 共 36 行

Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Type POINTAPI
      X As Long
      Y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long              '能够获得当前鼠标的横纵坐标x,y
Global canpen As Boolean, canline As Boolean
Global cancircle As Boolean, canfcircle As Boolean
Global canrect As Boolean, canfrect As Boolean
Global canpolo As Boolean, canrubber As Boolean
Global canyouqi As Boolean, canbrush As Boolean
Global Xuanding As Boolean                                                             '用于选定区域的
Global drawact As Integer                                                              '用于完成直线,铅笔等的区别,为了便于编程，我们将吸管的drawact等于11,选定区域的drawact=12
Global open2 As Boolean
Global move1 As Boolean
Global duibidu As Single, liangdu As Single                                            '用于对比度，亮度的处理，只要亮度增量 B＝0，无论怎么改变对比度 A，该直线始终通过中心点(127,127),也就是说改变对比度的同时，亮度没有改变，当我们只想改变亮度的时候，可以将对比度的增值设为1y=(x-127)*A+B+127

Public Sub PreFlip()
  With FormMain
   .PicFlip.Height = .PicMain.Height
   .PicFlip.Width = .PicMain.Width
   .PicFlip.Picture = .PicMain.Image
  End With
End Sub
Public Function FileExist(sFileN As String) As Boolean
    Dim tmpRv As Long
    On Error Resume Next
    tmpRv = GetAttr(sFileN)         'GetAttr获得文件的属性，返回一个整数，表示一个文件，目录或文件的属性
    If Err Then                     'sFileN如果在当前文件夹没有错误那么返回TRUE,如果在当前文件夹不存在，有错误返回一个FALSE
        FileExist = False
    Else
        FileExist = True
    End If
End Function