コマンドボタンの文字色を指定するには？
解決いつも本当にありがとうございます。
コマンドボタンの文字色は変更できるでしょうか。
具体的には黒から赤に変更したいのです。
よろしくお願い致します。
VB6 SP6です。
普通出来ません。
やったことはありませんが、オーナードローすれば出来るらしいです。
ありごうございます。
オーナードローとは、どうすればいいのでしょうか。
申し訳ありませんが、もう少し教えて下さい。
難しく考えず手っ取り早くするなら黒と赤の文字を描いたピクチャを
必要に応じてセットしてやることでも変化したように見えますね。
とろさん、ありがとうございます。
そうですね。私もピクチャボックスに文字を描くことを考えていました。
その際に、ピクチャボックスは既定では、ちょうどコマンドボタンと反対の
下にくぼんだ様になっていますね。
これを、コマンドボタンのように上に飛び出たように設定できないでしょうか。
見た目上コマンドボタンと大差無くなれば、問題なくなりますね。
とろさんは
コマンドボタンに絵を貼るよう
言われていると思いますが。
CommandButtonの代わりに、OptionButton または CheckBox を
使ってみては如何でしょう。手元にVB6が無いので確認できませんが、
Styleプロパティを変更することで、文字色の指定ができたと思います。
# この場合、ボタンが「押されたまま」の状態になってしまうので、
# それを戻すためのコードを含める必要がありますけどね。
コマンドボタンの上にテキストボックスを貼ってはどうでしょう？
#でも厳密にはテキストボックス上の、
#右クリックにも対応しなければいけないですね。
#そこまでやるのはちょっと面倒かも。。。
#DeleteMenuとかでできなくも無いと思いますが。。。
Private Sub Form_Load()
With Text1
.BorderStyle = 0 '境界線なし
.BackColor = &H8000000F 'ボタンの表面
.ForeColor = vbRed
.Text = "テスト(&T)"
.TabStop = False
.Locked = True
End With
Command1.Caption = "(&T)"
End Sub
Private Sub Text1_Click()
Command1.Value = True
'Call Command1_Click
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Screen.MousePointer = vbArrow
End Sub
Private Sub Command1_Click()
MsgBox "コマンドボタンが押されました"
End Sub
皆様、いろいろなアドバイスをいただき、本当にありがとうございます。
まことに、恐れ入ります。
私は、最初、コマンドボタンの上にラベルを配置するということを
考えましたが、どうもコマンドボタンの上にラベルは配置できない
というか、ラベルを上にもってくる、というのは出来ないので
どうしようかと思っていました。
今回は、ぴろあきさんのご指導のように、テキストボックスを配置してみました。
テキストボックスだと、コマンドボタンの上に配置できるのですね。
ぴろあきさんのコードで試したところ、コマンドボタン単体と
何も変わらずに作動しました。
たぶん、普通はボタンの上で右クリックはしない思われますので
これで、十分だと思われます。
皆様、本当にありがとうございました。
解決とさせていただきます。
| ツイート |  |