Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9542 / 9994

←次へ　｜　前へ→


	【3590】Re:MSFlexGridについて

Chou - 04/9/27(月) 23:24 -


	引用なし

	パスワード

▼ガッツさん：
>やはりこの質問は、レスが付きにくいですね；；
>というか、自分の質問がそっけなさすぎたのですかね？スミマセン。
>
>それで、自分で少し調べた結果を書きますと、
>
>Form_Loadの所に以下の様に書きました。
>
>
>Dim lngCountI As Long　　　　　 'ループ用カウンタ
>
>　　'MSFlexGrid の初期設定
>　　With flxGrid
>　　　　.Rows = 10　　　　　　　　　'行の総数（固定行含む）
>　　　　.Cols = 8　　　　　　　　　 '列の総数（固定列含む）
>　　　　.FixedRows = 1　　　　　　　'固定行の数 Rowsより１以上少ない事
>　　　　.FixedCols = 1　　　　　　　'固定列の数 Colsより１以上少ない事
>　　　　.Row = 0
>　　　　.ColWidth(0) = 500　　　　 '列幅
>　　　　.ColWidth(1) = 550
>　　　　.ColWidth(2) = 1800
>　　　　For lngCountI = 3 To 7
>　　　　　　.ColWidth(lngCountI) = 1000
>　　　　Next lngCountI
>　　　　.RowHeight(0) = 350　　　　 '行の高さ
>　　　　.CellAlignment = flexAlignCenterCenter
>　　　　.Col = 1: .Text = "列名0"
>　　　　'該当セルを　中寄／中寄　表示
>　　　　.CellAlignment = flexAlignCenterCenter
>　　　　.Col = 2: .Text = "列名1"
>　　　　.CellAlignment = flexAlignCenterCenter
>　　　　.Col = 3: .Text = "列名2"
>　　　　.CellAlignment = flexAlignCenterCenter
>　　　　.Col = 4: .Text = "列名3"
>　　　　.CellAlignment = flexAlignCenterCenter
>　　　　.Col = 5: .Text = "列名4"
>　　　　.CellAlignment = flexAlignCenterCenter
>　　　　.Col = 6: .Text = "列名5"
>　　　　.CellAlignment = flexAlignCenterCenter
>　　　　.Col = 7: .Text = "列名6"
>　　　　.CellAlignment = flexAlignCenterCenter
>　　　　.Col = 0
>　　　　For lngCountI = 1 To .Rows - 1
>　　　　　　.RowHeight(lngCountI) = 350　　 '行の高さ
>　　　　　　.Row = lngCountI
>　　　　　　.Text = lngCountI　　　　　　　 '行番号を表示
>　　　　Next lngCountI
>　　　　.Col = 1: .Row = 1
>　　　　'カレントセルを反転表示（強調表示すればカレントセルが解りやすい）
>　　　　.FocusRect = flexFocusNone
>　　　　.HighLight = flexHighlightAlways
>　 End With
>
>
>こういう風に、全て直打ちでMSFlexGridに書いているのですが、
>テーブルの内容や、クエリの内容を表示させる事を知っている方
>もしくは、できないんじゃないなど、知っている方
>よろしければ、お願いします。

間違ってたらゴメンナサイ。
FixedRows, FixedColsにTextを表示させている様に
（例えば列名１～６）、Table又はQueryを基に
Recordsetを開いてRecordsetのFieldを使えば
内容は表示されるはずです。
例えば：
MSFlexGrid1.Row = 1
MSFlexGrid1.Col = 1
MsFlexGrid1.Text = RecordsetName!Field

Loop等が使えます。

728 hits

▼

【3578】MSFlexGridについて ガッツ 04/9/24(金) 19:36