fileediter.frm

这个源代码可以实现基本的文本编辑功能

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "多文档的文本编辑器"
   ClientHeight    =   6345
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   5880
   Icon            =   "FileEditer.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   1200
      Top             =   1920
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu file 
      Caption         =   "文件（&F）"
      Begin VB.Menu new 
         Caption         =   "新建（&N）"
      End
      Begin VB.Menu open 
         Caption         =   "打开（&O）"
      End
      Begin VB.Menu space 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退出（&X）"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助（&H）"
      Begin VB.Menu about 
         Caption         =   "关于（&A）..."
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
    frmAbout.Show
End Sub
Private Sub MDIForm_Load()
    Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    'LoadNewDoc
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
    Dim i As Integer
    For i = Forms.Count - 1 To 0 Step -1
        Unload Forms(i)
    Next
    If WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Left
        SaveSetting App.Title, "Settings", "MainTop", Top
        SaveSetting App.Title, "Settings", "MainWidth", Width
        SaveSetting App.Title, "Settings", "MainHeight", Height
    End If

End Sub

Private Sub new_Click()
    LoadNewDoc
End Sub
Private Sub Open_Click()
    Dim sFile As String
    With CommonDialog1
        .InitDir = "C:\Documents and Settings"
        .DialogTitle = "打开"
        .CancelError = False
        .Filter = "rtf文件(*.rtf)|*.rtf|纯文本文件(*.txt)|*.txt"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        
        sFile = .FileName
    End With
    LoadNewDoc
    ActiveForm.rtfText.LoadFile sFile
    ActiveForm.Caption = sFile
End Sub