Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动图标格式


  共有2073人关注过本帖树形打印复制链接

主题：移动图标格式
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2455 积分：22653 威望：0 精华：0 注册：2011/3/29 17:14:00 		移动图标格式  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2019/4/21 17:44:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2455 积分：22653 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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


这样变成了九个饼
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询