サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/09/13 05:36
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[グリッド関係][][] *
* キーワード：フレックスグリッド,MSHFlexGrid,罫線,網線,クロス, *
***********************************************************************************
元質問：グリッドのBackColorについて - はる 2003/04/04-15:35 No.3434
Excelでセルの書式設定するときパターン設定が出来るのですが、同じ事をMSFlexGridで行いたい場合どうしたらよいのでしょうか？
-----------------------------------------------------------------------
Re^2: グリッドのBackColorについて - 花ちゃん 2003/04/05-22:51 No.3442
-----------------------------------------------------------------------
表示する数だけPictureBoxがいるのかな思ったのですが１個で出来るようなので結構使えるかも知れません。
但し、その部分は強調表示されなかったり、セルのサイズ変更があれば再度塗りつぶし処理が必要になったりと欠点もありますが、下記のようにして編集中は解除するようにして、セルのサイズが変更されたら、再表示する等にすれば有る程度解決できるかと思います。
その他十分なテストやエラーチェックが出来ていませんので他に問題が発生するかも知れませんが一度試して見て下さい。
Option Explicit
Private Sub Command1_Click()
'パターンによる塗りつぶしのテスト
Dim i As Long, Pt As Long
With MSFlexGrid1
For i = .FixedCols To .Cols - 1
'１行すべて表示
Call SetPattern(5, 2, i)
If Pt < 8 Then
'全パターン表示
Call SetPattern(Pt, 3, i)
End If
Pt = Pt + 1
Next i
'表示してからセルにデータを表示した場合のテスト
.TextMatrix(2, 4) = "後で記入"
End With
'Row=4 Col=3 に VbCross 6 クロス で表示
Call SetPattern(6, 4, 3)
End Sub
Private Sub Command2_Click()
'パターンを解除
Dim i As Long, Pt As Long
With MSFlexGrid1
For i = .FixedCols To .Cols - 1
Call SetPattern(8, 2, i)
If Pt < 8 Then
Call SetPattern(8, 3, i)
End If
Pt = Pt + 1
Next i
End With
Call SetPattern(8, 4, 3)
End Sub
Private Sub SetPattern(ByVal FiSty As Integer, ByVal Ro As Long, ByVal Co As Long)
'パターンの作成と塗りつぶし処理
With MSFlexGrid1
.Row = Ro
.Col = Co
Picture1.Cls
'ピクチャーのサイズをセルと同一に
Picture1.Height = .CellHeight
Picture1.Width = .CellWidth
If FiSty >= 8 Or FiSty < 0 Then
'パターンの解除(Picture をクリア）
Set .CellPicture = LoadPicture()
Exit Sub
End If
'パターンの設定
Picture1.FillStyle = FiSty
'枠の罫線が見えないように
Picture1.Line (-10, -10)-(.CellWidth, .CellHeight), QBColor(0), B
'セルにピクチャーを表示
Set .CellPicture = Picture1.Image
End With
End Sub
Private Sub Form_Load()
'MSFlexGridの初期設定
With MSFlexGrid1
.Cols = 10
.Rows = 6
.ColWidth(-1) = 900
.ColWidth(5) = 1400
.RowHeight(-1) = 350
.Font.Bold = True
.TextMatrix(2, 2) = "先に記入"
End With
With Picture1 '別途プロパティで設定して下さい
.AutoRedraw = True
.Appearance = 0
.BorderStyle = vbBSNone
.Visible = False
End With
End Sub
---------------------------------------------------------------
上記プログラムの実行結果の画像を添付しておきます。
（画像をクリックすると元のサイズで見られます）
又、上記を応用する事で罫線の設定もできます。（下記参照）
http://hanatyan.sakura.ne.jp/samplepic/vb6_329.htm
 |
