Access VBA質問箱 IV

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

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


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

9552 / 9994

←次へ　｜　前へ→


	【3580】Re:MSFlexGridについて

ガッツ - 04/9/27(月) 10:54 -


	引用なし

	パスワード

やはりこの質問は、レスが付きにくいですね；；
というか、自分の質問がそっけなさすぎたのですかね？スミマセン。

それで、自分で少し調べた結果を書きますと、

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に書いているのですが、
テーブルの内容や、クエリの内容を表示させる事を知っている方
もしくは、できないんじゃないなど、知っている方
よろしければ、お願いします。

623 hits

▼

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