我的MSFlexGrid怎么能够让它选中一行的时候反亮显示?我用代码控制每格改变颜色,但是行多了就太慢了,有没有什么属性可以设置的?

解决方案 »

  1.   

    我的MSFlexGrid没有固定行,所以选中一行时不可以自动反亮显示
      

  2.   

    试试这段程序(MSFG为控件)
    Public Sub MSFG_MouseUp(.....)
    Dim x1,y1,x2,y2
    with msfg
    x1=.col:y1=.row:x2=.colsel:y2=.rowsel
    if x1>x2 then swap x1,x2
    if y1>y2 then swap y1,y2
    .visible=false
    for i = x1 to x2
        .col=i    
        For j= y1 to y2
        .row=j
        .cellbackcolor=rgb()
        next
    next  
    .visible=true
    end with
    end sub
    一句话,就是先使其不可见,刷新内存后再使其可见。