[リストへもどる]
一括表示

投稿時間:2003/01/08(Wed) 17:26
投稿者名:tomo
URL :
タイトル:
MSFlexGridでクリックしても先頭のみ背景反転しない
お世話になります
現在VB勉強中でわからないことがあり質問します。
MSFlexGridについてなんですが
クリックしても先頭(0行目灰色部分は除いて)だけ
背景色が反転しません。どうしてでしょう?
クリックイベントでは以下のように記述しています(左記の複数選択〜利用しています)
Private Sub MSFlexGrid1_Click()
'クリックしたセルを強調表示
  With MSFlexGrid1
    'クリック位置を取得
    MyRow = .Row
    MyCol = .Col
    If KeyCtrl = True Then
      If .CellBackColor = QBColor(1) Then
        '再クリックした場合セル色を元に
        .CellBackColor = QBColor(15)
        .CellForeColor = QBColor(0)
      Else
        'セルに反転色を指定
        .CellBackColor = QBColor(1)
        .CellForeColor = QBColor(15)
      End If
    End If
  End With
End Sub
コントロールを押しながら選択するとすべて反転します。
ただ単にクリックすると先頭だけ変わりません。

環境はVB5SP3 Win2000 アクセス98です。
お手数ですが宜しくお願いします。

投稿時間:2003/01/08(Wed) 17:53
投稿者名:batchman
Eメール:batchman@ae.wakwak.com
URL :
タイトル:
Re: MSFlexGridでクリックしても先頭のみ背景反転しない
> MSFlexGridについてなんですが
> クリックしても先頭(0行目灰色部分は除いて)だけ
> 背景色が反転しません。どうしてでしょう?

先頭行が、選択開始セルのことであるならば、

Private Sub MSFlexGrid1_EnterCell()
    
    MSFlexGrid1.CellBackColor = MSFlexGrid1.BackColorSel

End Sub

Private Sub MSFlexGrid1_LeaveCell()
    
    MSFlexGrid1.CellBackColor = MSFlexGrid1.BackColor

End Sub

投稿時間:2003/01/09(Thu) 08:31
投稿者名:tomo
URL :
タイトル:
ありがとうございます
> 先頭行が、選択開始セルのことであるならば、
>
> Private Sub MSFlexGrid1_EnterCell()
>    
>     MSFlexGrid1.CellBackColor = MSFlexGrid1.BackColorSel
>
> End Sub
>
> Private Sub MSFlexGrid1_LeaveCell()
>    
>     MSFlexGrid1.CellBackColor = MSFlexGrid1.BackColor
>
> End Sub

batchman様早速のレスありがとうございました。
見事にできました。
重ねて御礼申し上げます。