tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
MSFlexGrid のBackColorについて(VB6.0) ( No.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がいるのかな思ったのですが1個で出来るようなので結構使えるかも知れません。
但し、その部分は強調表示されなかったり、セルのサイズ変更があれば再度塗りつぶし処理が必要になったりと欠点もありますが、下記のようにして編集中は解除するようにして、セルのサイズが変更されたら、再表示する等にすれば有る程度解決できるかと思います。
その他十分なテストやエラーチェックが出来ていませんので他に問題が発生するかも知れませんが一度試して見て下さい。



Option Explicit

Private Sub Command1_Click()
'パターンによる塗りつぶしのテスト
    Dim i As Long, Pt As Long
    With MSFlexGrid1
        For i = .FixedCols To .Cols - 1
            '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



 [スレッド一覧へ] [親スレッドへ]