Foxtable(狐表) → 用户栏目 → 专家坐堂 → 利用逻辑列的值来判断显示图


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

主题：利用逻辑列的值来判断显示图
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		利用逻辑列的值来判断显示图  发帖心情 Post By：2014/3/3 16:59:00 [显示全部帖子]

DataTables("收发文基础信息").AddUserStyle("a", Color.LightSteelBlue, Color.Black)
Dim pc3 As WinForm.PictureBox = Forms("系统主窗体").Controls("PictureBox3")
Dim pc2 As WinForm.PictureBox = Forms("系统主窗体").Controls("PictureBox2")
If e.Row("是否处理") = True Then
    e.Style = "a"
    pc3.Image = getimage (projectpath & "images\已处理.jpg")
    pc2.Image = getimage (projectpath & "images\已处理.jpg")
End If

If e.Row("是否处理") = False Then
    pc3.Image = getimage (projectpath & "images\未处理.jpg")
    pc2.Image = getimage (projectpath & "images\未处理.jpg")
End If
 
这个代码有没有更加优化一点的 便于提高效率，要求不是点单元格后就绘制，而是要求点击某行之后再进行绘制，比如双击某行！
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		怎么写这个判断呢？判断选定行是否大于0  发帖心情 Post By：2014/3/3 17:08:00 [显示全部帖子]

怎么写这个判断呢？判断选定行是否大于0或者不为空

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


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		是放在那个事件中呢？  发帖心情 Post By：2014/3/3 17:46:00 [显示全部帖子]

是放在那个事件中呢？drawcell么？

之前的代码是鼠标移动到单元格就会发生绘图 ，我现在就想鼠标选定了某行后双击再进行绘图，是不是应该放在鼠标双击事件中呢？
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		是否处理 已经是逻辑列咯 BIN  发帖心情 Post By：2014/3/3 17:48:00 [显示全部帖子]

是否处理 已经是逻辑列咯 BIN

代码也是放在drawcell中的
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		但是还是不能实现我双击或者单击某行而进行显示图  发帖心情 Post By：2014/3/3 17:53:00 [显示全部帖子]

但是还是不能实现我双击或者单击某行而进行显示图

还是会出现我鼠标移动就会绘图 导致图显示不准确
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		采用这个代码已经实现！不知道还有其他什么方法可以更好实现吗？  发帖心情 Post By：2014/3/4 0:13:00 [显示全部帖子]


If Forms("系统主窗体").Opened Then
    If e.Row("是否处理") Then
        Forms("系统主窗体").Controls("PictureBox2").Image = GetImage("已处理.jpg")
        Forms("系统主窗体").Controls("PictureBox3").Image = GetImage("已处理.jpg")
     
    Else
        Forms("系统主窗体").Controls("PictureBox3").Image = GetImage("")
        Forms("系统主窗体").Controls("PictureBox2").Image = GetImage("")
        
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询