程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 更多關於編程 >> VB.NET 2008窗體應用技巧

VB.NET 2008窗體應用技巧

編輯:更多關於編程

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

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

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved