Windows 消息及教學
AD
2013年3月26日 星期二
◎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
最後按最頂三角形-開始執行
沒有留言:
張貼留言
較新的文章
首頁
訂閱:
張貼留言 (Atom)
沒有留言:
張貼留言