投稿日	： 2005/10/21(Fri) 14:40
投稿者	： フック
Ｅメール	：
ＵＲＬ	：
タイトル	： MSFlexgridの表示方法

MSFlexgridの表示方法についてなのですが
期待動作の仕組みを説明します。

現在MSFlexgridにチェックボックスが貼り付けられています。
顧客管理のシステムなのですが、チェックボックスを貼り付け使っています。
削除などの項目を指定するためです。
ソートも使うため、ソート用のカラムを増やし、1か0でフラグを立てON OFFを判定しています。

困っている内容は
チェックボックスをONしたときに、一行に色を付けたいのですが期待通りの動作ができません。

Private Sub Check1_Click(Index As Integer)
    With MSFlexgrid1
    ' 16カラム目へフラグを立てる
        .TextMatrix(.TopRow + Index - 1, 16) = Check1(Index).value
       　
　　　　 ' glbUserIdCount はデータベースのレコードカウントです。
     For i = 0 To glbUserIdCount　
            
    　　' ここから色を付ける処理
    　　If .TextMatrix(i, 16) = "1" Then
            ' カーソルを移動して１セルづつ色を付けていく。
　　　　　　　　　　' 動作的、見た目は一応これでOKなのですが、しかし、あまりにも遅く実用は
無理です。
                    .RowSel = i
                    .ColSel = 15
                    For j = 0 To 15
                        .Row = i: .Col = j:
                        .CellBackColor = vbRed
                    Next
            Else
                    .RowSel = i
                    .ColSel = 15
                    For j = 0 To 15
                        .Row = i: .Col = j:
                        .CellBackColor = vbWhite
                    Next
            End If
　　   Next
    End With
End Sub

ここのHPの MSFlexGridの主要プロパティ一覧表 を参照し色々な組み合わせてを試しているのです
が、やはり期待通りの動作ができません。
どのようにすれば、高速で同じ動作が実現できるのでしょうか？
どうか、よろしくお願いします。

★ - MSFlexgridの表示方法 - フック 10/21-14:40No.4713
• Re: MSFlexgridの表示方法 - フック 10/21-15:05 No.4714
  • Re: MSFlexgridの表示方法 - 水無月 10/22-13:37 No.4720
    • Re^2: MSFlexgridの表示方法 - フック 10/24-11:43 No.4730