テキストの背景色を、フォーカスがあるときは白、フォーカスがないときはシステムカラーに
したいのですがどうすればできるのでしょうか？
システムのカラーを変えられてもEnableがFalseのときはシステムカラーにしたいのです。
初心者な者でよろしくお願いします

windows2000　VB6.0(SP5)

> テキストの背景色を、フォーカスがあるときは白、フォーカスがないときはシステムカラーに
> したいのですがどうすればできるのでしょうか？

どのコントロールのでの話か解りませんので、TextBoxの場合は下記のように
設定すればできます。　システムカラーについてはお使いの機種で設定して下さい。
尚、たくさんのTextBox での設定は少し複雑になりますが、1箇所でまとめて設定する
方法があります。（個々のTextBoxに記入しなくてもよい）

Private Sub Text1_GotFocus()
    Text1.BackColor = QBColor(15)
End Sub

Private Sub Text1_LostFocus()
    Text1.BackColor = &H80000005
End Sub

花ちゃん、ありがとうございましたm(_ _)m

> システムのカラーを変えられてもEnableがFalseのときはシステムカラーにしたいのです。

　ピクチャボックスをコンテナにして、ピクチャボックスのEnabledプロパティを
Falseにすれば、ピクチャボックス上のテキストボックスの文字色がForeColorの色
のままで操作できないようにできます。

> テキストの背景色を、フォーカスがあるときは白、フォーカスがないときはシステムカラーに
> したいのですがどうすればできるのでしょうか？

　どうでもいいことですが、BackColor と ForeColor で、RGBカラーとシステム
カラーの組み合わせになると、システムカラーの設定によっては、文字が見えな
くなる（あるいは見にくくなる）場合があります。（ただ、そういう設定の人は
かなり変人かも）なので、文字色もあわせて変更したほうがいいと思います。

Private Sub Text1_GotFocus()
    Text1.ForeColor = vbBlack
    Text1.BackColor = vbWhite
End Sub

Private Sub Text1_LostFocus()
    Text1.ForeColor = vbWindowText
    Text1.BackColor = vbWindowBackground
End Sub