工控图表控件ProEssentials创建3D柱状图示例代码

使用ProEssentials可以创建3D柱状图,柱状图的形式包括线框、实体和阴影。

类似于Graph control,3D柱状图只需要YData。

Subsets定义沿z轴有多少行,Points定义了沿着x轴有多少列。

SubsetLabels和PointLabels用于行和列的标签。 SubsetColors是用来控制子集柱状条的颜色。

一旦用户提供数据,ProEssentials将构造一个3D柱状图。下面的示例代码显示了如何构造一个简单的3D

柱状图。

Dim s As Integer
Dim p As Integer
 
Pe3do1.PEactions = 20
Pe3do1.PolyMode = PEPM_3DBAR
 
Pe3do1.PrepareImages = True
Pe3do1.Subsets = 10
Pe3do1.Points = 10
 
For s = 0 To 9
  For p = 0 To 9
   Pe3do1.YData(s, p) = (5+35*Cos(p*.4))*(5+10*Sin(s*.34))
  Next p
  Pe3do1.SubsetColors(s) = RGB(100+s*18, 100+s*18, 100+s*18)
Next s
 
Pe3do1.SubsetLabels(0) = "Hello"
Pe3do1.SubsetLabels(1) = "World"
 
Pe3do1.PointLabels(0) = "Texas"
Pe3do1.PointLabels(1) = "Washington"
 
Pe3do1.DegreeOfRotation = 309
Pe3do1.ViewingHeight = 4
Pe3do1.FontSize = PEFS_SMALL
 
Pe3do1.PlottingMethod = 1
 
Pe3do1.MainTitle = "3D Bar Chart"
Pe3do1.SubTitle = ""
 
Pe3do1.XAxisLabel = "Points"
Pe3do1.ZAxisLabel = "Subsets"
Pe3do1.YAxisLabel = "Data value"

生成图片如下所示:

》》》ProEssentials下载地址 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值