3.コントロールの背景を透明にする(14_Ctr_03) (旧、SampleNo.260/459) |
1.コントロールの背景を透明にする 2. 3. 4. 5. 6. |
下記プログラムコードに関する補足・注意事項 動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86 Option :[Compare Text] [Explicit On] [Infer On] [Strict On] Imports :追加なし 参照設定:追加なし その他 :使用コントロール:下図参照 : このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい) |
1.コントロールの背景を透明にする |
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 'BackColor に指定した色を透明にする(通常使用しないような色を指定の事) Me.TransparencyKey = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(254, 254, 254)) '背景を透明にしたいコントロールの BackColor を上記で指定した色にする Button1.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(254, 254, 254)) Button2.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(254, 254, 254)) TextBox1.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(254, 254, 254)) Label1.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(254, 254, 254)) End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Me.TransparencyKey = Color.Empty 'Default に戻す '元の BackColor に戻す Button1.BackColor = Me.BackColor Button2.BackColor = Me.BackColor 'TextBox1 の元の背景色と変わらないのでそのままでも OK です。 'TextBox1.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(255, 255, 255)) Label1.BackColor = Me.BackColor End Sub 図1.通常の状態 図2.背景を透明にした状態 |
2. |
3. |
4. |
5. |
6. |
検索キーワード及びサンプルコードの別名(機能名) |
コントロールの背景を透過にする 透明な背景色 背景色を透明 |