共7 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：图表问题

1楼

lin98 发表于：2024/3/12 9:45:00

Dim i As Integer

Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")

Dim C1Cha As C1.Win.C1Chart.C1Chart = Chart.BaseControl

Dim Series As WinForm.ChartSeries

Chart.VisualEffect = True

'Chart.ChartType = ChartTypeEnum.Bar

Chart.ChartType = ChartTypeEnum.XYPlot

chart1.Parent = pictureBoxBackground '

报错提示chart1被保护不能访问，如何处理？

chart1.Series.Clear()

Dim series As New Series("MySeries")

chart1.Series.Add(series)

series.ChartType = SeriesChartType.Line '

For i As Integer = 0 To 9

series.Points.AddXY(i, i + Rand.Next(5))

2楼

有点蓝 发表于：2024/3/12 9:50:00

chart.Parent = pictureBoxBackground

3楼

lin98 发表于：2024/3/12 10:34:00

'Using System.Windows.Forms.DataVisualization.Charting

'Dim Chart As WinForm.Chart '定义一个图表变量

'Dim Series As WinForm.ChartSeries '定义一个图系变量

'Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

'' 设置图表的背景色为透明或与背景图匹配的颜色

'' Chart.BorderSkin.SkinStyle = BorderSkinStyle.None ' 移除图表边框

'' 移除图表的边框

'Chart.ChartAreas(0).AxisX.LineWidth = 0

'Chart.ChartAreas(0).AxisY.LineWidth = 0

'Chart.BorderWidth = 0

'Chart.SeriesList.Clear() '清除图表原来的图系

'Series = Chart.SeriesList.Add() '增加一个图系

'Series.Length = 10 '新增图系包括10个数据点

'For i As Integer = 0 To 9 '指定每个数据点的位置

' Series.X(i) = i '指定水平坐标

' Series.Y(i) = i + Rand.Next(5) '垂直坐标用随机数生成

'Next

'End Using

报错：Using System.Windows.Forms.DataVisualization.Charting中DataVisualization不是Forms的成员？

4楼

有点蓝 发表于：2024/3/12 10:36:00

foxtable没有这种东西，不要随便创造用法

5楼

lin98 发表于：2024/3/12 10:48:00

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

' Chart.BorderSkin.SkinStyle = BorderSkinStyle.None ' 移除图表边框

' 移除图表的边框

Chart.ChartAreas(0).AxisX.LineWidth = 0

报错：ChartAreastion不是WinForm.Chart的成员

Chart.ChartAreas(0).AxisY.LineWidth = 0

Chart.BorderWidth = 0

Series = Chart.SeriesList.Add() '增加一个图系

Chart.SeriesList.Clear() '清除图表原来的图系

Series.Length = 10 '新增图系包括10个数据点

For i As Integer = 0 To 9 '指定每个数据点的位置

Series.X(i) = i '指定水平坐标

Series.Y(i) = i + Rand.Next(5) '垂直坐标用随机数生成

'Using System.Windows.Forms.DataVisualization.Charting

6楼

有点蓝 发表于：2024/3/12 11:30:00

不要网上搜一些foxtable不存在的东西乱套。可以在本论坛搜索

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=170552

7楼

cd_tdh 发表于：2024/3/12 11:32:00

Dim b2 As C1.Win.C1Chart.C1Chart = e.Form.Controls("Chart2").BaseControl

b2.BackColor = Color.white 'Transparent

b2.ChartArea.Style.BackColor = Color.white 'Aqua '图板颜色

b2.ChartArea.Style.Border.BorderStyle = 0 '图板外形框线型

b2.ChartArea.Style.GradientStyle = 0 '图板外形框样式

b2.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.None

b2.ChartArea.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.None

参照这样写

[此贴子已经被作者于2024/3/12 11:36:12编辑过]

共7 条记录, 每页显示 10 条, 页签: [1]