Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图表中的点的大小可调吗？


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

主题：图表中的点的大小可调吗？
帅哥哟，离线，有人找我吗？
kgdce
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：620 积分：6776 威望：0 精华：0 注册：2013/12/17 1:00:00 		图表中的点的大小可调吗？  发帖心情 Post By：2015/7/20 12:45:00 [只看该作者]

现在做了一个散点图，有4000多个点，想将点调小一点，能更清楚更直观反映分布情况，能做到吗？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/20 14:13:00 [只看该作者]

 你用什么做？chart？哪种图表？ http://www.foxtable.com/help/topics/0974.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/20 14:51:00 [只看该作者]

 散点图参考

 

Dim c1Chart1 = e.form.Controls("Chart1").BaseControl
c1Chart1.ChartArea.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.Fillet

'模拟数据
Dim npoints As Integer = 50

' clear all data
c1Chart1.ChartGroups(0).ChartData.SeriesList.Clear()

' fisrt series
Dim ds1 = c1Chart1.ChartGroups(0).ChartData.SeriesList.AddNewSeries()
Dim x As Single() = CType(Array.CreateInstance(Gettype(Single), npoints), Single())
Dim y As Single() = CType(Array.CreateInstance(Gettype(Single), npoints), Single())
Dim rnd As New Random()

Dim i As Integer
For i = 0 To npoints - 1
    x(i) = rnd.Next(100)
    y(i) = rnd.Next(100)
Next i

ds1.X.CopyDataIn(x)
ds1.Y.CopyDataIn(y)

ds1.SymbolStyle.Color = Color.Red
ds1.SymbolStyle.Shape = C1.Win.C1Chart.SymbolShapeEnum.Dot
ds1.SymbolStyle.Size = 5
ds1.LineStyle.Pattern = C1.Win.C1Chart.LinePatternEnum.None
ds1.Label = String.Format("Red series - {0} points", ds1.Length)
 回到顶部
帅哥哟，离线，有人找我吗？
kgdce
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：620 积分：6776 威望：0 精华：0 注册：2013/12/17 1:00:00 		  发帖心情 Post By：2015/7/20 15:07:00 [只看该作者]

谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
kgdce
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：620 积分：6776 威望：0 精华：0 注册：2013/12/17 1:00:00 		  发帖心情 Post By：2015/7/20 15:15:00 [只看该作者]

如何根据以下代码修改
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")

Dim Chart As New ChartBuilder
Dim Series As WinForm.ChartSeries
Dim t As Table = Tables("总计") '定义一个变量t引用数据表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t.Rows.Count '图系的数据点数等于表的行数
Series.MarkShape= MarkShapeEnum.Dot '指定数据标记为圆点.
Series.MarkColor = Color.Red '指定数据标记的颜色
Series.LinePattern = LinePatternEnum.None '不显示数据点之间的
For i As Integer = 1 To t.Rows.Count '指定每个数据点的位置
Series.X(i) = t.Rows(i-1)("cj") '指定水平坐标
Series.Y(i) = t.Rows(i-1)("df") '指定垂直坐标
Next
Chart.PrintWidth = 280
Chart.PrintHeight = 160
Chart.FooterText ="散点图对比" 
'Chart.BarClusterWidth = 60
Chart.SaveImage(dlg.SelectedPath & "\cf.wmf")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/20 15:22:00 [只看该作者]

加代码

 

Dim Chart As New ChartBuilder
Dim Series As WinForm.ChartSeries
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系

Dim c1Chart1 = chart.BaseControl
Dim c1Series = c1Chart1.ChartGroups(0).ChartData.SeriesList(0)
c1Series.SymbolStyle.Size = 5
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03809 秒, 4 次数据查询