Foxtable(狐表)用户栏目专家坐堂 → 图片管理


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

主题:图片管理

帅哥,在线噢!
江南小镇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1295 积分:8388 威望:0 精华:0 注册:2015/6/22 8:11:00
图片管理  发帖心情 Post By:2020/5/20 11:16:00 [只看该作者]

老师好,下面的错误请求老师帮忙了。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt



图片点击可在新窗口打开查看此主题相关图片如下:image 1.png
图片点击可在新窗口打开查看



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:50546 积分:256214 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/20 11:34:00 [只看该作者]

把图片浏览器控件改为图片框控件:http://www.foxtable.com/webhelp/topics/0812.htm

 回到顶部
帅哥,在线噢!
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1295 积分:8388 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/5/20 12:00:00 [只看该作者]

老师,改代码可以吗?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:50546 积分:256214 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/20 12:11:00 [只看该作者]

图片浏览器控件必须绑定列使用,如果要往这个控件添加图片,参考:http://www.foxtable.com/webhelp/topics/2699.htm

 回到顶部
帅哥,在线噢!
江南小镇
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1295 积分:8388 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/5/20 13:11:00 [只看该作者]

老师,我想把复制的图片摆在ttachments\下面指定的文件夹里。

Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = ProjectPath & "Attachments\"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then '如果文件来自Attachments目录
        piv.AddFile(dlg.FileName.SubString(pth.Length))
    Else '如果不是
        FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName))
        piv.AddFile(FileSys.GetName(dlg.FileName))
    End If
End If

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:50546 积分:256214 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/20 14:27:00 [只看该作者]

Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = ProjectPath & "Attachments\"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then '如果文件来自Attachments目录
        piv.AddFile(dlg.FileName.SubString(pth.Length))
    Else '如果不是
        FileSys.CopyFile(dlg.FileName, pth & "某文件夹\" & FileSys.GetName(dlg.FileName))
        piv.AddFile("某文件夹\" & FileSys.GetName(dlg.FileName))
    End If
End If

 回到顶部
帅哥,在线噢!
江南小镇
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1295 积分:8388 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/5/20 15:22:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:image 2.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:50546 积分:256214 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/20 15:26:00 [只看该作者]

把行拉高即可

 回到顶部
帅哥,在线噢!
江南小镇
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1295 积分:8388 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/5/20 16:02:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:image 4.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:50546 积分:256214 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/20 16:25:00 [只看该作者]

没有办法

 回到顶部
总数 47 1 2 3 4 5 下一页