社区
控件
帖子详情
求助:MSChart控件的用法!!!!!!
dreamvikey
2003-05-21 10:16:33
请问,MSChart控件只能DataSource与Adodc控件连接吗,它的横坐标和纵坐标能不能分别与一个已经赋值的数组连接上呢?还有,怎么改纵坐标显示的数值范围和格式??
...全文
81
4
打赏
收藏
求助:MSChart控件的用法!!!!!!
请问,MSChart控件只能DataSource与Adodc控件连接吗,它的横坐标和纵坐标能不能分别与一个已经赋值的数组连接上呢?还有,怎么改纵坐标显示的数值范围和格式??
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
GhSoft
2003-09-15
打赏
举报
回复
.Column = 1
.ColumnLabel = "本旬出口数量"
.Column = 2
.ColumnLabel = "去年同期对比百分数"
怎么显示不出.ColumnLabel ?? 请指教
dreamvikey
2003-05-23
打赏
举报
回复
呵呵,洪根兄,怎么每个分论坛都有你的身影呀?而且都是"一语中的",我的问题又解决了,小弟真的是佩服的五体投地,再次致以十分万分十万分的感谢:)
lihonggen0
2003-05-22
打赏
举报
回复
Private Sub Command2_Click()
If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据
With MSChart1
.ChartType = VtChChartType2dBar
.ColumnCount = 2
.RowCount = MSHFlexGrid1.Rows - 1
.RowCount = 1
.TitleText = "直方图示例 本旬出口数量与去年同期对比值"
Dim XXX, XXXX As Double
For I = 1 To MSHFlexGrid1.Rows - 1
XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
XXXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
.Column = 1
.Row = 1
.Data = XXX
.Column = 2
.Row = 1
.Data = XXXX
.RowLabel = MSHFlexGrid1.TextMatrix(I, 1)
.RowLabel = ""
Next I
.Column = 1
.ColumnLabel = "本旬出口数量"
.Column = 2
.ColumnLabel = "去年同期对比百分数"
End With
End If
End Sub
lihonggen0
2003-05-22
打赏
举报
回复
If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) <> "" And IsNull(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)) = False Then '该表格有数据
With MSChart1
.ChartType = VtChChartType2dPie
.ColumnCount = 2
.RowCount = 1
Dim XXX As Double
XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
.TitleText = "饼图示例 完成百分比"
.Column = 1
.Row = 1
.Data = XXX
.ColumnLabel = "完成百分比" & str(XXX) & "%"
.Column = 2
.Row = 1
.Data = 100 - XXX
.ColumnLabel = "剩余百分比" & str(100 - XXX) & "%"
End With
' With MSChart1
' .ChartType = VtChChartType2dPie
' .ColumnCount = 2
' .RowCount = 1
' Dim XXX As Double
' XXX = Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
' .TitleText = "饼图示例 完成百分比"
' .Column = 1
' .Row = 1
' .Data = XXX
' .ColumnLabel = "完成百分比" & Str(XXX) & "%"
' .Column = 2
' .Row = 1
' .Data = 100 - XXX
' .ColumnLabel = "剩余百分比" & Str(100 - XXX) & "%"
' End With
End If
char
t
控件
的简单使用
看到很多人在论坛
求助
毕业设计或者其他课题中的图表应用,最简单的就是ms
char
t 但它有很多缺点 网上教程一大把 这里说下codeproject上的 HiSpeed
Char
t
控件
用起来也是很简单的。 源地址在这里...
我在CSDN参与的3000个帖子
文本框只能输入数值的方法。限制字符已解决,关键是如何保证负号只能在前面,小数点只能输一个。 11: Commondialog
控件
多选 ! 12: 【问】如何修改集合中Varient数组的内容? 13: 求教:如何在vb...
基础
各位兄弟,在SDK编程中如果实现...
求助
:通过编程DirectX抓屏------>masterz:再麻烦你一下,谢谢熟悉RichEdit的朋友过来看一下,RichEdit的几个问题.如何对 I/O 端口进行操作?有了该问题就有了思考(100分 献礼!)如何
求助
水晶报表动态饼图显示、
求助
进行数据查询和把查询结果用图表比较出来
主题: 水晶报表动态饼图显示、
求助
进行数据查询和把查询结果用图表比较出来的程序您好: 我在vb.net+sql server2000 下用水晶报表时候〔vs.net自带的〕遇见了点麻烦,麻烦您帮我看看吧 ...
vb/vb.net开发精粹(19)
如何消除多余十字光标? vb6.0 Ms
char
获取X轴(注脚...
求助
WINSOCK发送邮件为什么内容稍微长点就收不到呢? 请教关于图片保存的问题。谢谢! 寻一个Activex,就是IE得到MAC的
控件
,希望是VB代码. 给Combo1
控件
赋值
控件
1,451
社区成员
41,355
社区内容
发帖
与我相关
我的任务
控件
VB 控件
复制链接
扫一扫
分享
社区描述
VB 控件
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章