以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表中的点的大小可调吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71907)
--  作者：kgdce
--  发布时间：2015/7/20 12:45:00
--  图表中的点的大小可调吗？
现在做了一个散点图，有4000多个点，想将点调小一点，能更清楚更直观反映分布情况，能做到吗？
--  作者：大红袍
--  发布时间：2015/7/20 14:13:00
--  

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

 
--  作者：大红袍
--  发布时间：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
--  发布时间：2015/7/20 15:07:00
--  
谢谢
--  作者：kgdce
--  发布时间：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
--  作者：大红袍
--  发布时间：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