我想改成饼图或是雷达图
Dim e As RequestEventArgs = args(0)
Select Case e.Path
Case "test12.htm"
Dim wb As New WeUI
Dim Chart As New ChartBuilder
Dim Series As WinForm.ChartSeries
Chart.PrintWidth = 140
Chart.PrintHeight = 100
Chart.VisualEffect = True
For n As Integer = 0 To 1
Series = Chart.SeriesList.Add()
Series.Length = 10
For i As Integer = 0 To 9
Series.X(i) = i
Series.Y(i) = i + n * 2 + Rand.Next(5)
Next
Next
wb.AddPageTitle("","ph1","FoxUI")
wb.InsertHTML("<img width='100%' src='" & wb.ImageToBase64(Chart.Image) & "'/>")
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2019/4/21 11:56:00 [只看该作者]
