[リストへもどる]
一括表示
投稿時間：2003/07/25(Fri) 11:12
投稿者名：Blues
Ｅメール：
ＵＲＬ　：
タイトル：MSHFlexGrid セルの中央表示
おはようございます。いつも勉強させてもらっています。
MSHFlexGridについてですが、プログラムで指定するセルを表の中央に表示
させたいのですが、どのような指定をしたらよろしいのでしょうか？

以下のとおり、組んでみましたがNGでした。

Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    
    With MSHFlexGrid1
        .Rows = 100
        .Cols = 100
        .FixedRows = 1
        .FixedCols = 1
        For i = 0 To 99
            .TextMatrix(0, i) = i  '固定列作成
            .TextMatrix(i, 0) = i  '固定行作成
        Next i
        For i = 1 To 99
            For j = 1 To 99
                .TextMatrix(i, j) = i * j  'セル情報作成
            Next j
        Next i
        .Row = 50   '50行目を表示させたい
        .Col = 50   '50列目を表示させたい
    End With
End Sub

どなたかご存知の方、教えてください。よろしくお願いいたします。

投稿時間：2003/07/25(Fri) 12:55
投稿者名：LESIA
Ｅメール：
ＵＲＬ　：
タイトル：Re: MSHFlexGrid セルの中央表示
TopRowプロパティとLeftColプロパティを使います。

With MSHFlexGrid1
    .TopRow = .Row - (表示されている行数 / 2)
    .LeftCol = .Col - (表示されている列数 / 2)
End With

投稿時間：2003/07/25(Fri) 13:03
投稿者名：Blues
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: MSHFlexGrid セルの中央表示(解決)
LESIAさま。ありがとうございました。
解決できました。

> TopRowプロパティとLeftColプロパティを使います。
>
> With MSHFlexGrid1
>     .TopRow = .Row - (表示されている行数 / 2)
>     .LeftCol = .Col - (表示されている列数 / 2)
> End With