以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 手机照片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106696)
--  作者：zcgmxf
--  发布时间：2017/9/14 9:08:00
--  [求助] 手机照片

老师，用下面的代码，三星手机上传的照片还是横向的。我的照片没有储存在web文件夹下，而是储存在其它文件夹下，是不是一定要储存在web下，才能实现旋转上传？谢谢！

 

            With .AddUploader("up128","照片",True)
                .AllowDelete = True \'允许删除
                .Incremental = True \'允许重复选择文件或连续拍照
                .ScaleWidth = 400 \'自动压缩图片宽度为400个像素,高度等比例压缩
                 .Rotate = 1 \'顺时钟旋转90°
            End With
--  作者：有点甜
--  发布时间：2017/9/14 10:21:00
--  

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

 

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

 
--  作者：zcgmxf
--  发布时间：2018/7/15 19:27:00
--  
老师，请教两个问题：
1、如何使手机页面的图片 一样大小？同一张表生成的。
2、表 《通知公告》中有一列 内容 ，点击页面的文字或图片 如何 打开 test.htm 网页 显示当前行  列 内容 的 详细资料？

Dim cmd As New SQLCommand
cmd.C \'记得设置数据源名称
cmd.CommandText = "Select Top 30 * Fr m {通知公告} Order By 日期 Desc"
Dim dt As DataTable = cmd.ExecuteReader
Select Case e.Path
    Case "tongzhigonggao.htm"        
        With wb.AddPanelGroup("","pg1","")            
            For Each r As DataRow In dt.DataRows
                .Add("pn1",r("标题"),r("编辑人"),"./images/" & r("图片"),"test.htm")
            Next
        End With
        e.WriteString(wb.Build)
End Select


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180715191916.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/7/15 20:14:44编辑过]
--  作者：有点甜
--  发布时间：2018/7/15 20:48:00
--  

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

[此贴子已经被作者于2018/7/15 22:16:40编辑过]
--  作者：zcgmxf
--  发布时间：2018/7/15 21:29:00
--  
老师，我的这个和帮助里面的不同，必须要获取当前行的主键才能加载对应的 r("内容") ，又不是表，不知道如何获取。

老师，如何实现 点击当前图片或文字时 保存 该行的主键值 ？
 

wb.AppendCookie("tzgg",r("_identify"))
[此贴子已经被作者于2018/7/15 22:12:54编辑过]
--  作者：有点甜
--  发布时间：2018/7/15 22:16:00
--  

看红色代码啊

 

        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/001.jpg").Attribute = "onclick=""alert(123);location=\'/abc.htm?key=abc\'"""
        End With
--  作者：zcgmxf
--  发布时间：2018/7/16 16:01:00
--  
老师，我有两个网页，一个 tttt.htm    生成下图所示网页，如何实现 点击图片或文字 打开另一个网页 gggg.htm  来显示其对应  行  的其他内容？
本人纯属菜鸟，学艺不精，上面的红色代码也没有弄懂，还请老师耐心指教。非常谢谢！
        Dim cmd As New SQLCommand
        cmd.C \'记得设置数据源名称
        cmd.CommandText = "Select Top 30 * Fro  m {中心动态} Order By 日期"
        Dim dt As DataTable = cmd.ExecuteReader
        With wb.AddArticle("","ar1")
            For Each r As DataRow In dt.DataRows
              \'   .UseGallery = True \'启用Gallery,必须放在第一行
                .AddTitle("h5",r("标题"))
                .AddTitle("h6",r("编辑人") & "    " & r("日期"))
                .AddImage("./images/" & r("图片"))
            Next
        End With


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180716155946.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/7/16 17:26:00
--  
        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
--  作者：zcgmxf
--  发布时间：2018/7/19 8:02:00
--  
老师，.Attribute="onclick=""location=\'/abc.htm?key=" & r("_Identify") & "\'"""   在八楼始终显示一条，也就是只传递一行的主键
msgbox(r("_identify")) 弹出的都是 123
在六楼没问题。
[此贴子已经被作者于2018/7/19 8:03:14编辑过]
--  作者：有点甜
--  发布时间：2018/7/19 8:55:00
--  

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