Visual Basic 6でステータスバーパネルに背景色を追加
Visual Basic 6コードの上に構築された古いアプリケーションを修正しています。フォームの下部にステータスバーを追加する必要があります。私のステータスバーは以下の通りです: テキストは正しく表示できますが、背景色を赤にしたいです。StatusBar Panelにはそのようなオプションがないことがわかりました。StatusBarのプロパティを開くと、次のように表示されます。 画像を追加できることがわかりました。しかし、赤い色の画像を追加すると、テキストは画像で覆われます。ハマった。どんなアドバイスも参考になります。ありがとう!! 更新 コメントで提供されたリンク@ÉtienneLanevilleのコードを使用しました。追加された背景色と追加されたテキスト。 これが関数を呼び出すための私のコードです: PanelText StatusBar1, 9, "ATM (" & cntATM & ")", QBColor(12), QBColor(0) しかし、テキストの位置は以下のようになります: このタスクを配置するために以下のようなテキストを作成する必要があります。このタスクは今のところ緊急であり、さらに調査する時間がないためです。 PanelText StatusBar1, 9, "ATM (" & cntATM & ") ", QBColor(12), QBColor(0) 以下は私の出力です: アップデート2 Brian M Staffordから提供されたコードを試しました。しかし、私は同じ結果を得ました。テキストはまだ中央(または左)にありません。以下は私のコードとステータスバーのスクリーンショットです: 関数: Private Sub PanelText(sb As StatusBar, pic As PictureBox, Index As …