frmmain.frm

菜单浏览系统 vb环境开发 界面做的非常好 是vb学习的绝佳素材 this vbsystem is very useful

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm frmMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "MDI菜单示例"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin MSComDlg.CommonDialog dlgCommonDialog 
      Left            =   3360
      Top             =   720
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuFileNew 
         Caption         =   "新建(&N)"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuFileOpen 
         Caption         =   "打开(&O)..."
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuFileBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "关于(&A) "
         Shortcut        =   {F1}
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Load()
   Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
   Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
   Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
   Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
   If Me.WindowState <> vbMinimized Then
      SaveSetting App.Title, "Settings", "MainLeft", Me.Left
      SaveSetting App.Title, "Settings", "MainTop", Me.Top
      SaveSetting App.Title, "Settings", "MainWidth", Me.Width
      SaveSetting App.Title, "Settings", "MainHeight", Me.Height
   End If
End Sub

Private Sub mnuHelpAbout_Click()
   MsgBox "版本 " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

Private Sub mnuFileExit_Click()
   '卸载窗体
   Unload Me

End Sub

Private Sub mnuFileSaveAs_Click()
   Dim sFile As String
 
   If ActiveForm Is Nothing Then Exit Sub

   With dlgCommonDialog
      .DialogTitle = "另存为"
      .CancelError = False
      'ToDo: 设置 common dialog 控件的标志和属性
      .Filter = "所有文件 (*.*)|*.*"
      .ShowSave
      If Len(.FileName) = 0 Then
         Exit Sub
      End If
      sFile = .FileName
   End With
   ActiveForm.Caption = sFile
   ActiveForm.rtfText.SaveFile sFile

End Sub

Private Sub mnuFileSave_Click()
   Dim sFile As String
   If Left$(ActiveForm.Caption, 8) = "Document" Then
      With dlgCommonDialog
         .DialogTitle = "保存"
         .CancelError = False
         'ToDo: 设置 common dialog 控件的标志和属性
         .Filter = "所有文件 (*.*)|*.*"
         .ShowSave
         If Len(.FileName) = 0 Then
            Exit Sub
         End If
         sFile = .FileName
      End With
      ActiveForm.rtfText.SaveFile sFile
   Else
      sFile = ActiveForm.Caption
      ActiveForm.rtfText.SaveFile sFile
   End If

End Sub

Private Sub mnuFileOpen_Click()
   Dim sFile As String

   If ActiveForm Is Nothing Then
      mnuFileNew_Click
   End If

   With dlgCommonDialog
      .DialogTitle = "打开"
      .CancelError = False
      'ToDo: 设置 common dialog 控件的标志和属性
      .Filter = "所有文件 (*.*)|*.*"
      .ShowOpen
      If Len(.FileName) = 0 Then
         Exit Sub
      End If
      sFile = .FileName
   End With
   ActiveForm.rtfText.LoadFile sFile
   ActiveForm.Caption = sFile

End Sub

Private Sub mnuFileNew_Click()
   Static lDocumentCount As Long
   Dim frmD As frmDocument
   lDocumentCount = lDocumentCount + 1
   Set frmD = New frmDocument
   frmD.Caption = "Document " & lDocumentCount
   frmD.Show
End Sub