form7.frm

来自「实现画图」· FRM 代码 · 共 52 行

VERSION 5.00
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form Form7 
   Caption         =   "图形统计图"
   ClientHeight    =   6075
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7395
   LinkTopic       =   "Form4"
   ScaleHeight     =   6075
   ScaleWidth      =   7395
   StartUpPosition =   3  '窗口缺省
   Begin MSChart20Lib.MSChart MSChart1 
      Height          =   4455
      Left            =   600
      OleObjectBlob   =   "Form7.frx":0000
      TabIndex        =   0
      Top             =   360
      Width           =   5535
   End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim i As Integer
Dim s(1 To 4) As String
s(1) = "点"
s(2) = "线"
s(3) = "矩形"
s(4) = "圆"
Dim v(1 To 4) As String
v(1) = PntArray.Count
v(2) = LineArray.Count
v(3) = RecArray.Count
v(4) = CircleArray.Count
With MSChart1
    .ColumnCount = 4
    .RowCount = 1
    For i = 1 To 4
    .Column = i
   .Data = v(i)
   .ColumnLabel = s(i)
Next i
End With
 MSChart1.RowLabel = "点      线        矩形      圆 "
 Me.Refresh
End Sub