mschart.frm

VB6程序设计参考手册 -独立源码 VB6程序设计参考手册 -独立源码

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form Form1 
   Caption         =   "MSChart"
   ClientHeight    =   3120
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4980
   LinkTopic       =   "Form1"
   ScaleHeight     =   3120
   ScaleWidth      =   4980
   StartUpPosition =   3  '窗口缺省
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   2895
      Left            =   0
      OleObjectBlob   =   "MSChart.frx":0000
      TabIndex        =   0
      Top             =   0
      Width           =   4695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Values(3, 1) As Variant

'  载入数据
Private Sub LoadData()
    Values(0, 0) = "优异"
    Values(0, 1) = 12
    Values(1, 0) = "良好"
    Values(1, 1) = 25
    Values(2, 0) = "一般"
    Values(2, 1) = 13
    Values(3, 0) = "较差"
    Values(3, 1) = 3
End Sub

Private Sub Form_Load()
    With MSChart1
        .Top = 0
        .Left = 0
        .Width = Me.ScaleWidth
        .Height = Me.ScaleHeight
    End With
    '  读取数据
    LoadData
    '  使用MSChart控件显示数据
    MSChart1.ChartData = Values
End Sub