ymodule1.bas

文本编辑器。可以通过此列制作出自己的实用编辑器。

Attribute VB_Name = "Module1"
Option Explicit
Public Declare Function ShellExecute Lib "shell32.dll" 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 TextChanged(1 To 9) As Boolean
Public fMainForm As frmMain

Public saveflag(1 To 9) As Boolean
Public frmD As frmDocument
Public FindString As String
Public FoundString As String
Public gCurPos As Integer
Public Direction As Integer
Public gFindString As String
Public Finding As Boolean
Public ReplaceFlag As Boolean
Public Const EM_GETLINE = &HC4

Public Const EM_GETLINECOUNT = &HBA

Public undo As Boolean
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Startsel As Integer
Public Length As Integer








Sub Main()
    Set fMainForm = New frmMain
    fMainForm.Show
End Sub