VB.NET 2008窗体应用技巧

打开Visual Studio 2008在文件 (File) 菜单上，单击新建项目 (New Project)。在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序(Windows Application)。 单击确定 (OK)
窗体应用技巧一，创建浮动窗体。
创建新工程后，选择Form1窗体，添加 Timer1和Timer2控件。为窗体选择一个好看的背景，当然你也可以使用系统默认的背景。
进入代 码编辑器，输入代码：
Public　Class　Form1
InheritsSystem.Windows.Forms.Form
Private　Sub　Form1_Load(ByVal　sender　AsSystem.Object,
ByVal　e　As　System.EventArgs)　Handles　MyBase.Load
Dimpos　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　SubTimer2_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减一
Ifpos.X　>　100　Or　pos.Y　>　50　Then
Me.DesktopLocation　=　pos
Else
Timer1.Enabled　=　True
Timer2.Enabled　=　False
End　If
EndSub
创建完成后我们来运行程序测试一下，测试成功，程序在屏幕中不断地来回走动了。窗体应用技巧二，创建透明的窗体。
创建新工程后，选择Form1窗体，添加Label1、 TrackBar1、Timer1控件。为了突出效果为窗体选择一个好看的背景。
相关的属性设置如下：
TrackBar1 Value属性:
TickFrequency: 属性:
Maximum属性: 100
10
100
Label1 Text属性: 选择窗体的透明度:
Timer1 Interval属性: 100
进入代码编辑器，输入代码：
首先进行声明：
Public　ClassForm1
Inherits　System.Windows.Forms.Form
Dim　tps　As　Integer
Dim　bol　AsBoolean
进入TrackBar1_Scroll事件
Private　Sub　TrackBar1_Scroll (ByVal　sender　As　Object,
ByVal　e　As　System.EventArgs)　HandlesTrackBar1.Scroll
Me.Opacity　=　TrackBar1.Value　/　100
Label1.Text　=　"窗 体透明度："　&　CStr(Me.Opacity　*　100)　&　""
EndSub
进入Timer1_Tick事件
Private　Sub　Timer1_Tick(ByVal　senderAs　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
EndSub
进入Form1_Load事件
Private　Sub　Form1_Load(ByVal　sender　AsSystem.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　AsSystem.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
EndIf
End　Sub
创建完成后我们来运行程序测试一下，测试成功，程序窗体是不是变 得透明了，通过调节滚动条我们甚至可以使得窗体消失达到完全隐形的目的。这是不是很神奇呢？

鱼台论坛http://bbs.370827.org/thread-5726-1-1.html