Foxtable(狐表)用户栏目专家坐堂 → 求助:单元格图片放大


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

主题:求助:单元格图片放大

帅哥哟,离线,有人找我吗?
BG小白
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
求助:单元格图片放大  发帖心情 Post By:2020/6/6 10:34:00 [只看该作者]

StartEdit

Dim frm = Forms("大图")

If frm.opened Then

    frm.baseform.left = -1000

    frm.baseform.Top = -1000

End If

DrawCell

If e.Col.Name = "tp" Then

    If e.Row.IsNull("url") = False Then

        e.StartDraw

    If e.Row("tp") > "" Then

        e.Graphics.DrawImage(getimage(projectPath & "attachments\" & e.Row("tp")), e.x + 3,e.y + 3, 50, 50) '绘制第一个图标

    End If

        If FileSys.FileExists(ProjectPath & e.Row("_Identify") & ".jpg") = False Then

            Network.DownloadFile(e.Row("url"), ProjectPath  & e.Row("_Identify") & ".jpg", "", "", False, 6000, True)

        End If

        Dim img As Image = GetImage(ProjectPath  & e.Row("_Identify") & ".jpg")

        e.Graphics.DrawImage(img, e.x + 3,e.y + 3, 100, 85)

        e.text = ""

        e.EndDraw

    End If

End If

MouseEnterCell

Dim frm = Forms("大图")

If frm.opened = False Then

    frm.open

End If

If e.Col.name = "tp" AndAlso e.Row("tp") > "" Then

    frm.baseform.left = System.Windows.Forms.Cursor.Current.Position.X + 5

    frm.baseform.Top = System.Windows.Forms.Cursor.Current.Position.Y + 5

    e.Table.Focus

    frm.controls("picturebox1").image = GetImage(ProjectPath  & e.Row("_Identify") & ".jpg")

Else

    frm.baseform.left = -1000

    frm.baseform.Top = -1000

End If

MouseLeaveCell

Dim frm = Forms("大图")

If e.Col.name <> "tp" AndAlso frm.opened Then

    frm.baseform.left = -1000

    frm.baseform.Top = -1000 

End If


还是不管用,无法显示大图

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

[此贴子已经被作者于2020/6/6 10:51:35编辑过]

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


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

因为DrawCell事件执行非常频繁,所以代码必须简洁,不可以有太耗时的复杂代码,也不能有显示对话框的代码,否则会出现死循环,切记切记。

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


 回到顶部
帅哥哟,离线,有人找我吗?
BG小白
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2020/6/6 11:29:00 [只看该作者]

不对啊,蓝大大,你的代码我写上去后就显示不了图片了,我的图片是网络图片

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


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

不支持网络图片,必须下载到本机。并且不能在drawcell里 下载,原因看2楼。

 回到顶部
帅哥哟,离线,有人找我吗?
BG小白
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2020/6/6 12:05:00 [只看该作者]

我的代码也在下载的,只是按照你的改图片都没有了

 回到顶部
帅哥哟,离线,有人找我吗?
BG小白
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:603 积分:4102 威望:0 精华:0 注册:2019/11/14 23:06:00
  发帖心情 Post By:2020/6/6 12:06:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=39419&skin=0
我是参考这个写的,显示图片没有问题,就是再加放大图片代码后没有效果

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


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/6 13:59:00 [只看该作者]

请上传有问题的实例测试。注意文件管理器控件必须绑定列使用

 回到顶部