form1.frm

ＶＢ实现成绩管理系统．包括成绩录入与试卷评审等．

VERSION 5.00
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   615
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4680
      _ExtentX        =   8255
      _ExtentY        =   1085
      ButtonWidth     =   1614
      ButtonHeight    =   926
      Appearance      =   1
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   4
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Bold"
            Key             =   ""
            Object.ToolTipText     =   "加粗"
            Object.Tag             =   ""
            Value           =   1
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "UnderLine"
            Object.ToolTipText     =   "下划线"
            Object.Tag             =   ""
            Style           =   1
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Save"
            Object.Tag             =   "保存"
            Style           =   2
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Open"
            Object.Tag             =   "打开"
            Style           =   4
            MixedState      =   -1  'True
         EndProperty
      EndProperty
      MouseIcon       =   "Form1.frx":0000
   End
   Begin ComCtl3.CoolBar CoolBar1 
      Height          =   810
      Left            =   360
      TabIndex        =   1
      Top             =   1200
      Width           =   3615
      _ExtentX        =   6376
      _ExtentY        =   1429
      _CBWidth        =   3615
      _CBHeight       =   810
      _Version        =   "6.0.8169"
      MinHeight1      =   360
      Width1          =   2880
      NewRow1         =   0   'False
      MinHeight2      =   360
      Width2          =   1440
      NewRow2         =   -1  'True
      MinHeight3      =   360
      Width3          =   1440
      NewRow3         =   0   'False
   End
   Begin VB.Menu munFile 
      Caption         =   "&File"
      Begin VB.Menu munFileNew 
         Caption         =   "&New"
         Shortcut        =   ^N
      End
      Begin VB.Menu munFileOpen 
         Caption         =   "&Open"
         Shortcut        =   ^O
      End
      Begin VB.Menu munFileSave 
         Caption         =   "&Save"
      End
      Begin VB.Menu munFileSendTo 
         Caption         =   "S&end To"
      End
      Begin VB.Menu munFilePrint 
         Caption         =   "&Print"
      End
      Begin VB.Menu munHyphen1 
         Caption         =   "-"
      End
      Begin VB.Menu munOption 
         Caption         =   "&Option"
         Begin VB.Menu munOpitonUpperCase 
            Caption         =   "&UpperCase"
         End
         Begin VB.Menu munOptionText 
            Caption         =   "&Text Only"
            Checked         =   -1  'True
         End
      End
      Begin VB.Menu munExit 
         Caption         =   "&Exit"
      End
   End
   Begin VB.Menu munEdit 
      Caption         =   "&Edit"
      Begin VB.Menu munEditCut 
         Caption         =   "Cu&t"
         Shortcut        =   ^X
      End
      Begin VB.Menu munEditPaste 
         Caption         =   "&Paste"
         Shortcut        =   ^V
      End
      Begin VB.Menu munEditCopy 
         Caption         =   "&Copy"
      End
      Begin VB.Menu munHyphen2 
         Caption         =   "-"
      End
   End
   Begin VB.Menu munFormat 
      Caption         =   "Format"
      Begin VB.Menu munFormatBold 
         Caption         =   "&Bold"
      End
      Begin VB.Menu munFormatItalic 
         Caption         =   "&Italic"
      End
      Begin VB.Menu munFormatUnderline 
         Caption         =   "&Underline"
      End
   End
   Begin VB.Menu munHelp 
      Caption         =   "&Help"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
    Form1.PopupMenu munFormat
   ' Form1.PopupMenu munEdit ‘测试用
       
    End If
    


End Sub

Private Sub munFileOpen_Click()
munFileSave.Enabled = True
munFileSendTo.Enabled = True
munFilePrint.Enabled = True
munFile.Visible = True


End Sub

Private Sub munFormatBold_Click()
MsgBox "you just bold some text"
End Sub