mdimenu.frm

售楼信息管理系统 相当好的VB课程设计啊 ,

VERSION 5.00
Begin VB.MDIForm MDIMenu 
   BackColor       =   &H00FF8080&
   Caption         =   "MDIForm1"
   ClientHeight    =   8955
   ClientLeft      =   1905
   ClientTop       =   1755
   ClientWidth     =   11520
   Icon            =   "MDIMenu.frx":0000
   LinkTopic       =   "MDIForm1"
End
Attribute VB_Name = "MDIMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
    If MDIMenu.Height <> 9240 Then
        MDIMenu.Height = 9240
    End If
    If MDIMenu.Width <> 11490 Then
        MDIMenu.Width = 11490
    End If
End Sub

Private Sub MDIForm_Resize()
     If MDIMenu.WindowState <> 1 Then
     main.Height = MDIMenu.ScaleHeight
     main.Width = MDIMenu.ScaleWidth
     End If
     Select Case Me.WindowState
     Case vbMaximized
     If WindowState = 2 Then WindowState = 0 '是最大化失效
     
     Case vbMinimized
     Case Else '限制窗体大小
     If Me.Width <> 10770 Then Me.Width = 11780
     If Me.Height <> 8640 Then Me.Height = 9360
     End Select
    End Sub