主题：[求助] 手机照片

方法一：你可以在上传之后，用代码旋转

 

Dim bmp As New bitmap("d:\test.jpg")
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save("d:\test2.jpg")

 

------------------

顺时针旋转90度     RotateFlipType.Rotate90FlipNone
逆时针旋转90度     RotateFlipType.Rotate270FlipNone
水平翻转    RotateFlipType.Rotate180FlipY
垂直翻转    RotateFlipType.Rotate180FlipX

 

 

方法二：请按照帮助文档操作，必须用 submitAjaxForm 的方式提交内容

 

http://www.foxtable.com/mobilehelp/scr/0257.htm

 

1、图片框是正方形的，如果这样，你的图片不就变形了？你确定要这样做？

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/001.jpg","http://www.foxtable.com") '超链接
        End With
        wb.AppendHTML("<style>.weui_media_appmsg_thumb{height:100%}</style>")
        e.WriteString(wb.Build) '生成网页
End Select

 

2、参考

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."

        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/001.jpg").Attribute = "onclick=""alert(123);location='/abc.htm?key=abc'"""
        End With
        wb.AppendHTML("<style>.weui_media_appmsg_thumb{height:100%}</style>")
        e.WriteString(wb.Build) '生成网页
End Select

看红色代码啊

 

        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/001.jpg").Attribute = "onclick=""alert(123);location='/abc.htm?key=abc'"""
        End With

        For Each r As DataRow In dt.DataRows
            With wb.AddArticle("","art_" & r("_Identify"))
                .AddTitle("h5",r("标题"))
                .AddTitle("h6",r("编辑人") & "    " & r("日期"))
                .AddImage("./images/" & r("图片"))
                .Attribute="onclick=""location='/abc.htm?key=" & r("_Identify") & "'"""                
            End With
        Next

8楼代码肯定没问题，弹出什么？

 

       For Each r As DataRow In dt.DataRows
msgbox(r("_Identify")

            With wb.AddArticle("","art_" & r("_Identify"))
                .AddTitle("h5",r("标题"))
                .AddTitle("h6",r("编辑人") & "    " & r("日期"))
                .AddImage("./images/" & r("图片"))
                .Attribute="onclick=""location='/abc.htm?key=" & r("_Identify") & "'"""                
            End With
        Next

如果还有问题，请单独做一个实例发上来测试。