| 投稿日 | ： 2004/01/30(Fri) 00:37 |
| 投稿者 | ： 寝タロ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: MSFlexGridの一つの固定セルを赤文字にしたいんですが… |
> > クリックする度に前回選択した行の文字色を
> > 消して又、選びなおしたいのですが、初回はうまく動くのですが
> > 2回目以降がクリックする度に赤の行が増えるだけで
> > うまくいきません。
>
> デバッグモードで追跡していますか？
> 現在選択した行の保存の仕方に問題があるのでは？
>
すいません、ご指摘有難うございました。
これが原因でした。
> > 出来れば、前回選択行を別に記憶せず
>
> なぜ、そうするのですか？
>
今、MSFlexGridが15枚程とテキストBOXが34こ、貼ってあるフォームが20こあるのですが、
今現在は、管理できるのですが、将来、フォームの数が増えるし、
1年後位に変更の可能性があるので、その時に他の人も含めて管理しやすい様に
スピードを犠牲にしてでも、出来るだけ簡単なコードにしておきたいのです。
本当は、早いのが一番なのですが。。
> > 全体に対してカラー変更したいのですが、
>
> だったら全体の色を元に戻して下さい。
> すでに範囲を指定する方法は出て来ていると思います。
> 行が多いと処理に時間が掛かったりする様になると思いますよ。
すいません、その方法でいかしていただきます。
こんな感じにおさまりました。
Dim D_Row As Long
D_Row = Grid2.Row
Grid2.Visible = False
With Grid2
.Col = 1
.Row = 0
.ColSel = .cols - 1
.RowSel = .rows - 1
.CellForeColor = vbWhite
End With
With Grid2
.Col = 1
.Row = D_Row
.ColSel = 11
.RowSel = D_Row
.CellForeColor = vbRed
End With
Grid2.Visible = True
すいません、都合のいい事ばかりいいまして。
本当に、助かりました。