社区
控件
帖子详情
求助:MSChart控件的用法!!!!!!
dreamvikey
2003-05-21 10:16:33
请问,MSChart控件只能DataSource与Adodc控件连接吗,它的横坐标和纵坐标能不能分别与一个已经赋值的数组连接上呢?还有,怎么改纵坐标显示的数值范围和格式??
...全文
86
4
打赏
收藏
求助:MSChart控件的用法!!!!!!
请问,MSChart控件只能DataSource与Adodc控件连接吗,它的横坐标和纵坐标能不能分别与一个已经赋值的数组连接上呢?还有,怎么改纵坐标显示的数值范围和格式??
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用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
控件
用起来也是很简单的。 源地址在这里http://www.codeproject.com/KB/miscctrl/High-speed
Char
ting.aspx 以对话框应用为例 1添加.h ...
我在CSDN参与的3000个帖子
今日偶然翻到,感慨万千 1:申述:版主,是否扣了我的专家分? 2:100分急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望高手帮忙! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6:VBA请教怎
基础
各位兄弟,在SDK编程中如果实现窗口分割呢?请问怎么得到一个函数的执行时间,单位毫秒!如何调试asp组件呀。用vc++调试编制的组件怎样画一个箭头?高分请教如何限制程序运行的方法?
求助
:通过编程DirectX抓屏------>masterz:再麻烦你一下,谢谢熟悉RichEdit的朋友过来看一下,RichEdit的几个问题.如何对 I/O 端口进行操作?有了该问题就有了思考(100分 献礼!)如何
求助
水晶报表动态饼图显示、
求助
进行数据查询和把查询结果用图表比较出来
主题: 水晶报表动态饼图显示、
求助
进行数据查询和把查询结果用图表比较出来的程序您好: 我在vb.net+sql server2000 下用水晶报表时候〔vs.net自带的〕遇见了点麻烦,麻烦您帮我看看吧 网址:http://blog.csdn.net/gxj022/archive/2007/10/17/1830073.aspx详细要求如下:表如下:机器编号 开始时间 结束时间
vb/vb.net开发精粹(19)
如何消除多余十字光标? vb6.0 Ms
char
获取X轴(注脚)的值、改变图例位置(默认右边) VB实现IP通讯控制 关于Mscomm通讯假死 关于WshShell.AppActivate的疑惑
求助
WINSOCK发送邮件为什么内容稍微长点就收不到呢? 请教关于图片保存的问题。谢谢! 寻一个Activex,就是IE得到MAC的
控件
,希望是VB代码. 给Combo1
控件
赋值
控件
1,453
社区成员
41,355
社区内容
发帖
与我相关
我的任务
控件
VB 控件
复制链接
扫一扫
分享
社区描述
VB 控件
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章