求助:MSChart控件的用法!!!!!!

dreamvikey 2003-05-21 10:16:33

请问,MSChart控件只能DataSource与Adodc控件连接吗,它的横坐标和纵坐标能不能分别与一个已经赋值的数组连接上呢?还有,怎么改纵坐标显示的数值范围和格式??

...全文

65 点赞收藏 4

写回复

4 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

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

回复赞

整理机器时发现，偶在以前参与的一些贴子！特此放上来！ '使用递归，把该节点的字节点都选中 If Node.Children > 0 Then For i = Node.Child.FirstSibling.Index To Node.Child.LastSibling.Index trvRules.Nodes.Item(i).Checked = Node.Checked Call trvRules_...

chart控件的简单使用看到很多人在论坛求助毕业设计或者其他课题中的图表应用，最简单的就是mschart 但它有很多缺点网上教程一大把这里说下codeproject上的 HiSpeedChart控件用起来也是很简单的。源地址在这里...

我在CSDN参与的3000个帖子文本框只能输入数值的方法。限制字符已解决，关键是如何保证负号只能在前面，小数点只能输一个。 11： Commondialog 控件多选！ 12：【问】如何修改集合中Varient数组的内容？ 13：求教:如何在vb...

求助水晶报表动态饼图显示、求助进行数据查询和把查询结果用图表比较出来主题：水晶报表动态饼图显示、求助进行数据查询和把查询结果用图表比较出来的程序您好：　我在ｖｂ．ｎｅｔ＋ｓｑｌ　ｓｅｒｖｅｒ2000　下用水晶报表时候〔ｖｓ．ｎｅｔ自带的〕遇见了点麻烦，麻烦您帮我看看吧　...

vb/vb.net开发精粹(19) 如何消除多余十字光标？ vb6.0 Mschar 获取X轴（注脚...求助 WINSOCK发送邮件为什么内容稍微长点就收不到呢？请教关于图片保存的问题。谢谢！寻一个Activex,就是IE得到MAC的控件,希望是VB代码. 给Combo1控件赋值

基础各位兄弟，在SDK编程中如果实现...求助：通过编程DirectX抓屏------>masterz:再麻烦你一下，谢谢熟悉RichEdit的朋友过来看一下,RichEdit的几个问题.如何对 I/O 端口进行操作?有了该问题就有了思考（100分献礼！）如何

关于一个用VB编写的PING工具的问题我在互联网上找到一个用VB编写的程序，是PING一个计算机的IP是否能通的工具，我改了改，使用ADO重数据库中循环读取IP地址，并将测试后的状态写入到数据库，作完后运行是可以测试，但是速度太慢了，每循环测试一个IP...

C# winform 初学者各种问题集合(已经本人验证能有效解决问题) 1、 C#中如何让radiobutton初始处于没有选中的...9、C# WinForm开发系列 - DataGridView 使用方法集锦 http://group.cnblogs.com/topic/40730.html 10、winform用数据绑定导航控件bindingNavigator ...

用VB如何写可以发送mail？比较简单的方法，是使用JMAIL. 先下载个JMAIL安装包，然后就可以用VB调用了。大体代码： Option Explicit Dim jmail1 Sub SendMail(Optional ByVal sSubject As String, Optional ByVal sBody As String, ...

vb/vb.net原创文章精粹（1） [url=http://www.vbbaike.com/show.asp?id=101182]〓紧急求助〓 WebBrowser控件如何判断网页是否完全打开....解决后马上给分....十分感谢[/url] [url=http://www.vbbaike.com/show.asp?id=101181]如何保存网页中...

vb/vb.net开发实战之经验分享（1） Mschart控件的使用？？？？求教关于程序退出码如何向文本中添加数据而不是覆盖 ? 高分求用hook任务管理器的API方法，隐藏进程的代码 VB能实现这样的功能吗? 请教一个我无头绪的问题谢谢! 请教...