【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“Ex9_10.frm”一文，供大家参考学习

    VERSION 5.00
    Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
    Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
    Begin VB.Form Ex9_10 
       Caption         =   "向Toolbar控件添加按钮"
       ClientHeight    =   3540
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4350
       LinkTopic       =   "Form1"
       ScaleHeight     =   3540
       ScaleWidth      =   4350
       StartUpPosition =   3  '窗口缺省
       Begin MSComctlLib.StatusBar StatusBar1 
          Align           =   2  'Align Bottom
          Height          =   375
          Left            =   0
          TabIndex        =   2
          Top             =   3165
          Width           =   4350
          _ExtentX        =   7673
          _ExtentY        =   661
          _Version        =   393216
          BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
             NumPanels       =   5
             BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
                Object.Width           =   1411
                MinWidth        =   1411
                Text            =   "状态栏"
                TextSave        =   "状态栏"
             EndProperty
             BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
                Style           =   1
                Enabled         =   0   'False
                Object.Width           =   1411
                MinWidth        =   1411
                TextSave        =   "CAPS"
                Object.ToolTipText     =   "当激活Caps Lock 时用黑体显示字母CAPS"
             EndProperty
             BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
                Style           =   2
                Enabled         =   0   'False
                Object.Width           =   1411
                MinWidth        =   1411
                TextSave        =   "NUM"
                Object.ToolTipText     =   "当激活数字锁定键时用黑体显示字母NUM"
             EndProperty
             BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
                Style           =   6
                Object.Width           =   1764
                MinWidth        =   1764
                TextSave        =   "2008/9/26"
                Object.ToolTipText     =   "系统日期"
             EndProperty
             BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
                Style           =   5
                TextSave        =   "17:08"
                Object.ToolTipText     =   "系统时间"
             EndProperty
          EndProperty
       End
       Begin MSComDlg.CommonDialog CommonDialog1 
          Left            =   3720
          Top             =   2520
          _ExtentX        =   847
          _ExtentY        =   847
          _Version        =   393216
       End
       Begin MSComctlLib.ImageList ImageList1 
          Left            =   2880
          Top             =   2400
          _ExtentX        =   1005
          _ExtentY        =   1005
          BackColor       =   -2147483643
          ImageWidth      =   24
          ImageHeight     =   23
          MaskColor       =   12632256
          _Version        =   393216
          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
             NumListImages   =   5
             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "Ex9_10.frx":0000
                Key             =   "打开"
             EndProperty
             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "Ex9_10.frx":067A
                Key             =   "保存"
             EndProperty
             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "Ex9_10.frx":0CF4
                Key             =   "剪切"
             EndProperty
             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "Ex9_10.frx":136E
                Key             =   "复制"
             EndProperty
             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
                Picture         =   "Ex9_10.frx":19E8
                Key             =   "粘贴"
             EndProperty
          EndProperty
       End
       Begin MSComctlLib.Toolbar Toolbar1 
          Align           =   1  'Align Top
          Height          =   1500
          Left            =   0
          TabIndex        =   0
          Top             =   0
          Width           =   4350
          _ExtentX        =   7673
          _ExtentY        =   2646
          ButtonWidth     =   820
          ButtonHeight    =   1244
          Appearance      =   1
          ImageList       =   "ImageList1"
          _Version        =   393216
          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
             NumButtons      =   8
             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Caption         =   "打开"
                Object.ToolTipText     =   "Open"
                ImageIndex      =   1
             EndProperty
             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Caption         =   "保存"
                Object.ToolTipText     =   "Save"
                ImageIndex      =   2
             EndProperty
             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Caption         =   "剪切"
                Object.ToolTipText     =   "Cut"
                ImageIndex      =   3
             EndProperty
             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Caption         =   "复制"
                Object.ToolTipText     =   "Copy"
                ImageIndex      =   4
             EndProperty
             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Caption         =   "粘贴"
                Object.ToolTipText     =   "Paste"
                ImageIndex      =   5
             EndProperty
             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Caption         =   "字体"
                Style           =   5
                BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
                   NumButtonMenus  =   4
                   BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                      Text            =   "黑体"
                   EndProperty
                   BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                      Text            =   "隶书"
                   EndProperty
                   BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                      Text            =   "宋体"
                   EndProperty
                   BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                      Text            =   "楷体"
                   EndProperty
                EndProperty
             EndProperty
             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
                Caption         =   "字形"
                Style           =   5
                BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
                   NumButtonMenus  =   3
                   BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                      Text            =   "常规"
                   EndProperty
                   BeginProperty ButtonMenu