2008年06月03日

フォームを半透明にする。

フォームを半透明にします。

FormのOpacityプロパティに、%で指定します。

デフォルトは100%ですので、そこから%の数値を下げていけば、半透明になります。

0%でまったく見えなくなるのですが、20%程度で既に見えにくい状態になります。


>>>



>>>

スクロールバーをフォーム上に配置し、スクロールさせていくと徐々にフォームが半透明になるようにします。

Labelにスクロールバーの数値を表示するようにします。

sample016-1.jpg
クリックすると拡大します。

<コード>
==========================
Public Class Form1

  Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll

    'フォームのOpacityプロパティに設定をします。
    '縦型のスクロールバーは、上部が0、下部が100です。
    'よって、下記の様な数式になります。
    '上部にある際に100%とするため。
    Me.Opacity = (1 - VScrollBar1.Value / 100)

    'Labelにスクロールバーの数値を表示します。
    Label1.Text = (1 - VScrollBar1.Value / 100)

  End Sub

End Class
==========================


結果は下図のようになります。
sample016-2.jpg
クリックすると拡大します。

あまり透明にしすぎると、画面自体が見えなくなりますので、終了できなくなりますので注意してください。




posted by Debring at 20:10 | Comment(0) | TrackBack(0) | VB2005 フォーム
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:


この記事へのトラックバック
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。