中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

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

創建完成后我們來運行程序測試一下，測試成功，程序在屏幕中不斷地來回走動了。

更多信息請查看IT技術專欄