frmtest.frm

chart图片,统计,网上下来的源代码

VERSION 5.00
Object = "*\AXChart.vbp"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmTest 
   Caption         =   "ActiveChart Test"
   ClientHeight    =   8595
   ClientLeft      =   165
   ClientTop       =   465
   ClientWidth     =   11445
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8595
   ScaleWidth      =   11445
   StartUpPosition =   2  '屏幕中心
   Begin VB.CheckBox Check1 
      Caption         =   "Show mean value"
      Height          =   195
      Index           =   6
      Left            =   1950
      TabIndex        =   24
      Top             =   7980
      Value           =   1  'Checked
      Width           =   1845
   End
   Begin VB.TextBox txtLineWidth 
      Height          =   285
      Left            =   5010
      TabIndex        =   21
      Text            =   "Text1"
      Top             =   6060
      Width           =   705
   End
   Begin VB.TextBox txtBarPerc 
      Height          =   285
      Left            =   5010
      TabIndex        =   20
      Text            =   "Text1"
      Top             =   5730
      Width           =   705
   End
   Begin VB.TextBox txtMax 
      Height          =   285
      Left            =   1170
      TabIndex        =   16
      Text            =   "Text1"
      Top             =   7950
      Width           =   705
   End
   Begin VB.TextBox txtMin 
      Height          =   285
      Left            =   1170
      TabIndex        =   15
      Text            =   "Text1"
      Top             =   7620
      Width           =   705
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Hot tracking"
      Height          =   195
      Index           =   0
      Left            =   1950
      TabIndex        =   14
      Top             =   7740
      Width           =   1845
   End
   Begin VB.CommandButton Command1 
      Caption         =   "&Apply settings"
      Height          =   1545
      Left            =   5760
      TabIndex        =   2
      Top             =   4920
      Width           =   4455
   End
   Begin MSComDlg.CommonDialog dlgColor 
      Left            =   6480
      Top             =   240
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      DialogTitle     =   "Choose color"
   End
   Begin ActiveChart.XChart XChart1 
      Height          =   4755
      Left            =   60
      TabIndex        =   0
      Top             =   90
      Width           =   11310
      _ExtentX        =   19950
      _ExtentY        =   8387
      uTopMargin      =   600
      uBottomMargin   =   750
      uLeftMargin     =   750
      uRightMargin    =   750
      uContentBorder  =   -1  'True
      uSelectable     =   -1  'True
      uHotTracking    =   -1  'True
      uSelectedColumn =   -1
      uChartTitle     =   "Gain in 2002"
      uChartSubTitle  =   "Italy"
      uAxisXOn        =   -1  'True
      uAxisYOn        =   -1  'True
      uColorBars      =   0   'False
      uIntersectMajor =   200
      uIntersectMinor =   50
      uMaxYValue      =   1000
      uDisplayDescript=   -1  'True
      uXAxisLabel     =   "Months of the year"
      uYAxislabel     =   "(in Euro)"
      BackColor       =   8421376
      ForeColor       =   16776960
      MinY            =   -1000
      BarColor        =   49152
      SelectedBarColor=   16777088
      MajorGridColor  =   16777215
      InfoBackColor   =   12648447
      InfoForeColor   =   16711680
      XAxisLabelColor =   16776960
      YAxisLabelColor =   16776960
      XAxisItemsColor =   4210688
      YAxisItemsColor =   4210688
      ChartTitleColor =   65535
      ChartSubTitleColor=   8454143
      ChartType       =   1
      MenuItems       =   "&Save as...|&Print|&Copy|Selection &information|&Legend|&Hide"
      CustomMenuItems =   ""
      InfoItems       =   ""
      SaveAsCaption   =   "Salva grafico"
      AutoRedraw      =   -1  'True
      BarWidthPercentage=   100
      BarPicture      =   "frmTest.frx":0000
      Picture         =   "frmTest.frx":02A3
      MinorGridOn     =   0   'False
      MajorGridOn     =   -1  'True
      LineWidth       =   1
      LineColor       =   255
      BarFillStyle    =   0
      LineStyle       =   0
      MeanColor       =   65535
      MeanCaption     =   ""
      DataFormat      =   "##.00"
      PrinterFit      =   0
      PrinterOrientation=   0
      LegendCaption   =   "Display legend"
      LegendPrintMode =   1
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "线颜色"
      Height          =   255
      Index           =   15
      Left            =   1950
      TabIndex        =   23
      Top             =   6720
      Width           =   1845
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "Line width"
      Height          =   195
      Left            =   3870
      TabIndex        =   22
      Top             =   6090
      Width           =   720
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "Bar width (%)"
      Height          =   195
      Left            =   3870
      TabIndex        =   19
      Top             =   5790
      Width           =   915
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      Caption         =   "Max. Y value"
      Height          =   195
      Index           =   1
      Left            =   150
      TabIndex        =   18
      Top             =   8010
      Width           =   975
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      Caption         =   "Min. Y value"
      Height          =   195
      Index           =   0
      Left            =   150
      TabIndex        =   17
      Top             =   7680
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "网格线"
      Height          =   255
      Index           =   14
      Left            =   1950
      TabIndex        =   13
      Top             =   6420
      Width           =   1845
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "对话框背景色"
      Height          =   255
      Index           =   12
      Left            =   1950
      TabIndex        =   12
      Top             =   5520
      Width           =   1845
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "对话框字体色"
      Height          =   255
      Index           =   11
      Left            =   1950
      TabIndex        =   11
      Top             =   5820
      Width           =   1845
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "内前景色"
      Height          =   255
      Index           =   8
      Left            =   60
      TabIndex        =   10
      Top             =   7320
      Width           =   1845
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "内背景色"