投稿日 | : 2005/06/22(Wed) 14:41 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : 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