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