tagCANDY CGI VBレスキュー(花ちゃん) - MSFlexGrid のBackColorについて(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
MSFlexGrid のBackColorについて(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

MSFlexGrid のBackColorについて(VB6.0) [No.51の個別表示]
     サンプル投稿用掲示板  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がいるのかな思ったのですが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
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