| 投稿日 | ： 2003/12/17(Wed) 13:53 |
| 投稿者 | ： ak |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^9: MSFlexGridの一つの固定セルを赤文字にしたいんですが… |
> 設定順もサンプル通りでした。
> Col、Rowプロパティを設定した後でColSel、RowSelプロパティ設定されていました。
> でも、文字はみな黒のまんまでした。
下のサンプルで試してみてください。
'(*.frm) フォームにMSFlexGrid,CommandButtonを各１個配置してください。
Option Explicit
Private Sub Form_Load()
Dim ii As Integer
'フォーム初期設定
With Me
.Height = 3360
.Width = 3780
End With
'ボタン初期設定
With Command1
.Caption = "色変更"
.Height = 375
.Width = 975
.Top = 2580
.Left = 15
End With
'グリッド初期設定
With MSFlexGrid1
.Height = 2535
.Width = 4290
.Top = 15
.Left = 15
.Cols = 4
.Rows = 10
For ii = 0 To 9
.Col = 1
.Row = ii
.Text = "11111"
.Col = 2
.Row = ii
.Text = "22222"
.Col = 3
.Row = ii
.Text = "33333"
Next ii
End With
End Sub
Private Sub Command1_Click()
Dim iTmp As Integer
'２列目の文字色を赤色に変更する
With MSFlexGrid1
iTmp = .FillStyle
.FillStyle = flexFillRepeat
.Col = 2
.Row = 1
.ColSel = 2
.RowSel = .Rows - 1
.CellForeColor = vbRed
.FillStyle = iTmp
End With
End Sub