VB.net 2008 Form Application Tips

Open Visual Studio 2008 on the File menu, click New Project. In the Templates pane of the New Project dialog box, click Windows Application (Windows application). Click OK (OK)

Form Application Tip One, create a floating form.

After you create a new project, select the Form1 form and add the Timer1 and Timer2 controls. Choose a nice background for your form, and of course you can use the system default background.

Into the Code Editor, enter the code:

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

Enter Timer1_Tick Event

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

Enter Timer2_tick Event

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

After the creation, we ran the program to test, the test was successful, and the program kept moving back and forth in the screen.