彩票走势图

干货!快速将图表控件TeeChart AX 添加到 MS Access 表单

翻译|行业资讯|编辑:胡涛|2023-08-16 11:10:40.693|阅读 49 次

概述:本指南说明如何将 TeeChart ActiveX 控件添加到 MS Access 表单并使用表中的数据填充它,欢迎查阅~

# 慧都年终大促·界面/图表报表/文档/IDE等千款热门软控件火热促销中 >>

TeeChart Pro ActiveX 图表组件库提供数百种2D和3D图形样式,54种运算和统计函数以及无限数量的坐标轴和14工具箱供你选择。该图表控件还可以有效地用于创建多任务的仪表板。

TeeTeeChart ActiveX 最新版下载

加入官方社群740060302,欢迎相互交流

本指南说明如何将 TeeChart ActiveX 控件添加到 MS Access 表单并使用表中的数据填充它。

我们的示例数据表如下所示:

TeeChart AX

我们在 Access 空间的表单部分创建一个新表单并将其设置为设计。然后我们从表单设计面板中打开 ActiveX 控件选择器:

TeeChart

在此示例中,有许多 TeeChart 控件可供选择。我们将选择 v2023 控件,在此示例中,我们还将选择 TeeCommander Bar。

将图表和 Commander 添加到表单中,并为表单添加按钮并为其添加标题。我们将把基本表中的数据加载到按钮中的图表中。不一定要使用按钮,数据可以在表单加载中加载,但这里我们将通过按钮进行提示。

图表编辑器

我们在图表上单击鼠标右键打开图表编辑器以添加系列并从主题选择器中选择图表主题。

TeeChart TeeChart

添加代码

右键单击表单上的按钮并选择“构建事件”。这将我们带到 VBA 代码编辑器并创建一个按钮单击方法。这里我们添加图表填充代码:

TeeChart

我们为按钮添加的代码是这样的:

Private Sub Command2_Click()
TChart1.Series(0).Clear
strsql = "Select * From BasicTable"
Set rs = CurrentDb.OpenRecordset(strsql)
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst 'Unnecessary in this case, but still a good habit
Do Until rs.EOF = True
'vars are xvalue,yvalue,label and colour.
'Auto colour is clTeeColor = 536870912 as referenced here:
'//github.com/Steema/TeeChart-ActiveX-
'Samples/blob/master/Visual%20C%2B%2B/TeeChartDefines.h
TChart1.Series(0).AddXY rs!XValue, rs!YValue, "", 536870912
rs.MoveNext
Loop
Else
MsgBox "There are no records in the recordset."
End If
rs.Close
Set rs = Nothing
End Sub

您会注意到,我们还在表单加载中添加了一条代码行,以将 TeeCommander 栏连接到图表。IE:

Private Sub Form_Load(
TeeCommander0.ChartLink = TChart1.ChartLink
End Sub

表单上生成的图表如下所示:

TeeChart

 请注意 AddXY 方法的参数。我们没有添加标签,而是让图表根据主题选择的调色板来决定颜色。如果我们选择添加记录的标签,请像这样修改代码行:

TChart1.Series(0).AddXY rs!XValue, rs!YValue, rs!Labels, 5368709

那么图表将如下所示:

teechart

以上便是此次更新的主要内容,欢迎下载最新版试用新版功能,如有其他问题,欢迎咨询我们哟~


如果您有任何问题需了解详情,请联系

想要了解TeeChart for .NET 报价信息的朋友,欢迎咨询。


标签:

本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@capbkgr.cn


为你推荐

  • 推荐视频
  • 推荐活动
  • 推荐产品
  • 推荐文章
  • 慧都慧问
扫码咨询


添加微信 立即咨询

电话咨询

客服热线
023-68661681

TOP