以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  移动图标格式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133816)
--  作者：yifan3429
--  发布时间：2019/4/21 11:56:00
--  移动图标格式
我想改成饼图或是雷达图

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
--  作者：有点色
--  发布时间：2019/4/21 17:44:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0972.htm

 

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

 
--  作者：yifan3429
--  发布时间：2019/4/21 19:08:00
--  
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
        
        \'Chart= Forms("窗口1").Controls("Chart1") \' 引用窗口中的图表
        Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
        Chart.ChartType = ChartTypeEnum.Pie \'图表1类型改为Bar(条形)
        
        
        
        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


这样变成了九个饼