爱有就是你

爱有就是你 Private Sub tbToolBar_ButtonClick(ByVal Button As ComctlLib.Button) '用 Select Case 语句处理 Key 属性， '以确定单击了哪个按钮。 With frmMain.ActiveForm Select Case Button.Key Case "new" '选择新建 FileNew Case "Open" '选择打开 FileOpenProc Case "Save" '选择保存 '检测文件是否已经有了文件名 Dim strFilename As String If Left(frmMain.ActiveForm.Caption, 4) = "新成绩" Then strFilename = GetFileName(strFilename) Else strFilename = .Caption End If If strFilename <> "" Then SaveFileAs strFilename '调用文件保存过程 End If Case "Print" '选择打印 filePrintJ Case "Copy" '选择复制 a = .ChengJB.Row b = .ChengJB.RowSel c = .ChengJB.Col d = .ChengJB.ColSel CopyThing (a), (b), (c), (d) Case "Edit" '选择表元编辑 .mnuEditBaoyuan.Checked = True .mnuEditKemu.Checked = False .mnuEditCheng.Checked = False Case "Hang" '选择按行输入 .mnuEditBaoyuan.Checked = False .mnuEditKemu.Checked = False .mnuEditCheng.Checked = True Case "Lie" '选择按列输入 .mnuEditBaoyuan.Checked = False .mnuEditKemu.Checked = True .mnuEditCheng.Checked = False Case "Big" '选择字体放大 FontChang (1) Case "Little" '选择字体缩小 FontChang (-1) Case "Up" '选择升序排列 .ChengJB.Sort = 1 Case "Down" '选择降序排列 .ChengJB.Sort = 2 Case "Shuxing" '选择成绩表属性 frmShuxing.Show vbModal, frmMain End Select End With