VB.NET 2008窗体应用技巧_编程语言综合--HTML5中文学习网

　　打开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

　　创建完成后我们来运行程序测试一下，测试成功，程序在屏幕中不断地来回走动了。