◎VB 設定Form不透明度

設定Form不透明度

• 新增專案 - Windows Form 應用程式

方案名稱,名稱為opacity

• 插入TrackBar

元件名稱:TrackBar1

TrackBar1.Maximum = "100"

TrackBar1.Minimum = "0"

Trackbar1.Value = 100

• 寫入code

快按 Form1 兩下,出現如下圖:

寫入code

Code:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me.TrackBar1

            .TickStyle = TickStyle.None

            .Maximum = 100

            .Minimum = 0

            .Value = 100

        End With

        Me.Text = String.Format("視窗顯示度 - {0}%", TrackBar1.Value)

    End Sub
    Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged

        Me.Opacity = TrackBar1.Value / 100

        Me.Text = String.Format("不透明度 - {0}%", TrackBar1.Value)

    End Sub
End Class

最後按最頂三角形-開始執行