Foxtable(狐表)用户栏目专家坐堂 → 图片格式求助


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

主题:图片格式求助

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
图片格式求助  发帖心情 Post By:2018/3/30 23:20:00 [只看该作者]

这种一大三小的格式怎么编码用哪个控件
图片点击可在新窗口打开查看此主题相关图片如下:screenshot_20180330_231457.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/31 9:22:00 [只看该作者]

需要使用原生的html处理,参考:

'Dim fl As String = "F:\Web_dev\MyWeb\webdesigner\web\" & e.path
Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".json",".svg",".ttf",".woff",".woff2",".eot",".ico"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        With wb.AddArticle("","ar1")
            .AddTitle("h1","大标题")
            .AddTitle("h2","章标题")
            .AddTitle("h3","1.1节标题")
            .AddContent("<div style='display:flex;justify-content:center; height:600px'><div style='flex-basis: 100%;display: flex;height:600px'><img src='a.jpg'> </img></div><div style='flex-basis: 100%;display: flex;flex-direction:column;height:600px'><img src='a.jpg' style='height:200px;width:200px'> </img><img src='a.jpg' style='height:200px;width:200px'> </img><img src='a.jpg' style='height:200px;width:200px'> </img></div></div>")

        End With
        e.WriteString(wb.Build) '生成网页
End Select

 回到顶部