VB.net 2008 Form Application Tips

Source: Internet
Author: User

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 points = New point (100, 50) ' Sets the initial position of the form

Me.desktoplocation = pos

Timer1.interval = 10 ' Set Timer's value

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)

' Form the top left of the horizontal axis of timer1 plus

If Pos. X < Or pos. Y < 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)

' The upper-left horizontal axis of the form with Timer2 minus one

If Pos. X > Or pos. Y > 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.

Related Article

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.