texteditplus.bas

VB6程序设计参考手册 -独立源码 VB6程序设计参考手册 -独立源码

Attribute VB_Name = "Module1"
Dim ArrayNum As Integer     ' 历史文件的索引
Public FileName As String   ' 打开的文件名
Public FileType As Integer  ' 打开的文件类型

'  另存文件
Sub WriteFile(FileName As String)
    Dim F As Integer
    On Error GoTo CloseError
        
        
        If Dir(FileName) <> "" Then         ' 文件已存在，是否覆盖
            response = MsgBox("Overwrite existing file?", vbYesNo + vbQuestion + vbDefaultButton2)
            If response = vbNo Then Exit Sub
        End If
        SaveFile FileName
        frmEditor.Caption = "记事本: " + FileName
        Exit Sub
CloseError:
        MsgBox "另存文件出错，请重试", 48
        Exit Sub
End Sub

'  打开文件
Sub OpenFile(FileName As String)
    If Right(FileName, 3) = "txt" Then
        FileType = 1
    Else
        FileType = 0
    End If
          
    If "记事本: " + FileName = frmEditor.Caption Then  ' 如果文件已经打开
        Exit Sub
    Else
        On Error GoTo errhandler
            frmEditor!txtEdit.LoadFile FileName
            UpdateMenu
            frmEditor.Caption = "记事本: " + FileName
            Exit Sub
    End If
    
errhandler:
        MsgBox "打开文件出错，请重试", 48, "记事本"
        Exit Sub
End Sub

'  更新菜单
Sub UpdateMenu()
    frmEditor.mnuFileArray(0).Visible = True
    ArrayNum = ArrayNum + 1
    ' 检查文件名是否已经在历史菜单中
    For i = 0 To ArrayNum - 1
        If frmEditor.mnuFileArray(i).Caption = FileName Then
            ArrayNum = ArrayNum - 1
            Exit Sub
        End If
    Next i
    
    ' 如果不在，则加入
    Load frmEditor.mnuFileArray(ArrayNum)               ' 创建一个菜单项
    frmEditor.mnuFileArray(ArrayNum).Caption = FileName ' 设置菜单内容
    frmEditor.mnuFileArray(ArrayNum).Visible = True     ' 使新菜单项可见
End Sub

'  保存文件
Sub SaveFile(FileName As String)
    On Error GoTo CloseError
    frmEditor!txtEdit.SaveFile FileName, FileType
    Exit Sub
    
CloseError:
    MsgBox "保存文件出错，请重试", 48
    Exit Sub
End Sub