以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  图表问题请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55071)

--  作者:CRM2013
--  发布时间: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

 

 


--  作者:有点甜
--  发布时间: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
--  发布时间: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提示为错误语句。


--  作者:有点甜
--  发布时间:2014/8/10 15:50:00
--  

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

 

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

 

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

 

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