⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 form2.frm

📁 这段代展示了如何使用MSChart控件将数据库信息显示到一个图表中。它演示了这一控件的许多功能。
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form Form2 
   BackColor       =   &H8000000B&
   Caption         =   "Form2"
   ClientHeight    =   6045
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   8475
   LinkTopic       =   "Form2"
   ScaleHeight     =   6045
   ScaleWidth      =   8475
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdtips 
      BackColor       =   &H80000009&
      Caption         =   "Tips"
      Height          =   375
      Left            =   6960
      Style           =   1  'Graphical
      TabIndex        =   24
      Top             =   360
      Width           =   975
   End
   Begin VB.CommandButton cmdsave 
      BackColor       =   &H00C0FFFF&
      Caption         =   "&Save As"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   630
      Left            =   0
      Picture         =   "Form2.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   23
      ToolTipText     =   "Save as other file"
      Top             =   0
      Width           =   735
   End
   Begin VB.CommandButton cmdView 
      Caption         =   "&Preview"
      Height          =   735
      Left            =   5880
      Picture         =   "Form2.frx":0532
      Style           =   1  'Graphical
      TabIndex        =   22
      ToolTipText     =   "Search"
      Top             =   5280
      Width           =   1095
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   255
      Left            =   840
      Max             =   14
      TabIndex        =   19
      Top             =   4920
      Width           =   7575
   End
   Begin VB.VScrollBar VScroll1 
      Height          =   4935
      Left            =   8160
      Max             =   50
      TabIndex        =   18
      Top             =   0
      Width           =   255
   End
   Begin VB.CommandButton cmdcancel 
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Cancel"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   7080
      Picture         =   "Form2.frx":0A64
      Style           =   1  'Graphical
      TabIndex        =   17
      ToolTipText     =   "Cancel"
      Top             =   5280
      Width           =   1335
   End
   Begin VB.CommandButton cmdshadow 
      BackColor       =   &H80000018&
      Caption         =   "Without Shadow"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   1
      Left            =   0
      Style           =   1  'Graphical
      TabIndex        =   16
      ToolTipText     =   "Chart Without Shadows"
      Top             =   2640
      Width           =   735
   End
   Begin VB.CommandButton cmdshadow 
      BackColor       =   &H80000018&
      Caption         =   "With Shadow"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   0
      Left            =   0
      Style           =   1  'Graphical
      TabIndex        =   15
      ToolTipText     =   "Chart With Shadows"
      Top             =   2040
      Width           =   735
   End
   Begin VB.CommandButton cmdborder 
      BackColor       =   &H00C0FFFF&
      Caption         =   " Without Border"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   1
      Left            =   0
      Style           =   1  'Graphical
      TabIndex        =   14
      ToolTipText     =   "Chart Without Borders"
      Top             =   3840
      Width           =   735
   End
   Begin VB.CommandButton cmdborder 
      BackColor       =   &H00C0FFFF&
      Caption         =   "With Border"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   0
      Left            =   0
      Style           =   1  'Graphical
      TabIndex        =   13
      ToolTipText     =   "Chart With Borders"
      Top             =   3360
      Width           =   735
   End
   Begin VB.CommandButton cmdch 
      BackColor       =   &H00FFFFFF&
      Caption         =   "3D step"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   5
      Left            =   3120
      Style           =   1  'Graphical
      TabIndex        =   7
      ToolTipText     =   "Three dimensional Step Chart"
      Top             =   5640
      Width           =   1335
   End
   Begin VB.CommandButton cmdch 
      BackColor       =   &H00FFFFFF&
      Caption         =   "2D Pie"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   3120
      Style           =   1  'Graphical
      TabIndex        =   4
      ToolTipText     =   "Two dimensional Pie Chart"
      Top             =   5280
      Width           =   1335
   End
   Begin VB.CommandButton cmdch 
      BackColor       =   &H00E0E0E0&
      Caption         =   "3D Line"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   4
      Left            =   1920
      Style           =   1  'Graphical
      TabIndex        =   6
      ToolTipText     =   "Three dimensional Line Chart"
      Top             =   5640
      Width           =   1095
   End
   Begin VB.CommandButton cmdch 
      BackColor       =   &H00E0E0E0&
      Caption         =   "2D Line"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   3
      Left            =   1920
      Style           =   1  'Graphical
      TabIndex        =   5
      ToolTipText     =   "Two dimensional Line Chart"
      Top             =   5280
      Width           =   1095
   End
   Begin VB.CommandButton cmdch 
      BackColor       =   &H00C0C0C0&
      Caption         =   "3D Bar"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   840
      Style           =   1  'Graphical
      TabIndex        =   3
      ToolTipText     =   "Three dimensional Bar Chart"
      Top             =   5640
      Width           =   975
   End
   Begin VB.CommandButton cmdch 
      BackColor       =   &H00C0C0C0&
      Caption         =   "2D Bar"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   840
      Style           =   1  'Graphical
      TabIndex        =   2
      ToolTipText     =   "Two dimensional Bar Chart"
      Top             =   5280
      Width           =   975
   End
   Begin VB.CommandButton cmdrowcol 
      BackColor       =   &H00FFFF80&
      Caption         =   "Col/Row"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   4560
      Style           =   1  'Graphical
      TabIndex        =   10
      ToolTipText     =   "Columns into Rows"
      Top             =   5640
      Width           =   1215
   End
   Begin VB.CommandButton cmdrowcol 
      BackColor       =   &H00FFFF80&
      Caption         =   "Row/Col"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   4560
      Style           =   1  'Graphical
      TabIndex        =   9
      ToolTipText     =   "Rows into Columns"
      Top             =   5280
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H80000018&
      Caption         =   "Stop"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   0
      Style           =   1  'Graphical
      TabIndex        =   0
      ToolTipText     =   "Stop Rotation"
      Top             =   1440
      Width           =   735
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   10920
      Top             =   0
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -