打開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
創建完成後我們來運行程序測試一下,測試成功,程序在屏幕中不斷地來回走動了。