Foxtable(狐表)用户栏目专家坐堂 → drawcell实现逻下拉表图片显示


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

主题:drawcell实现逻下拉表图片显示

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


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
drawcell实现逻下拉表图片显示  发帖心情 Post By:2019/3/28 15:07:00 [只看该作者]

有一列A,列A有自定义内容为:“专” 和  “普”

如何用drawcell实现双击该单元格显示“专”所对应的图片,再双击显示”普“所对应的图片?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/28 15:45:00 [只看该作者]

编写你doubleclick事件,动态修改此单元格的值,如

 

If e.Col.name = "第一列" Then
    If e.Row(e.Col.name) = "专" Then
        e.Row(e.Col.name) = "普"
    Else
        e.Row(e.Col.name) = "专"
    End If
    e.cancel = True
End If

 

在drawcell事件,根据单元格的值,显示对应字符或者图片


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


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2019/3/28 16:09:00 [只看该作者]

明白了,谢谢
1、那个列有自定义内容就会显示下拉菜单,如何不其显示下拉菜单的那个箭头?只能双击
2、drawcell根据单元格显示图片的语句麻烦您给举个简单的例子。


 回到顶部
帅哥哟,离线,有人找我吗?
南望
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2019/3/28 16:12:00 [只看该作者]

补充,图片是显示在该单元格内的,其效果就是代替了该 列的文字内容。双击只是两个图片来回的切换,不存在文字,不存 在下拉列表的箭头

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


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2019/3/28 16:27:00 [只看该作者]

类似这样的效果,单元格内双击,两个图片互相转换

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/28 16:38:00 [只看该作者]

以下是引用南望在2019/3/28 16:09:00的发言:
明白了,谢谢
1、那个列有自定义内容就会显示下拉菜单,如何不其显示下拉菜单的那个箭头?只能双击
2、drawcell根据单元格显示图片的语句麻烦您给举个简单的例子。

 

1、不可以;

 

2、参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=132598&skin=0

 

http://www.foxtable.com/webhelp/scr/2387.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
南望
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2019/3/28 16:52:00 [只看该作者]

谢谢老师,我做了一个范例,其他功能都正常,就是文字在图片的下方,如何删除文字只保留图片。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.rar



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/28 16:57:00 [只看该作者]

If e.Col.name= "第三列" Then
    e.StartDraw
    e.text = ""
    If e.Row(e.Col.name) = "专" Then '如果鼠标不在此单元格
        e.Graphics.DrawImage(delimg1, e.x + 3,e.y + 3) '绘制第一个图标
    Else '如果鼠标在此单元格
        e.Graphics.DrawImage(delimg2, e.x + 2,e.y + 2) '绘制第二个图标
    End If
    e.EndDraw
End If

 回到顶部
帅哥哟,离线,有人找我吗?
南望
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2019/3/28 17:10:00 [只看该作者]

功能实现,非常感谢老师。

 回到顶部