frmmain.frm

这是一个选课系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmmain 
   BorderStyle     =   0  'None
   ClientHeight    =   8010
   ClientLeft      =   750
   ClientTop       =   1215
   ClientWidth     =   14010
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   8010
   ScaleWidth      =   14010
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   495
      Left            =   0
      TabIndex        =   1
      Top             =   7515
      Width           =   14010
      _ExtentX        =   24712
      _ExtentY        =   873
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin VB.Label lblTitle 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "系统主界面"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   4560
      TabIndex        =   0
      Top             =   1320
      Width           =   1275
   End
   Begin VB.Image imgTitleMaximize 
      Height          =   195
      Left            =   9840
      Picture         =   "frmmain.frx":0000
      ToolTipText     =   "Maximize (Disabled)"
      Top             =   240
      Visible         =   0   'False
      Width           =   195
   End
   Begin VB.Image imgTitleHelp 
      Height          =   210
      Left            =   12840
      Picture         =   "frmmain.frx":024A
      Stretch         =   -1  'True
      Top             =   120
      Width           =   210
   End
   Begin VB.Image imgTitleMinimize 
      Height          =   210
      Left            =   13080
      Picture         =   "frmmain.frx":0494
      Stretch         =   -1  'True
      Top             =   120
      Width           =   210
   End
   Begin VB.Image imgTitleclose 
      Height          =   195
      Left            =   13320
      Picture         =   "frmmain.frx":06DE
      ToolTipText     =   "Close"
      Top             =   120
      Width           =   195
   End
   Begin VB.Image imgWindowLeft 
      Height          =   450
      Left            =   2280
      Picture         =   "frmmain.frx":0928
      Stretch         =   -1  'True
      Top             =   360
      Width           =   285
   End
   Begin VB.Image imgWindowRight 
      Height          =   450
      Left            =   1560
      Picture         =   "frmmain.frx":1072
      Stretch         =   -1  'True
      Top             =   840
      Width           =   285
   End
   Begin VB.Image imgTitleLeft 
      Height          =   450
      Left            =   360
      Picture         =   "frmmain.frx":17BC
      Top             =   -120
      Width           =   285
   End
   Begin VB.Image imgTitleRight 
      Height          =   450
      Left            =   600
      Picture         =   "frmmain.frx":1F06
      Top             =   -120
      Width           =   285
   End
   Begin VB.Image imgWindowBottom 
      Height          =   450
      Left            =   1920
      Picture         =   "frmmain.frx":2650
      Stretch         =   -1  'True
      Top             =   120
      Width           =   285
   End
   Begin VB.Image imgTitleMain 
      Height          =   450
      Left            =   360
      Picture         =   "frmmain.frx":2D9A
      Stretch         =   -1  'True
      Top             =   360
      Width           =   285
   End
   Begin VB.Image imgWindowBottomLeft 
      Height          =   450
      Left            =   1080
      Picture         =   "frmmain.frx":34E4
      Top             =   360
      Width           =   285
   End
   Begin VB.Image imgWindowBottomRight 
      Height          =   450
      Left            =   1320
      Picture         =   "frmmain.frx":3C2E
      Top             =   360
      Width           =   285
   End
   Begin VB.Image Imageicon 
      Height          =   315
      Left            =   2880
      Picture         =   "frmmain.frx":4378
      Stretch         =   -1  'True
      Top             =   600
      Width           =   315
   End
   Begin VB.Menu h 
      Caption         =   "h"
      Begin VB.Menu hg 
         Caption         =   "jgf"
      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 Form_Load()

MakeWindow Me
End Sub

Private Sub imgTitleClose_Click()
    intNumField = -2
    Unload Me
End Sub

Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMinimize_Click()
    Me.WindowState = 1
End Sub

Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub