主题：图表中的点的大小可调吗？

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

 散点图参考

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)

加代码

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