teechart属性和方法

'**************主要属性和方法*************
Private Sub Form_Load()
fCombo

With TChart1
.Aspect.View3D = False               
'是否3D显示
'.Aspect.Chart3DPercent = 100         '3D效果度大小
.Walls.Visible =
True                 '是否显示图表边框
.Header.Text(0) = "生产"             
'修改标题
.Header.Text.Add "日报表"             '增加标题"
.Axis.DrawAxesBeforeSeries
= True     '坐标线是否在图表上面底部
.Axis.Visible = True                 
'是否显示纵横坐标
.Legend.TextStyle = ltsLeftValue     
'图例显示样式
.Axis.Left.Title.Caption = "图表实例"
'图表标题(可在四个方向,left左,right右,top上,bottom下,以后的都和这个类似)
.Axis.Left.Title.Visible =
True       '是否显示标题
.Axis.Left.Title.Angle = 90          
'标题摆放角度
.Axis.Bottom.Labels.Angle = 90        '底部标签摆放角度

'***************四周框架板*****************
.Walls.Visible =
True                 '3D效果时是否显示外框
'.Walls.Left.............略           
'设置上下左右外框属性
.Walls.Back.Transparent = False       
'背景是否透明
.Walls.Back.Gradient.Visible = True   
'是否显示背景
.Walls.Back.Gradient.MidColor = vbYellow '背景霓虹色

'************网格相关***************
.Axis.Left.GridPen.Visible = False    
'是否显示横线网格
.Axis.Bottom.GridPen.Visible = False   '是否显示竖线网格

'*******定义工具条*********
TeeCommander1.Chart = TChart1        
'将工具条与图表关连

'定义需要的工具条按钮(以下排列顺序与运行时工具条上按钮的排列一致,
'请根据需要任意改变顺序设置,注:tcbSeparator为工具条分隔符)
TeeCommander1.Controls
= Array(tcbNormal, _
tcbSeparator, tcbRotate, tcbMove, tcbZoom,
_
tcbDepth, tcb3D, tcbSeparator, tcbEdit, tcbPrintPreview, _
tcbCopy,
tcbSave)

'*********加载数据生成图表**************
.Series(0).Clear
.Series(0).Add
125, "工程部", clTeeColor
.Series(0).Add 45, "市场部", clTeeColor
.Series(0).Add
82, "财务部", clTeeColor
.Series(0).Add 37, "餐饮部", clTeeColor
.Series(0).Add
67, "客房部", clTeeColor
.Series(0).Add 27, "消安部",
clTeeColor
'.Series(1).FillSampleValues 6

'*************标签********************
.Series(0).Marks.Style =
smsPercent          
'图表单元标签显示类型(文字,百分比,或数字,或组合方式显示)
.Series(0).Marks.ArrowLength = 50            
'图表单元标签与单元之间的距离
.Series(0).Marks.Visible = True              
'是否显示图表单元标签
.Series(0).Marks.DrawEvery = 1               
'每几个单元为一组显示一个标签
.Series(0).Marks.Angle = 0                   
'单元标签的倾斜度
.Series(0).Marks.Arrow.Color = vbGreen       
'标签与单元之间连线的颜色
.Series(0).Marks.Arrow.Visible = True        
'是否显示[标签与单元之间连线]
.Series(0).Marks.Clip = False                
'超出图表的标签部分是否自动裁剪掉
.Series(0).Marks.Arrow.Width = 1             
'标签与单元之间连线的宽度
.Series(0).Marks.Arrow.Style = psSolid       
'标签与单元之间连线样式
.Series(0).Marks.Transparent = False         
'标签是否透明
.Series(0).Marks.ShapeStyle = fosRoundRectangle  
'标签样式(椭圆或长方形)
.Series(0).Marks.Font.Color = vbBlue             
'标签文字色
.Series(0).Marks.BackColor = vbYellow            
'标签背景色
.Series(0).Marks.Gradient.Visible = True         
'是否起用标签渐变色
.Series(0).Marks.Bevel = bvNone                  
'标签样式(凹,凸,平面)
.Series(0).Marks.ShadowSize = 0                  
'标签阴影大小
.Series(0).Marks.MultiLine = False               
'是否允许标签多行显示(当标签太长时)

'*************图例****************
.Legend.ResizeChart =
True                       '图例是否自动调整位置
.Legend.DividingLines.Visible =
True             '是否显示图例的行分隔线
'.Legend.Font.(....略)                          
'图例字体设置
'.Legend.Left = 420                             
'图例左部位置
'.Legend.Top = 30                               
'图例顶部位
.Legend.TextStyle = ltsRightValue               
'图例显示样式
.Legend.Visible = True                          
'是否显示图例(全局控制)
.Legend.ColumnWidthAuto = True                  
'图例内的各列数据是否自动调整宽度(必须用Repaint方法刷新)
.Legend.ColumnWidths(0) =
20                    
'调整图例内某一列数据的宽度(当上一项为假时有效,必须用Repaint方法刷新)
'.Repaint
.Legend.CheckBoxes =
False                       '图例是否带复选项框(通常用于多组图表)
.Legend.Vertspacing =
0                         
'图例内行间距大小(默认为0)
'.Legend.Symbol.(...略)                         
'图例内色条属性设置(位置,大小等)
.Legend.FontSeriesColor = False                 
'图例内字体色是否不同

 

.Series(0).ShowInLegend = True                
'是否显示图例
.Series(0).ColorEachPoint = True             
'用不同的颜色显示图表单元
.Series(0).asBar.Dark3D = True               
'3D效果下图表单元是否显示阴影
.Series(0).asBar.BarWidth = 35               
'单元宽度
.Series(0).asBar.BarStyle = bsRectangle      
'图表单元样式(柱形,椎形,圆形....)
.Series(0).asBar.BarPen.Visible = True       
'是否显示单元边框线
'.Series(0).asBar.BarPen.(...)(略)            
'设置单元边框的各种属性
'.Series(0).asBar.BarBrush.Style = bsFDiagonal '图表单元填充样式

.Series(0).asBar.UseOrigin = True             '不详
.Series(0).Depth =
15                         '3D下立体效果值(值越大,立体感越强)
.Series(0).HorizontalAxis =
aBottomAxis       '横坐标数据位置
.Series(0).VerticalAxis = aLeftAxis          
'纵坐标数据位置
End With
End Sub