投稿日	： 2004/08/24(Tue) 20:56
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: msflexgridのソート処理について

下記を試して見てください。

Option Explicit
Private SortFlag As Boolean

Private Sub Form_Load()
    Dim i As Integer, j As Integer
    With MSFlexGrid1
       .Move 150, 150, 4000, 2600
       .Rows = 10
       .Cols = 4
       .FixedRows = 1
       .FixedCols = 0
        For i = 1 To .Rows - 1
            For j = 0 To .Cols - 1
                .TextMatrix(i, j) = CInt(9 * Rnd + 1)
            Next j
        Next i
    End With
End Sub

Private Sub MSFlexGrid1_Click()
    With MSFlexGrid1
         '最初の列（0 列目）をソート
'        If .Col = 0 And .Row = 1 And .MouseRow = 0 Then
'            SortFlag = Not SortFlag
'            If SortFlag Then
'               .Sort = 3
'            Else
'               .Sort = 4
'            End If
'        End If
        '以下同様に必要な列だけ追加
        
        'ソートの条件が同じなら下記でok
        If .Row = 1 And .MouseRow = 0 Then
            SortFlag = Not SortFlag
            If SortFlag Then
               .Sort = 3
            Else
               .Sort = 4
            End If
        End If
    End With
End Sub

★ - msflexgridのソート処理について - GA-KO 08/24-19:53No.123
• Re: msflexgridのソート処理について - 花ちゃん 08/24-20:56 No.124
  • 解決しました。 - GA-KO 08/25-09:37 No.127