java teechart怎么用_Teechart常用属性使用说明

这个是VB的示例，改为vfp的话很简单的.......

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