module1.bas

vb学习

Attribute VB_Name = "Module1"
Public Declare Function SendMessageByRef Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, wParam As Long, _
        lParam As Long) As Long
        

Public Const WM_USER = &H400
Public Const EM_GETSEL = &HB0

Public Const EM_REDO = WM_USER + 84
Public Const EM_UNDO = &HC7
Public Const EM_CANUNDO = &HC6
Public Const EM_CANREDO = WM_USER + 85
Public Const EM_FMTLINES = &HC8
Public Const EM_GETHANDLE = &HBD
Public Const EM_LINEFROMCHAR = &HC9
Public Const EM_LINEINDEX = &HBB

Public Const WM_MOUSEWHEEL = &H20A

Public strReplace As String
Public FormCount As Integer
Dim FileList(3) As String
'Public Const EM_GETUNDONAME = WM_USER + 86
'Public Const EM_GETREDONAME = WM_USER + 87

'Public Const WM_PASTE = &H302
'Public Const WM_CUT = &H300
'Public Const WM_COPY = &H301