End
   Begin VB.Menu mnuEdit 
      Caption         =   "編輯(&E)"
      Begin VB.Menu mnuEditBaoyuan 
         Caption         =   "表元編輯(&B)"
         Checked         =   -1  'True
         Shortcut        =   {F4}
      End
      Begin VB.Menu mnuEditCheng 
         Caption         =   "按成員錄入(&R)"
         Checked         =   -1  'True
         Shortcut        =   {F6}
      End
      Begin VB.Menu mnuEditKemu 
         Caption         =   "按科目錄入(&K)"
         Checked         =   -1  'True
         Shortcut        =   {F5}
      End
      Begin VB.Menu mnuEditBarbar 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditAuto 
         Caption         =   "自動計算(&A)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuEditAutoP 
         Caption         =   "自動排序"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuEditBar 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditCopy 
         Caption         =   "復制(&C)"
      End
      Begin VB.Menu mnuEditDel 
         Caption         =   "刪除(&D)"
         Shortcut        =   {DEL}
      End
      Begin VB.Menu mnuEditFind 
         Caption         =   "查找(&F)"
      End
   End
   Begin VB.Menu mnuView 
      Caption         =   "視圖(&V)"
      Begin VB.Menu mnuViewBig 
         Caption         =   "放大字體(&B)"
      End
      Begin VB.Menu mnuViewLittle 
         Caption         =   "縮小字體(&L)"
      End
      Begin VB.Menu mnuViewGridLei 
         Caption         =   "表線類型(&X)"
         Begin VB.Menu mnuViewGridNone 
            Caption         =   "無表線(&N)"
         End
         Begin VB.Menu mnuViewGridPu 
            Caption         =   "普通線(&P)"
         End
         Begin VB.Menu mnuViewGridTu 
            Caption         =   "凸起線(&B)"
         End
         Begin VB.Menu mnuViewGridAo 
            Caption         =   "凹陷線(&A)"
         End
      End
      Begin VB.Menu mnuViewGridColor 
         Caption         =   "表線顏色(&C)"
      End
      Begin VB.Menu mnuViewBar 
         Caption         =   "-"
      End
      Begin VB.Menu mnuViewSuo 
         Caption         =   "鎖定“姓名”(&S)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuViewToolbar 
         Caption         =   "工具欄(&T)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuViewZhuang 
         Caption         =   "狀態欄(&V)"
         Checked         =   -1  'True
      End
   End
   Begin VB.Menu mnuTool 
      Caption         =   "工具(&T)"
      Begin VB.Menu mnuToolSheng 
         Caption         =   "升序(&S)"
         Shortcut        =   ^{F1}
      End
      Begin VB.Menu mnuToolJiang 
         Caption         =   "降序(&J)"
         Shortcut        =   ^{F2}
      End
      Begin VB.Menu mnuToolJisuan 
         Caption         =   "計算""∑""和""總評"" (&J)"
      End
      Begin VB.Menu mnuToolJiangT 
         Caption         =   "按總評排名次(&M)"
      End
      Begin VB.Menu mnuToolShengT 
         Caption         =   "按座號排序(&Z)"
      End
      Begin VB.Menu mnuToolBar 
         Caption         =   "-"
      End
      Begin VB.Menu mnuToolJin 
         Caption         =   "獎學金名額推薦(&J)"
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuWindowTileH 
         Caption         =   "橫向平鋪(&H)"
      End
      Begin VB.Menu mnuWindowTileZ 
         Caption         =   "縱向平鋪(&V)"
      End
      Begin VB.Menu mnuWindowCascade 
         Caption         =   "層疊(&C)"
      End
      Begin VB.Menu mnuWindowArrangeIcons 
         Caption         =   "排列圖標(&A)"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "幫助(&H)"
      Begin VB.Menu mnuHelpMain 
         Caption         =   "幫助主題(&M)"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "關于(&A)"
      End
   End
End
Attribute VB_Name = "frmBG"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ChengJB_RowColChange()
    FState(Me.Tag).Dirty = True
End Sub


Private Sub Form_GotFocus()
    Chushi
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim strmsg As String
    Dim strFilename As String
    Dim intResponse As Integer
    
    '判斷成績單數據是否改變
    If FState(Me.Tag).Dirty Then
        strFilename = Me.Caption
        strmsg = "【" & strFilename & "】中的內容已改變，"
        strmsg = strmsg & vbCrLf
        strmsg = strmsg & "希望保存嗎？"
        intResponse = MsgBox(strmsg, 51, frmMain.Caption)
        Select Case intResponse
            Case 6  '用戶選擇“是”
                If Left(Me.Caption, 4) = "新成績表" Then
                    '文件尚未被保存
                    '獲得 strFilename，并調用保存過程 GetstrFilename
                    strFilename = "新成績表.CJB"
                    strFilename = GetFileName(strFilename)
                    If strFilename = "" Then
                        Cancel = True
                    End If
                Else
                    '窗體標題包含所打開的文件名
                    strFilename = Me.Caption
                End If
                '調用保存過程
                If strFilename <> "" Then
                    SaveFileAs strFilename
                End If
            Case 7  '用戶選擇“否”，卸載文件
                Cancel = False
            Case 2  '用戶選擇“取消”,取消卸載
                Cancel = True
        End Select
    End If
End Sub

Private Sub Form_Resize()
    ChengJB.Width = ScaleWidth
    ChengJB.Height = ScaleHeight
End Sub

Private Sub Form_Unload(Cancel As Integer)
    '將當前窗體實例顯示為已刪除
    FState(Me.Tag).Deleted = True
    
    '刷新“文件”菜單
    GetRecentFiles
