[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2005/06/22(Wed) 10:17
投稿者名：新
Ｅメール：
ＵＲＬ　：
タイトル：ステータス バーのフォントの色
開発:VB6.0 (SP6)
OS:WindowsXP (SP2)
使用コンポーネント:Microsoft Windows Common Controls 6.0 (SP6)

いつもお世話になっています。
上記の環境でステータス バーについて勉強しているのですが、
ステータス バーに出力する文字の色を変えるというのは可能でしょうか？
現在は黒一色なので、出来れば赤や黄等に変えられないのでしょうか？

投稿時間：2005/06/22(Wed) 12:46
投稿者名：じゃんぬねっと
Ｅメール：
ＵＲＬ　：http://jeanne.wankuma.com/
タイトル：Re: ステータス バーのフォントの色
こんにちは、じゃんぬ です。

> ステータス バーに出力する文字の色を変えるというのは可能でしょうか？
> 現在は黒一色なので、出来れば赤や黄等に変えられないのでしょうか？

ムリにステータス バーでやらずに、自作した方が早いのでは?

投稿時間：2005/06/22(Wed) 14:41
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: ステータス バーのフォントの色
> 現在は黒一色なので、出来れば赤や黄等に変えられないのでしょうか？
BackColor の方は、このような SB_SETBKCOLOR　定数も用意されているのですが
ForeColor の方は、そのような定数が見当たらないところをみるとBackColor を
設定するように簡単にはできないかと思います。（オーナードローとか）
ラベルを使っても見た目には、ステータスバーと変わらないものができますよ。
（下記を試して見て下さい）

Private Sub Form_Load()
    With Label1
        .BorderStyle = 1
        .Font.Size = 9
        .BackColor = vbWhite
        .ForeColor = vbRed
        .Caption = "ラベルを使ったステータスバーもどき"
    End With
End Sub
Private Sub Form_Resize()
    Label1.Move 0, Me.ScaleHeight - 270, Me.Width, 270
End Sub

投稿時間：2005/06/23(Thu) 12:34
投稿者名：IMA
Ｅメール：
ＵＲＬ　：
タイトル：Re: ステータス バーのフォントの色
検索すればサンプルはいくつか見つかりますよ

hhttp://www.google.co.jp/search?
num=100&hl=ja&newwindow=1&biw=1109&q=statusbar+color+change+vb&btnG=Googl
e+%E6%A4%9C%E7%B4%
A2&lr=

その中の
hhttp://www.blackbeltvb.com/index.htm?free.htm
hhttp://www.blackbeltvb.com/free/sbpanel.htm

はVB6でも即使えますよ（私の環境ですが）

投稿時間：2005/06/30(Thu) 10:39
投稿者名：新
Ｅメール：
ＵＲＬ　：
タイトル：Re: ステータス バーのフォントの色
返事が遅れてすみませんでした。

レスの方法をためしてみたところ、IMAさんのが使いやすかったのでこちらにしたいと思います。
どうもありがとうございました。