| 标题 | 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 创建完成后我们来运行程序测试一下，测试成功，程序在屏幕中不断地来回走动了。 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。