module1.bas

关于记事本的编码,对大家有用

Attribute VB_Name = "Module1"
Public Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST = -1
Public Const SWP_SHOWWINDOW = &H40

Public fMainForm As frmMain
Public 当前用户ID As Long
Public 当前用户名 As String
Public Tab键跳格数 As Byte
Public 保存格式 As Boolean
Public Type Find_Obj
    Find_Str As String '待查找的字符串
    Replace_str As String '替换用的字符串
    Where As Long
    全字匹配 As Boolean
    区分大小写 As Boolean
    模式匹配 As Boolean
    查找方向 As Byte '0:所有，1:向上，2:向下
    选定区域 As Boolean
End Type
Public Find1 As Find_Obj

Sub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
        '登录失败，退出应用程序
        End
    End If
    Unload fLogin


    frmSplash.Show
    frmSplash.Refresh
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash


    fMainForm.Show
End Sub