Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图片缩略图填充


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

主题：图片缩略图填充
帅哥哟，离线，有人找我吗？
fendouww
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		图片缩略图填充  发帖心情 Post By：2019/9/18 14:21:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table

怎样在单元格内填充缩略图,放上是原图显示,现在原图填充实在是太卡了,最好的电脑也卡得不能动,求帮助,实例已上传,请老师在实例改好发我可以吗?
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
fendouww
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		  发帖心情 Post By：2019/9/18 14:46:00 [显示全部帖子]

报错了图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
fendouww
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		  发帖心情 Post By：2019/9/18 15:05:00 [显示全部帖子]

Dim file As String = e.DataCol.DefaultFolder & "\" & e.FileName
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))
bmp.save(e.DataCol.DefaultFolder & "缩略图_" & "\" & e.FileName ,img.RawFormat)
bmp.Dispose
还是不行呢
 回到顶部
帅哥哟，离线，有人找我吗？
fendouww
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		  发帖心情 Post By：2019/9/18 23:59:00 [显示全部帖子]

还是这个问题,老师
图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
fendouww
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		  发帖心情 Post By：2019/9/19 9:00:00 [显示全部帖子]

老师,那个小实例可以用了,但我换个项目又出错了
图片点击可在新窗口打开查看此主题相关图片如下：4.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
fendouww
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		  发帖心情 Post By：2019/9/19 10:28:00 [显示全部帖子]

Dim file As String = e.DataCol.DefaultFolder & dr("季节归属") & "\" & dr("品类") & "\" & dr("款号") & "\" & dr("色称") & "\" & e.FileName
msgbox(file) 
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))
bmp.save(e.DataCol.DefaultFolder & dr("季节归属") & "\" & dr("品类") & "\" & dr("款号") & "\" & dr("色称") & "\" & "缩略图_" & e.FileName,img.RawFormat)
bmp.Dispose

已调整,但还是报错
 回到顶部
帅哥哟，离线，有人找我吗？
fendouww
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		  发帖心情 Post By：2019/9/22 0:48:00 [显示全部帖子]


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

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
目录是对的,我已经换了方法,先改名,但还是不行,报错了
Dim dr As DataRow = e.DataRow
If e.DataCol.name = "图片" Then
    If dr.IsNull("长款号")  Then
        MessageBox.Show("请先输入长款号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
    Else
        e.FileName = dr("长款号") & ".jpg"
        Dim file As String = e.DataCol.DefaultFolder & "\" & e.FileName
        Dim img As image = getImage(file)
        Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))
        msgbox(file)
        bmp.save(e.DataCol.DefaultFolder & "缩略图_" & e.FileName,img.RawFormat)
msgbox(file)
        bmp.Dispose
    End If
End If

图片点击可在新窗口打开查看此主题相关图片如下：123.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
fendouww
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		  发帖心情 Post By：2019/9/23 10:41:00 [显示全部帖子]

我仔细检查了,路径没有问题,是在执行生成缩略图代码之前,没复制原图到Attachments文件夹,所以无法生成,这算是BUG吗?局域网共享才会出现这个问题,本地文件夹是好的,在缩略图代码执行前就已经复制原图了

 回到顶部
帅哥哟，离线，有人找我吗？
fendouww
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00 		  发帖心情 Post By：2019/9/23 10:43:00 [显示全部帖子]

然后我也想了在文件上传完之后再执行生成缩略图代码,但没有这个事件了,老师有办法吗?或者时延执行代码呢?

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询