Foxtable(狐表)用户栏目专家坐堂 → 用以下代码来显示列及相应的位置、列宽时,窗口中表列四周会很闪?


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

主题:用以下代码来显示列及相应的位置、列宽时,窗口中表列四周会很闪?

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


加好友 发短信
等级:狐精 帖子:3313 积分:23134 威望:0 精华:1 注册:2009/3/31 11:25:00
用以下代码来显示列及相应的位置、列宽时,窗口中表列四周会很闪?  发帖心情 Post By:2009/11/24 14:47:00 [只看该作者]

With Args(0)   '数据表
    For Each c As Col In Args(0).Cols
       c.Visible = Args(1).Contains(c.name & ",")
    Next
'列宽度及显示位置
Dim i as Integer = 0
Dim ColName as String
Dim Vals As New List(Of String)
Vals.AddRange(Args(1).Split("|"))
For Each Val as String in Vals
    ColName = Val.substring(0,Val.indexof(","))   '取得列名称
    Args(0).Cols(ColName).Move(i)                 '移动位置
    Args(0).Cols(ColName).Width = Val.substring(Val.indexof(",")+1)    '设置宽度
    dim j as integer = Val.substring(Val.indexof(",")+1)
    i = i + 1
Next
End With

请高手指点,如何实现不闪动,也能达到这样设置的效果,谢谢!!

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/11/24 15:13:00 [只看该作者]

StopRedrawResumeRedraw 试一试啊~ 


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


加好友 发短信
等级:狐精 帖子:3313 积分:23134 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2009/11/24 17:01:00 [只看该作者]

试过用StopRedrawResumeRedraw ,但窗口中表的滚动条会跑运。可否滚动条不动?


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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/11/24 17:05:00 [只看该作者]

窗口和表的StopRedraw、ResumeRedraw都用上,不行就直接投降

 回到顶部