frmtest.frm

The most perfect bubble.rar

VERSION 5.00
Object = "*\AAnimatedChart.vbp"
Begin VB.Form frmTest 
   Caption         =   "支持换肤动画特效图表源代码"
   ClientHeight    =   5355
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10500
   Icon            =   "frmTest.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5355
   ScaleWidth      =   10500
   StartUpPosition =   3  '窗口缺省
   Begin VB.OptionButton Option1 
      Caption         =   "经典界面"
      Height          =   300
      Index           =   3
      Left            =   4245
      TabIndex        =   4
      Top             =   5025
      Width           =   1290
   End
   Begin VB.OptionButton Option1 
      Caption         =   "黑酷彩虹"
      Height          =   300
      Index           =   2
      Left            =   2985
      TabIndex        =   3
      Top             =   5025
      Width           =   1290
   End
   Begin VB.OptionButton Option1 
      Caption         =   "天空色彩"
      Height          =   300
      Index           =   1
      Left            =   1725
      TabIndex        =   2
      Top             =   4995
      Width           =   1290
   End
   Begin VB.OptionButton Option1 
      Caption         =   "流行蓝色"
      Height          =   300
      Index           =   0
      Left            =   210
      TabIndex        =   1
      Top             =   4995
      Value           =   -1  'True
      Width           =   1290
   End
   Begin HamedAnimatedChart.AnimatedChart ActiveChart1 
      Height          =   4935
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10395
      _ExtentX        =   18336
      _ExtentY        =   8705
      uTopMargin      =   750
      uBottomMargin   =   1125
      uLeftMargin     =   825
      uRightMargin    =   825
      uContentBorder  =   -1  'True
      uSelectable     =   -1  'True
      uHotTracking    =   -1  'True
      uSelectedColumn =   -1
      uChartTitle     =   "动画特效图表示例(支持换肤)"
      uChartSubTitle  =   "http://mndsoft.com"
      uDisplayXAxis   =   -1  'True
      uDisplayYAxis   =   -1  'True
      uColorBars      =   -1  'True
      uIntersectMajor =   10
      uIntersectMinor =   2
      uMaxYValue      =   100
      uDisplayDescript=   -1  'True
      uXAxisLabel     =   "枕善居产品按年销售比例"
      uYAxislabel     =   "金额(单位：元)"
      BackColor       =   -2147483633
      ForeColor       =   0
      ActiveTheme     =   1
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2008/07/23
'描    述：支持换肤动画特效图表源代码
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'


Private Sub Form_Load()
    Dim X As Integer, oChartItem As ChartItem
   
    Randomize
    
    'ActiveChart1.IntersectMajor = 1000

    For X = 1 To 8
        oChartItem.ItemID = X
        oChartItem.SelectedDescription = "200" & X & "年总销售"
        oChartItem.Value = CLng(Rnd * 2000)
        oChartItem.XAxisDescription = "200" & X & "年"
        ActiveChart1.AddItem oChartItem
            

    Next X
   

End Sub

Private Sub Form_Resize()
    
   ActiveChart1.Width = Me.ScaleWidth
   ActiveChart1.Height = Me.ScaleHeight - 400
    
End Sub

Private Sub grd_Click()
    DoEvents
    ActiveChart1.SelectedColumn = grd.Row - 1
End Sub

Private Sub Option1_Click(Index As Integer)
    ActiveChart1.ActiveTheme = Index
End Sub