module1.bas

来自「很好的教程原代码！」· BAS 代码 · 共 20 行

Attribute VB_Name = "Module1"
Option Explicit

Public Const EM_CHARFROMPOS = &HD7
Public Const EM_GETLINECOUNT = &HBA
Public Const EM_GETLINE = &HC4
Public Const EM_LINEINDEX = &HBB
Public Const EM_LINELENGTH = &HC1
Public Const EM_SETSEL = &HB1

Declare Sub RtlMoveMemory Lib "KERNEL32" _
    (lpvDest As Any, lpvSource As Any, ByVal _
    cbCopy As Long)
Declare Function SendMessage Lib "user32" Alias _
    "SendMessageA" (ByVal hwnd As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long