以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  用以下代码来显示列及相应的位置、列宽时，窗口中表列四周会很闪？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=5118)
--  作者：baoxyang
--  发布时间：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
--  发布时间：2009/11/24 15:13:00
--  

用 StopRedraw 和 ResumeRedraw 试一试啊～ 

--  作者：baoxyang
--  发布时间：2009/11/24 17:01:00
--  

试过用StopRedraw 和 ResumeRedraw ，但窗口中表的滚动条会跑运。可否滚动条不动？
--  作者：狐狸爸爸
--  发布时间：2009/11/24 17:05:00
--  
窗口和表的StopRedraw、ResumeRedraw都用上，不行就直接投降