bbb.frm

是个功能完善,存盘可靠性好

   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