VB.NET 2008窗體使用技巧

VB.NET 2008窗體使用技巧。本站提示廣大學習愛好者：（VB.NET 2008窗體使用技巧）文章只能為提供參考，不一定能成為您想要的結果。以下是VB.NET 2008窗體使用技巧正文

翻開Visual Studio 2008在文件 (File) 菜單上，單擊新建項目 (New Project)。在新建項目 (New Project) 對話框的模板 (Templates) 窗格中，單擊 Windows 使用順序(Windows Application)。 單擊確定 (OK)

窗體使用技巧一，創立浮動窗體。

創立新工程後，選擇Form1窗體，添加 Timer1和Timer2控件。為窗體選擇一個美觀的背景，當然你也可以運用零碎默許的背景。

進入代 碼編輯器，輸出代碼：

Public　Class　Form1
Inherits　 System.Windows.Forms.Form
Private　Sub　Form1_Load(ByVal　sender　As　 System.Object,

ByVal　e　As　System.EventArgs)　Handles　MyBase.Load
Dim　 pos　As　Point　=　New　Point(100,　50)　'設置窗體初始地位
Me.DesktopLocation　=　 pos
Timer1.Interval　=　10　'設置Timer的值
Timer1.Enabled　=　True
Timer2.Interval　=　10
Timer2.Enabled　=　False
End　Sub

進入Timer1_Tick事情

Private　Sub　Timer1_Tick(ByVal　sender　As　System.Object,　 ByVal　e　As　System.EventArgs)

Handles　Timer1.Tick
Dim　pos　As　Point　= 　New　Point(Me.DesktopLocation.X　+　2,　Me.DesktopLocation.Y　+　1)

'窗體 左上方橫坐標的timer1加
If　pos.X　<　600　Or　pos.Y　<　400　Then
Me.DesktopLocation　=　pos
Else
Timer1.Enabled　=　False
Timer2.Enabled　= 　True
End　If
End　Sub

進入Timer2_Tick事情

Private　Sub 　Timer2_Tick(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)

Handles　Timer2.Tick
Dim　pos　As　Point　=　New　Point(Me.DesktopLocation.X　-　2, 　Me.DesktopLocation.Y　-　1)

'窗體的左上方橫坐標隨著timer2減一
If　 pos.X　>　100　Or　pos.Y　>　50　Then
Me.DesktopLocation　=　pos
Else
Timer1.Enabled　=　True
Timer2.Enabled　=　False
End　If
End　 Sub

創立完成後我們來運轉順序測試一下，測試成功，順序在屏幕中不時地來回走動了。

窗體使用技巧二，創立通明的窗體。

創立新工程後，選擇Form1窗體，添加Label1、 TrackBar1、Timer1控件。為了突出效果為窗體選擇一個美觀的背景。

相關的屬性設置如下：

TrackBar1 Value屬性:

TickFrequency: 屬性:

Maximum屬性: 100

10

100

Label1 Text屬性: 選擇窗體的通明度:

Timer1 Interval屬性: 100

進入代碼編輯器，輸出代碼：

首先停止聲明：

Public　Class　 Form1
Inherits　System.Windows.Forms.Form
Dim　tps　As　Integer
Dim　bol　As 　Boolean

進入TrackBar1_Scroll事情

Private　Sub　TrackBar1_Scroll (ByVal　sender　As　Object,

ByVal　e　As　System.EventArgs)　Handles　 TrackBar1.Scroll
Me.Opacity　=　TrackBar1.Value　/　100
Label1.Text　=　"窗 體通明度："　&　CStr(Me.Opacity　*　100)　&　"%"
End　 Sub

進入Timer1_Tick事情

Private　Sub　Timer1_Tick(ByVal　sender　 As　Object,

ByVal　e　As　System.EventArgs)　Handles　Timer1.Tick
If　bol　 =　False　Then
tps　=　tps　+　1
Me.Opacity　=　tps　/　100
If　Me.Opacity　 >=　1　Then
Timer1.Enabled　=　False
bol　=　True
End　If
Else
tps　=　tps　-　1
Me.Opacity　=　tps　/　100
If　Me.Opacity　<=　0　Then
Timer1.Enabled　=　False
bol　=　False
End　If
End　If
End　 Sub

進入Form1_Load事情

Private　Sub　Form1_Load(ByVal　sender　As 　System.Object,

ByVal　e　As　System.EventArgs)　Handles　MyBase.Load
Timer1.Enabled　=　True
End　Sub

進入Form1_Closing事情

Private　Sub　Form1_Closing(ByVal　sender　As　Object,

ByVal　e　As 　System.ComponentModel.CancelEventArgs)　Handles　MyBase.Closing
Timer1.Enabled　=　 True
If　MsgBox("你的確要封閉窗體嗎？",　MsgBoxStyle.OkCancel)　=　 MsgBoxResult.Ok　Then
e.Cancel　=　False
Else
Timer1.Enabled　=　False
Me.Opacity　=　1
tps　=　100
bol　=　True
e.Cancel　=　True
End　 If
End　Sub

創立完成後我們來運轉順序測試一下，測試成功，順序窗體是不是變 得通明了，經過調理滾動條我們甚至可以使得窗體消逝到達完全隱形的目的。這是不是很神奇呢？