Foxtable(狐表)用户栏目专家坐堂 → 图表问题请教


  共有2906人关注过本帖树形打印复制链接

主题:图表问题请教

帅哥哟,离线,有人找我吗?
CRM2013
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:315 积分:3554 威望:0 精华:0 注册:2012/12/10 10:38:00
图表问题请教  发帖心情 Post By:2014/8/10 10:33:00 [只看该作者]

 

在制作chart中的曲线图,有如下问题请教:

 

1:对已经生成的曲线,是否可以直接修改它的颜色?

 

2:  我现在的思路是为每一列数据增加一个颜色指定, 利用Series.LineColor = Color.xxx 指定连线的颜色,请问在table中如何调取色卡的名称,最好是数据字典形式,table中显示颜色,在图表生成中获取颜色名称

Dim dlg As New Windows.Forms.ColorDialog.
Dim clr As Color
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
    clr = dlg.Color.name
End If

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/10 10:39:00 [只看该作者]

 1、不能,除非重新生成

 

 2、并不是每一个色卡都有名称的。

 

http://www.foxtable.com/help/topics/0496.htm

 

Dim dlg As New Windows.Forms.ColorDialog
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
    msgbox(dlg.Color.ToString)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
CRM2013
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:315 积分:3554 威望:0 精华:0 注册:2012/12/10 10:38:00
  发帖心情 Post By:2014/8/10 15:44:00 [只看该作者]

再请教一下

 

下面的代码中messagebox.show,显示的文字为Red, 但接下来红色表示的一句提示有语法错误。如何修改?

 

 If dr.IsNull("曲线颜色") = False Then
       Dim Clr As String = dr("曲线颜色")
       messagebox.show(clr)
       Series.LineColor = Color.Clr '各点之间的连线用红色
  End If

 

另外一个问题请教


            Series.TooltipText = "X = {#XVAL}, Y = {#YVAL}" '显示数值


X值为日期,如何让其显示日期而不是数字? 用format提示为错误语句。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/10 15:50:00 [只看该作者]

1、不要用名称,你直接用数值,用Color.Red很麻烦的

 

FromARGB还可以根据一个整数来生成颜色:

 

Dim clr As Color = Color.FromARGB(-16181)

 

2、TooltipText 只能显示坐标,不能显示对应的值。


 回到顶部