End Sub

Private Sub mnuEditAuto_Click()
    mnuEditAuto.Checked = Not mnuEditAuto.Checked
    If mnuEditAuto.Checked Then
        mnuToolJisuan.Enabled = False
    Else
        mnuToolJisuan.Enabled = True
    End If
End Sub

Private Sub mnuEditAutoP_Click()
    mnuEditAutoP.Checked = Not mnuEditAutoP.Checked
    If mnuEditAutoP.Checked Then
        mnuToolJiangT.Enabled = False
        
        strmsg = "使用“自動排序”功能會使速度變慢，"
        strmsg = strmsg & vbCrLf
        strmsg = strmsg & "確實要自動排序嗎？"
        intResponse = MsgBox(strmsg, 35, frmMain.Caption)
        Select Case intResponse
            Case 7  '用戶選擇“否”
                mnuEditAutoP.Checked = False
                mnuToolJiangT.Enabled = True
            Case 2  '用戶選擇“取消”
                mnuEditAutoP.Checked = False
                mnuToolJiangT.Enabled = True
        End Select
    Else
        mnuToolJiangT.Enabled = True
    End If
End Sub

Private Sub mnuEditBaoyuan_Click()
    mnuEditBaoyuan.Checked = True
    mnuEditKemu.Checked = False
    mnuEditCheng.Checked = False
    frmMain.tbToolBar.Buttons("Edit").Value = tbrPressed
End Sub

Private Sub mnuEditCheng_Click()
    mnuEditBaoyuan.Checked = False
    mnuEditKemu.Checked = False
    mnuEditCheng.Checked = True
    frmMain.tbToolBar.Buttons("Hang").Value = tbrPressed
End Sub

Private Sub mnuEditCopy_Click()
    CopyThing ChengJB.Row, ChengJB.RowSel, ChengJB.Col, ChengJB.ColSel
End Sub

Private Sub mnuEditDel_Click()
    Dim i, j As Integer
    Dim a, b, c, d As Integer
    a = ChengJB.Row
    b = ChengJB.RowSel
    c = ChengJB.Col
    d = ChengJB.ColSel
    For i = a To b
        For j = c To d
            ChengJB.TextArray(Fgi((i), (j))) = " "
        Next j
    Next i
End Sub

Private Sub mnuEditFind_Click()
    MsgBox "當人數大于 50 時您可以使用“查找”功能", , "查找"
End Sub

Sub Form_Load()
    frmMain.sbStatusBar.Panels(1).Text = _
        "未知班級  請單擊“文件”菜單下的“屬性”項，設置屬性"
    ChengJB.ToolTipText = frmMain.sbStatusBar.Panels(1).Text
    Timer1.Interval = 1100
    Dim i As Integer
    If TextShuxing(1) = "Text1" Then
        Me.Text1.Visible = True
    End If
    frmMain.tbToolBar.Buttons("Edit").Value = tbrPressed
    frmMain.tbToolBar.Buttons("Hang").Value = tbrUnpressed
    frmMain.tbToolBar.Buttons("Lie").Value = tbrUnpressed
    mnuEditBaoyuan.Checked = True
    mnuEditKemu.Checked = False
    mnuEditCheng.Checked = False
    mnuEditAutoP.Checked = False
    mnuToolJisuan.Enabled = False
    mnuViewSuo.Checked = False
    For i = 2 To 17
        ChengJB.ColWidth(i) = ChengJB.ColWidth(1) * 7 / 8
    Next
    ChengJB.ColWidth(18) = ChengJB.ColWidth(1) * 5 / 8
    frmMain.sbStatusBar.Panels(3).Text = "當前表格字號  " & ChengJB.Font.Size
    For i = 2 To 18
        ChengJB.ColAlignment(i) = 0
    Next
    '初始化編輯框（于是，現在可加載它）。
    txtedit = ""
End Sub
    
    
Sub ChengJB_KeyPress(keyascii As Integer)
    MSFlexGridEdit ChengJB, txtedit, keyascii
End Sub

Sub ChengJB_DblClick()
    MSFlexGridEdit ChengJB, txtedit, 32 '模擬一個空格。
End Sub

Sub MSFlexGridEdit(MSFlexGrid As Control, _
Edt As Control, keyascii As Integer)

    '使用已輸入的字符。
    Select Case keyascii

    '空格表示編輯當前的文本。
    Case 0 To 32
        Edt = MSFlexGrid
        Edt.SelStart = 1000

    '其它所有字符表示取代當前的文本。
    Case Else
        Edt = Chr(keyascii)
        Edt.SelStart = 1
    End Select

    '在合適的位置顯示 Edt。
    txtedit.Move MSFlexGrid.CellLeft, MSFlexGrid.CellTop, _
    MSFlexGrid.CellWidth, MSFlexGrid.CellHeight
    txtedit.Visible = True

    '啟動工作。
    Edt.SetFocus
End Sub

Private Sub mnuEditKemu_Click()
    mnuEditBaoyuan.Checked = False
    mnuEditKemu.Checked = True
    mnuEditCheng.Checked = False
    frmMain.tbToolBar.Buttons("Lie").Value = tbrPressed
End Sub

Private Sub mnuFileClose_Click()
    '卸載窗體
    Unload Me
End Sub

Private Sub mnuFileExit_Click()
    '退出應用程序
    Unload frmMain
End Sub

Private Sub mnuFileJian_Click()
    filePrintTJ
End Sub

Private Sub mnuFileNew_Click()
    '調用新建文件過程
    FileNew
End Sub