■ フレキシブルグリッドのＴＩＰＳ ■ ■ データーの読み込み表示を高速にする 機能：データーの読み込み表示を高速にする 解説：データーをセルに読み込んで表示した場合、表示に時間が懸かると感じた時は、下記を試して見ると良い。 １．データーを読み込み、表示する前にMSFlexGrid を一旦非表示にする ２．次にデーターをセルにセットし終った時点で再度表示する。 ３．セルへの書き込みは.TextMatrix(i, j) = n を使用する（此方の効果の方が大きい）。 此れは、リストボックスやエクセル上でも同じく有効で有る。 参考：５万セルへの書き込みを、下記のコードで試した結果を下記に記す。 遅い方法 14.04 秒 早い方法 0.35 秒 最大表示件数 2.3 秒（35 万セル） 因みに、MSFlexGrid への最大表示件数はメモリに関係なく総セル数が３５万セル迄で有る（ヘルプの記 載は間違って居る）。 Option Explicit ' システムを立ち上げてからの経過時間を高精度に取得する API Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private MSFGShowFlag As Boolean
Private Sub Command7_Click() Dim i As Long
Dim j As Long Dim n As Long Dim st As Long
Me.MousePointer = vbHourglass 'vbDefault MSFGShowFlag = Not MSFGShowFlag st = timeGetTime ' ダミーのデータを表示 With MSFlexGrid1 .Rows = 6250 .Cols = 8 ' 表示を早くする為に一旦非表示に設定 If MSFGShowFlag = False Then .Visible = False Else .Visible = True ' 表示状態の場合 End If .RowHeight(-1) = 350 ' 固定行は除く
For i = .FixedRows To .Rows - .FixedRows ' 固定列は除く
For j = .FixedCols To .Cols - .FixedCols If MSFGShowFlag = False Then
n = n + 1 .TextMatrix(i, j) = n ' 此方の方が高速 Else .Col = j ' 此方は遅い（此の部分の差の方が大きい） .Row = i n = n + 1 .Text = n End If Next j Next i Me.MousePointer = vbDefault .Visible = True .Refresh End With
Label2.Caption = "読み込み表示に" & (timeGetTime - st) / 1000 & "秒懸かりました" st = Timer Do While Timer - st < 3 DoEvents Loop MSFlexGrid1.Clear Label2.Caption = "" End Sub ■ 行と列のサイズの設定 機能：行と列のサイズを設定する。 解説：行と列の指定に「-１」を使用すると総ての行や列の意味に成る。 MSFlexGrid1.RowHeight(1) = 350 ' １行目の高さを３５０に設定 MSFlexGrid1.RowHeight(-1) = 350 ' 総ての行の高さを３５０に MSFlexGrid1.ColWidth(1) = 550 ' １列目の幅を５５０に設定 MSFlexGrid1.ColWidth(-1) = 550 ' 総ての列の幅を５５０に ■ 表示して居るデーターを消去する 機能：表示して居るデータを消去する。 解説：特定の列や行に異なる初期値（０やヌル等）を設定したい場合は上記の方法（Command1）が便利だが、 全セル同じ初期値を設定するなら下記の方法（Command2）が簡単高速に処理が出来る。 件数が多い場合MSFlexGrid1.Clear で一旦全部消し、固定行と列のタイトル等を再度表示する。 Option Explicit ' セル個別に表示をクリア Private Sub Command1_Click() Dim i As Integer Dim j As Integer ' 表示を早くする為に一旦非表示に設定 With MSFlexGrid1 .Visible = False ' 固定列は除く（列・行を選択して）
' 固定行は除く
For j = .FixedRows To .Rows - .FixedRows .Col = i .Row = j .Text = "" Next j Next i .Visible = True End With End Sub ' 範囲を選択して表示をクリア Private Sub Command2_Click() With MSFlexGrid1
.Visible = False ' 表示を非表示に
.Row = .FixedRows ' 選択範囲の行のスタート位置 .Col = 3 ' .FixedCols ' 選択範囲の列のスタート位置 .RowSel = .Rows - .FixedRows ' 行のエンド位置
.ColSel = .Cols - .FixedCols ' 列のエンド位置 ' 選択されて居る総てのセルに反映される。 .FillStyle = flexFillRepeat .Text = "" .Row = .FixedRows ' 左上のセルに移動 .Col = .FixedCols .Visible = True End With End Sub ■ セルを１行全体に選択反転表示する 機能：セルを１行全体に選択反転表示する（簡単な方法）。 解説：通常下記の設定で固定行・列をクリックすると1 行選択・反転表示される。
Private Sub Command1_Click()
MSFlexGrid1.FocusRect = flexFocusNone MSFlexGrid1.HighLight = flexHighlightAlways End Sub
機能：何のセルをクリックしても１行選択・表示される様にする（其の１）。
Private Sub Command2_Click()
MSFlexGrid1.SelectionMode = flexSelectionByRow ' 参考：列単位の定数＝ flexSelectionByColumn End Sub
機能：何のセルをクリックしても１行選択・表示される様にする（其の２）。
Private Sub Command3_Click()
MSFlexGrid1.FocusRect = flexFocusNone MSFlexGrid1.HighLight = flexHighlightAlways MSFlexGrid1.Col = MSFlexGrid1.FixedCols MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1 End Sub
機能：何のセルをクリックしても１行選択・表示される様にする（其の３）。 Private Sub Grid_Click()
Grid.Col = 0 Grid.ColSel = Grid.Cols - 1 End Sub 機能：何のセルをクリックしても１行選択・表示される様にする（其の４）。 Option Explicit Private i As Integer Private Ro1 As Integer Private Ro2 As Integer Private Frg As Integer
Private Sub MSFlexGrid1_DblClick() ' 今の行の位置を取得 If Ro2 = 0 Then Ro2 = MSFlexGrid1.Row End If If Frg = 1 Then kesu ' 反転解除のルーチンへ ' 今の行の位置に戻る MSFlexGrid1.Row = Ro2 Ro1 = Ro2 ' 今の行の位置を取得 ' 反転表示を設定
For i = MSFlexGrid1.FixedCols To MSFlexGrid1.Cols - 1 MSFlexGrid1.Col = i MSFlexGrid1.CellBackColor = QBColor(1) MSFlexGrid1.CellForeColor = QBColor(15) Next i Frg = 1 End If End Sub
Private Sub MSFlexGrid1_Click() If Frg = 1 Then kesu
End Sub
Private Sub kesu()
If Frg = 0 Then Exit Sub Ro2 = MSFlexGrid1.Row MSFlexGrid1.Row = Ro1 ' 反転表示を元に戻す
For i = MSFlexGrid1.FixedCols To MSFlexGrid1.Cols - 1 MSFlexGrid1.Col = i MSFlexGrid1.CellBackColor = QBColor(15) MSFlexGrid1.CellForeColor = QBColor(0) Next i Frg = 0 End Sub ■ スクロールを制御する 機能：スクロールを制御する。
解説：行のスクロールを制御するにはTopRow の値を変化させる。
列のスクロールを制御するにはLeftCol の値を変化させる。
' カーソル移動キーでのセル移動設定
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) With MSFlexGrid1
Select Case KeyCode Case vbKeyUp
' ↑キーが押されたら行を１行上に移動 If .Row > 1 Then .Row = .Row - 1 ' グリッドの表示行数以下に成った場合 If .Row < 8 Then .TopRow = 1
.SetFocus Case vbKeyDown
' ↓キーが押されたら行を１行下に移動 If .Row < 10 Then .Row = .Row + 1 ' グリッドの表示行数以上に成った場合 If .Row >= 8 Then .TopRow = .TopRow + 1 .SetFocus
Case vbKeyLeft
' ←キーが押されたらセルを１列左に移動 If .Col > 1 Then .Col = .Col - 1
.SetFocus Case vbKeyRight
' →キーが押されたらセルを１列右に移動 If .Col < 5 Then .Col = .Col + 1
.SetFocus End Select End With End Sub ■ セルに色を付ける 機能：選択されたセルを強調表示するか何うかを指定する（下記に例を示す）。 MSFlexGrid1.HighLight = flexHighlightAlways MSFlexGrid1.FocusRect = flexFocusNone 定数 値 意味 flexHighlightNever 0 選択されたセルを強調表示しません。 flexHighlightAlways 1 選択されたセルを常に強調表示する。 flexHighlightWithFocus 2 コントロールがフォーカスを持った時に選択されたセルを強調表示する。 機能：個別にセルに色を付ける。 Private Sub Command1_Click() MSFlexGrid1.Row = 3 MSFlexGrid1.Col = 5
If MSFlexGrid1.CellBackColor <> QBColor(11) Then ' 明るいシアンに設定する MSFlexGrid1.CellBackColor = QBColor(11) MSFlexGrid1.CellForeColor = QBColor(12) Else ' 色を非表示 MSFlexGrid1.CellBackColor = 0 MSFlexGrid1.CellForeColor = QBColor(0) End If MSFlexGrid1.Row = 1 MSFlexGrid1.Col = 1 End Sub 機能：１行飛びに色を付ける。 Private Sub Command2_Click() Dim Co As Integer
Dim Ro As Integer
' １行飛びに色を付ける（再度クリックすると解除される）
For Ro = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows - MSFlexGrid1.FixedRows Step 2 ' １行全体を For Co = MSFlexGrid1.FixedCols To _ MSFlexGrid1.Cols - MSFlexGrid1.FixedCols MSFlexGrid1.Row = Ro MSFlexGrid1.Col = Co If MSFlexGrid1.CellBackColor = 0 Then ' 明るいシアンに設定する MSFlexGrid1.CellBackColor = QBColor(11) Else ' 色を非表示 MSFlexGrid1.CellBackColor = 0 End If Next Co Next Ro End Sub カレントセルの取得設定他行・列管理 （０３９） 行列関係の主なプロパティ Row カレントセルの行を設定・取得（選択範囲の上端行番号） Col カレントセルの列を設定・取得（選択範囲の左端列番号） Rows 総行数を設定・取得（固定行含む） Cols 総列数を設定・取得（固定行含む） FixedRows 固定行の数を設定・取得 FixedCols 固定列の数を設定・取得 TopRow 一番上に表示されて居る行の行番号を設定・取得 LeftCol 一番左に表示されて居る列の列番号を設定・取得 RowSel 選択範囲の開始・終了行を設定・取得（選択範囲の下端行番号） ColSel 選択範囲の開始・終了列を設定・取得（選択範囲の右端列番号）
Private Sub Command1_Click() With MSFlexGrid1
' カレントセルの設定（３行目の５列目に） MsgBox "カレントセルを３行目の５列目に設定する" .Row = 3 .Col = 5 End With End Sub ■ セルに縦書き文字を表示 機能：セルに縦書き文字を表示する。 解説：ポイントはワードラップの設定で有る。 Private Sub Command1_Click()
If MSFlexGrid1.WordWrap = False Then
MSFlexGrid1.WordWrap = True ' 複数行の入力可 MSFlexGrid1.Col = 0 MSFlexGrid1.Row = 1 MSFlexGrid1.ColWidth(0) = 300 MSFlexGrid1.ColWidth(1) = 500 MSFlexGrid1.RowHeight(1) = 800 MSFlexGrid1.RowHeight(2) = 800
MSFlexGrid1.Text = "烏" & vbCrLf & "賊" & vbCrLf & "塾" MSFlexGrid1.Row = 2
MSFlexGrid1.Text = "烏賊塾" MSFlexGrid1.Col = 1
MSFlexGrid1.Row = 1
MSFlexGrid1.Text = "烏" & vbCrLf & "賊" & vbCrLf & "塾" MSFlexGrid1.Row = 2
MSFlexGrid1.Text = "烏賊塾" MSFlexGrid1.Col = 2
MSFlexGrid1.Row = 1
MSFlexGrid1.Text = "烏" & vbCrLf & "賊" & vbCrLf & "塾" MSFlexGrid1.Row = 2 MSFlexGrid1.Text = "烏賊塾" Else MSFlexGrid1.WordWrap = False ' 複数行の入力可 MSFlexGrid1.Clear Dim I As Long ' ループ用カウンタ Form1.Move 0, 0, 11280, 4950 ' MSFlexGrid の初期設定 With MSFlexGrid1 .Move 150, 150, 8170, 3180 .Rows = 10 ' 行の総数（固定行含む） .Cols = 8 ' 列の総数（固定列含む） .FixedRows = 1 ' 固定行の数（Rows より１以上少ない事） .FixedCols = 1 ' 固定列の数（Cols より１以上少ない事） .Row = 0 .ColWidth(0) = 430 ' 列幅
.ColWidth(1) = 550 .ColWidth(2) = 1800 For I = 3 To 7 .ColWidth(I) = 1000 Next I .RowHeight(0) = 350 ' 行の高さ .Col = 1: .Text = "Ｎｏ" ' 該当セルを中寄／中寄 表示 .CellAlignment = flexAlignCenterCenter .Col = 2: .Text = "氏 名" .CellAlignment = flexAlignCenterCenter .Col = 3: .Text = "国 語" .CellAlignment = flexAlignCenterCenter .Col = 4: .Text = "数 学" .CellAlignment = flexAlignCenterCenter .Col = 5: .Text = "英 語" .CellAlignment = flexAlignCenterCenter .Col = 6: .Text = "合 計" .CellAlignment = flexAlignCenterCenter .Col = 7: .Text = "平均点" .CellAlignment = flexAlignCenterCenter .Col = 0 For I = 1 To .Rows - 1 .RowHeight(I) = 350 ' 行の高さ .Row = I .Text = I ' 行番号を表示 Next I .Col = 1: .Row = 1 .FocusRect = flexFocusNone .HighLight = flexHighlightAlways End With With Text1 .BackColor = &H80FFFF ' 動きが解り易い様に .Text = "" .Visible = False End With End If End Sub
■ MSFlexGrid の主要プロパティ ■ 色に関するプロパティ BackColor 総ての非固定型のセルの色を設定す る。 MSFlexGrid1.BackColor = QBColor(14) BackColorBkg グリッドのバックグラウンドの背景 色（セル以外の部分）を設定する。 MSFlexGrid1.BackColorBkg = QBColor(12) BackColorFixed 固定のセルの背景色を設定する。 MSFlexGrid1.BackColorFixed = QBColor(9) BackColorSel カレントセルの背景色を設定する。但
し、FocusRect =flexFocusNone の時 に有効。
MSFlexGrid1.BackColorSel = QBColor(10)
CellBackColor セルの背景色を個別に設定する。 MSFlexGrid1.CellBackColor = QBColor(15) CellBackColor 個々のセル、又は、特定範囲のセルの 背景色を設定・取得する。 MSFlexGrid1.CellBackColor = QBColor(12) CellForeColor 個々のセル、又は、特定範囲のセルの 前景色を設定・取得する。 MSFlexGrid1.CellForeColor = QBColor(12) ForeColor コントロールの非固定セルのテキス トの色を設定・取得する。 MSFlexGrid1.ForeColor = QBColor(12) ForeColorFixed コントロールの固定セルの文字色を 設定・取得する。 MSFlexGrid1.ForeColorFixed = QBColor(12) ForeColorSel コントロールの選択されて居る部分 の文字色を設定・取得する。 MSFlexGrid1.ForeColorSel = QBColor(12) GridColor コントロールの非固定セルのグリッ ド線の色を設定・取得する。 MSFlexGrid1.GridColor = QBColor(12) GridColorFixed コントロールの固定セルのグリッド 線（右と下側の外枠）の色を設定・取 得する。 MSFlexGrid1.GridColorFixed = QBColor(12) 行・列に関するプロパティ AllowBigSelection 列見出し、又は、行見出しをクリック すると、其の列、又は、行全体が選択 される様にするか何うかを設定する。 値の取得も可能で有る。 MSFlexGrid1.AllowBigSelection =True AllowBigSelection 列見出し、又は、行見出しをクリック すると、其の列、又は、行全体が選択 される様にするか何うかを設定する。 MSFlexGrid1.AllowBigSelection =True AllowUserResizing ユーザーがマウスを使用して、行、及 び、列のサイズを変更出来るか何うか を決定する値を設定する。値の取得も 可能で有る。 MSFlexGrid1.AllowUserResizing =True AllowUserResizing 行、及び、列のサイズを変更出来るか 何うかを決定する値を設定する。 MSFlexGrid1.AllowUserResizing = flexResizeColumns Col アクティブセル（列）の座標を設定・ 取得する。 MSFlexGrid1.Col = 3 CurrentCol=MSFlexGrid1.Col ColData 列を識別するユーザ定義番号を設 定・取得する。 ヘルプ参照 Cols コントロール内の列の総数を設定・取 得する。 MSFlexGrid1.Cols = 5 MyCols = MSFlexGrid1.Cols
ColSel セルの範囲の先頭列と最終列を設定 する。値の取得も可能で有る。 MyColSel = MSFlexGrid1.ColSel MouseCol 現在のマウスポインタの位置の列番 号を返す（ヘルプの解説は要注意：設 定は出来ない）。 myMouseCol = MSFlexGrid1.MouseCol MouseRow 現在のマウスポインタの位置の行番 号を返す。 myMouseRow = MSFlexGrid1.MouseRow Row アクティブセル（行）の座標を設定・ 取得する。 MSFlexGrid1.Row = 3 CurrentRow=MSFlexGrid1.Row RowData 行を識別するユーザ定義番号を設 定・取得する。 ヘルプ参照 Rows コントロール内の行の総数を設定・取 得する。 MSFlexGrid1.Rows = 8 MyRows = MSFlexGrid1.Rows RowSel セルの範囲の先頭行と最終行を設定 する。値の取得も可能で有る。 MSFlexGrid1.RowSel = 2 MSFlexGrid1.ColSel = 4 SelectionMode 行単位、又は、列単位の範囲指定を可 能にするか何うか指定する値を設定 する。 MSFlexGrid1.SelectionMode = flexSelectionByRow 体裁（外観）関するプロパテイ Appearance 実行時にコントロールが立体的に表 示されるか何うかを設定する。 MSFlexGrid1.Appearance = flex3D ScrollTrack コントロールが内容をスクロールす るか何うかを決定する値を設定する。 MSFlexGrid1.ScrollTrack = True 体裁（行・列）関するプロパテイ CellAlignment カレントセル内でのデータの水平配 置、及び、垂直配置を決定する値を設 定・取得する。 MSFlexGrid1.CellAlignment = flexAlignRightBottom CellPicture カレントセル又はセルの範囲に表示 されるイメージを設定・取得する。 Set MSFlexGrid1.CellPicture = LoadPicture("c:¥Face.ico") ColWidth() 指定のバンド内の列の幅をtwip 単位 で設定・取得する。 MSFlexGrid1.ColWidth(1) = 1500 FixedCols コントロール内の固定型の列の総数 を設定・取得する。 MSFlexGrid1.FixedCols = 2 FixedRows コントロール内の固定型の行の総数 を設定・取得する。 MSFlexGrid1.FixedRows = 2 MergeCells 複数の行、又は、列の範囲で、同じ内 容のセルを単一のセルにグループ化 するか何うかを指定する値を設定・取 得する。 MSFlexGrid1.MergeCells = flexMergeFree MergeCol 内容をマージ出来る列を指定する値 を設定する。 MSFlexGrid1.MergeCol(3) = True MSFlexGrid1.MergeCells = flexMergeFree MergeRow 内容をマージ出来る行を指定する値 を設定する。 MSFlexGrid1.MergeRow(3) = True MSFlexGrid1.MergeCells = flexMergeFree RowHeight 指定された行の高さをtwip 単位で設 定・取得する。 MSFlexGrid1.RowHeight(2) = 350 RowHeightMin コントロール全体で最も低い行の高 さをtwip 単位で設定・取得する。 MSFlexGrid1.RowHeightMin = 400
体裁（図形・線等）関するプロパテイ CellPictureAlignment カレントセル、又は、選択されたセル の範囲内のピクチャの配置を設定・取 得する。 MSFlexGrid1.CellPictureAlignment = flexAlignCenterCenter FocusRect コントロールがカレントセルにフォ ーカスを示す四角形を描くか何うか を指定する値を設定・取得する。 MSFlexGrid1.FocusRect = flexFocusNone MSFlexGrid1.HighLight = flexHighlightAlways HighLight コントロール内で選択されたセルを 強調表示するか何うかを指定する値 を設定する。 MSFlexGrid1.HighLight = flexHighlightNever GridLines 非固定セルのグリッド線のスタイル を設定・取得する。 MSFlexGrid1.GridLines = flexGridNone GridLinesFixed 固定セルのグリッド線のスタイルを 設定・取得する。 MSFlexGrid1.GridLinesFixed = flexGridNone GridLineWidth 非固定セルのグリッド線の幅をピク セル単位で設定・取得する。 MSFlexGrid1.GridLineWidth = 3 体裁（テキスト）関するプロパテイ ColAlignment 列内のデータの配置を設定・取得す る。 MSFlexGrid1.ColAlignment(3) = flexAlignCenterCenter FixedAlignment 固定列テキストに表示するデータの 配置を設定・取得する。 MSFlexGrid1.FixedAlignment(3) = flexAlignCenterCenter TextStyle 非固定セルのテキストの3D 表示を設 定・取得する。 MSFlexGrid1.TextStyle = flexTextRaised TextStyleFixed 固定セルのテキストの3D 表示を設 定・取得する。 MSFlexGrid1.TextStyleFixed = flexTextRaised WordWrap テキストのワードラップ（折り返し機 能）を設定・取得する。 MSFlexGrid1.WordWrap = True 体裁（フォント）関するプロパテイ CellFontBold カレントセルのフォントを太字に設 定・取得する。 MSFlexGrid1.CellFontBold = True CellFontItalic カレントセルのフォントを斜体に設 定・取得する。 MSFlexGrid1.CellFontItalic = True CellFontName カレントセルのテキストを特定のフ ォントに設定する。 MSFlexGrid1.CellFontName = "ＭＳ 明朝" CellFontSize カレントセルのフォントサイズをポ イント単位で設定・取得する。 MSFlexGrid1.CellFontSize = 12 CellFontStrikeThrough カレントセルのフォントに取り消し 線のスタイルを設定・取得する。 MSFlexGrid1.CellFontStrikeThrough = True CellFontUnderline カレントセルのフォントにアンダー ラインを設定・取得する。 MSFlexGrid1.CellFontUnderline = True CellFontWidth カレントセルのテキストの幅をポイ ント単位で設定・取得する。 MSFlexGrid1.CellFontWidth = 18 CellTextStyle 特定のセル又はセルの範囲に有るテ キストに立体表示のテキストを設 定・取得する。 MSFlexGrid1.CellTextStyle = flexTextInset Font 既定のフォント、又は、個々のセルの フォントを設定・取得する。 MSFlexGrid1.Font = "ＭＳ 明朝"
FontWidth 表示されるテキストのフォントの幅 をポイント単位で設定・取得する。
MSFlexGrid1.FontWidth = 7
編集に関するプロパテイ
CellLeft カレントセルの左端の位置を返す。 myCellLeft = MSFlexGrid1.CellLeft CellTop カレントセルの上端の位置を返す。 myCellTop = MSFlexGrid1.CellTop CellWidth カレントセルの幅を返す。 myCellWidth = MSFlexGrid1.CellWidth CellHeight カレントセルの高さを返す。 myCellHeight = MSFlexGrid1.CellHeight Clip 選択された領域内のセルの値を設
定・取得する。
myStr = "Osamu" + Chr(9) + "Uno" MSFlexGrid1.Clip = myStr ColIsVisible 指定された列が現在表示されて居る か何うかを示す値を返す。 myColIsVisible = MSFlexGrid1.ColIsVisible(2) ColPos コントロールの左上隅から指定され た列の左上隅迄の距離を示す値を twip 単位で返す。 myColPos = MSFlexGrid1.ColPos(2) ColPosition() 列の位置を設定する。列を特定の位置 に移動出来る。 MSFlexGrid1.ColPosition(3) = 5 FillStyle コントロールのセルの書式設定をす るプロパティの1 つが変更された時、 其の変更を選択された総てのセルに 適用するか何うかを指定する値を設 定する。値の取得も可能で有る。 MSFlexGrid1.FillStyle = flexFillRepeat FormatString 列の幅、配置、固定型の行のテキスト、 及び固定型の列のテキストを設定す る。 s$ = "|氏名|住所|電話番号|保険証番号" s$ = s$ + ";|佐藤|田中|山田|鈴木" MSHFlexGrid.FormatString = s$ LeftCol コントロールの左端に表示する非固 定型の列を設定・取得する（列をスク ロールする時に一番左端に表示した い列番号）。 MSFlexGrid1.LeftCol = 5 ’スクロール時の先頭列 Picture Picture コントロール等へグリッドの スナップショットを送る。 Picture1.Picture = MSFlexGrid1.Picture Redraw コントロールで変更が行われた後、自 動的に再描画するか何うかを指定す る値を設定する。 MSFlexGrid1.Redraw = True RowIsVisible 指定の行が現在画面に表示されて居 るか何うかを返す。 myRowIsVisible = MSFlexGrid1.RowIsVisible(3) RowPos コントロールの左上隅から指定の行 の左上隅迄の距離をtwip単位で返す。 myRowPos = MSFlexGrid1.RowPos(5) RowPosition 行の位置を設定する。行を特定の位置 に移動出来る。 MSFlexGrid1.RowPosition(3) = 5 Sort 選択された基準に従って選択行を並 べ替える値を設定する。 MSFlexGrid1.Col = "[ソート対象列]" MSFlexGrid1.Sort = flexSortGenericAscending Text セルのテキスト内容を設定・取得する MSFlexGrid1.Text = "あいう" TextArray 関数を定義する事に依り、cellindex の計算方法を示す。 MSFlexGrid1.TextArray(faIndex(i, 1)) = "詳 しくはヘルプ参照" TextMatrix 任意のセルのテキストを設定する。値 の取得も可能で有る。 MSFlexGrid1.TextMatrix(5, 4) = "1234"
TopRow コントロールの先頭に表示される非 固定型の行を設定・取得する（行をス クロールする時に一番上に表示した い行番号）。 MSFlexGrid1.TopRow = 7 ’スクロール時の先頭行 其の他のプロパテイ DataSource 連結するデータソースを設定・取得す る。
Set Text1.DataSource = ADODC1 PictureType Picture プロパティに依り生成され るピクチャの種類（カラーか白黒か を）を設定する。 MSFlexGrid1.PictureType = flexPictureColor Version MSHFlexGrid コントロールのバージ ョン番号を返す。 Debug.Print MSFlexGrid1.Version
