标题：用以下代码来显示列及相应的位置、列宽时，窗口中表列四周会很闪？

1楼

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

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

2楼

mr725 发表于：2009/11/24 15:13:00

用 StopRedraw 和 ResumeRedraw 试一试啊～

3楼

baoxyang 发表于：2009/11/24 17:01:00

试过用StopRedraw 和 ResumeRedraw ，但窗口中表的滚动条会跑运。可否滚动条不动？

4楼

狐狸爸爸 发表于：2009/11/24 17:05:00

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

共4 条记录, 每页显示 10 条, 页签: [1]