VB2008 LabelやButtonのTextを影付き文字にしたいです

　こんばんは，いつも勉強させていただいております．
質問させていただきます．どうぞよろしくお願いいたします．

　複数の色のあるボタン群の上のフォント色を統一したいのですが，
うち数種類が下のボタン色と類似してしまい，読みにくいため
文字を影付きにしたいのですが．．．やり方が分かりません．．

　何か良さそうな方法があれば是非ともご教授いただきたくお願い申し上げます．
　もしお詳しい方がいらっしゃいましたら，どうぞよろしくお願いいたします．

No.2 ベストアンサー 回答者： vbhanatyan 回答日時： 2009/11/17 22:21

下記ではどうでしょうか？

Private Sub Button1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button1.Paint
Button1.Text = ""
Button1.Size = New Size(155, 48)
e.Graphics.DrawString("影付き文字", _
New Font("ＭＳ Ｐゴシック", 20, FontStyle.Bold), Brushes.Silver, 7, 12)
e.Graphics.DrawString("影付き文字", _
New Font("ＭＳ Ｐゴシック", 20, FontStyle.Bold), Brushes.Black, 5, 10)
End Sub

Private Sub Label1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
Label1.AutoSize = False
Label1.BorderStyle = BorderStyle.Fixed3D
Label1.Text = ""
Label1.Size = New Size(155, 48)
e.Graphics.DrawString("影付き文字", _
New Font("ＭＳ Ｐゴシック", 20, FontStyle.Bold), Brushes.Silver, 7, 12)
e.Graphics.DrawString("影付き文字", _
New Font("ＭＳ Ｐゴシック", 20, FontStyle.Bold), Brushes.Black, 5, 10)
End Sub

この回答へのお礼

　どうもありがとうございます！
解決いたしました＾＾今色々と試させていただいておりますが，
自由度が高い手法ですね．この方法を教えていただくまで（ついさっきまで）は
ButtonのEnable=Falseで影付き文字になるので，これの外枠を消す＆
Tranceparentにして影付き文字を表示したりするなど，自分レベルなりに
工夫しておりました（白黒限定です＾＾；）

　検索してもなかなか出てこなかったんですが，「e.Graphics.DrawString 影付き」とすると
ちゃんと何件か出てきますね．まだまだ検索量が不足しているということ
でしょうか．．．
　ご閲覧・アドバイスいただけてよかったです．
感謝いたします！この度はどうもありがとうございました！

お礼日時：2009/11/17 22:47

No.1 回答者： Yune-Kichi 回答日時： 2009/11/17 16:20

どの方法かが書いていないので，WPFにて。

MSDN: 方法 : 影付きテキストを作成する
http://msdn.microsoft.com/ja-jp/library/ms748273 …

この回答へのお礼

　どうもありがとうございます！
　ノイズや光彩という概念も準備されているんですね．まだうまく
完成しておりませんが，手に入れるよう頑張ります＾＾
VBは奥が深いですねー．知らない事が次から次へと．．．
この度はアドバイスいただきどうもありがとうございました！

お礼日時：2009/11/17 22:51