mdiform1.frm

如何编写多文档界面

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnuname 
      Caption         =   "课程名称(&N)"
      Begin VB.Menu mnuvisual 
         Caption         =   "Visual Basic与数据库"
      End
      Begin VB.Menu mnuart 
         Caption         =   "世界美术史"
      End
      Begin VB.Menu mnulic 
         Caption         =   "大学语文"
      End
      Begin VB.Menu mnucard 
         Caption         =   "桥牌入门"
      End
      Begin VB.Menu mnubalance 
         Caption         =   "-"
      End
      Begin VB.Menu mnuback 
         Caption         =   "返回"
      End
   End
   Begin VB.Menu mnuwindow 
      Caption         =   "窗口"
      Begin VB.Menu mnuHor 
         Caption         =   "水平平铺"
      End
      Begin VB.Menu mnuver 
         Caption         =   "垂直平铺"
      End
      Begin VB.Menu mnucos 
         Caption         =   "层叠"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuart_Click()
  Dim newform As New Form2
  newform.Caption = "世界美术史"
  newform.Label1 = "学分：1"
  newform.Label2 = "可接受选修人数：100"
  newform.Text1 = "满"
  newform.Show
End Sub

Private Sub mnuback_Click()
 End
End Sub

Private Sub mnucard_Click()
Dim newform As New Form2
  newform.Caption = "桥牌入门"
  newform.Label1 = "学分：1"
  newform.Label2 = "可接受选修人数：100"
  newform.Text1 = "满"
  newform.Show
End Sub

Private Sub mnucos_Click()
  MDIForm1.Arrange vbCasecade
End Sub

Private Sub mnuHor_Click()
  MDIForm1.Arrange vbTileHorizontal
End Sub

Private Sub mnulic_Click()
Dim newform As New Form2
  newform.Caption = "大学语文"
  newform.Label1 = "学分：2"
  newform.Label2 = "可接受选修人数：80"
  newform.Text1 = "未满"
  newform.Show
End Sub

Private Sub mnuver_Click()
  MDIForm1.Arrange vbTileVertical
End Sub

Private Sub mnuvisual_Click()
  Dim newform As New Form2
  newform.Caption = "Visual Basic 与数据库入门"
  newform.Label1 = "学分：2"
  newform.Label2 = "可接受选修人数：60"
  newform.Text1 = "未满"
  newform.Show
End Sub