VB.Netのお勉強



フォームの透過度の変更＠VB.Net

フォームの透過度を変更します。

Opacityに透過度の値を設定します。
透過度は、0～1の値で設定します。
0.9ならば90％の透過度です。

以下では、offSetを設定し、
ボタンにて透過度をoffSet分だけ増加、減少させます。

また、ボタンを設けて、テキストボックスの値を取得し、
取得した値を元に透過度の設定を行っています。

何かしら機会があったら利用できそうですね。


Public Class Form1

    Dim offSet As Double = 0.1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox1.Text = Me.Opacity.ToString()
    End Sub

    Private Sub UpBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpBtn.Click
        Me.Opacity += offSet
        Me.TextBox1.Text = Me.Opacity.ToString()
    End Sub

    Private Sub DownBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DownBtn.Click
        Me.Opacity -= offSet
        Me.TextBox1.Text = Me.Opacity.ToString()
    End Sub

    Private Sub ChangeBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangeBtn.Click
        Me.Opacity = CDbl(Me.TextBox1.Text)
    End Sub

End Class




Copyright (C) 2008-2011 VB.Netのお勉強. All Rights Reserved.