VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -