Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 手机照片


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

主题：[求助] 手机照片
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00 		[求助] 手机照片  发帖心情 Post By：2017/9/14 9:08:00 [显示全部帖子]

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

 

            With .AddUploader("up128","照片",True)
                .AllowDelete = True '允许删除
                .Incremental = True '允许重复选择文件或连续拍照
                .ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
                 .Rotate = 1 '顺时钟旋转90°
            End With
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2018/7/15 21:29:00 [显示全部帖子]

老师，我的这个和帮助里面的不同，必须要获取当前行的主键才能加载对应的 r("内容") ，又不是表，不知道如何获取。

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

wb.AppendCookie("tzgg",r("_identify"))
[此贴子已经被作者于2018/7/15 22:12:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2018/7/19 8:02:00 [显示全部帖子]

老师，.Attribute="onclick=""location='/abc.htm?key=" & r("_Identify") & "'"""   在八楼始终显示一条，也就是只传递一行的主键
msgbox(r("_identify")) 弹出的都是 123
在六楼没问题。
[此贴子已经被作者于2018/7/19 8:03:14编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07617 秒, 5 次数据查询