VB.NET2008精彩实例窗体应用技巧计算机二级考试

文章作者 100test 发表时间 2009:05:07 18:38:06
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　打开 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
　　创建完成后我们来运行程序测试一下，测试成功，程序在屏幕中不断地来回走动了。
　　窗体应用技巧二，创建透明的窗体。
　　创建新工程后，选择Form1窗体，添加Label1、TrackBar1、Timer1控件。为了突出效果为窗体选择一个好看的背景。
　　相关的属性设置如下：
　　TrackBar1 Value属性:
　　TickFrequency: 属性:
　　Maximum属性: 100
　　10
　　100
　　Label1 Text属性: 选择窗体的透明度:
　　Timer1 Interval属性: 100
　　进入代码编辑器，输入代码：
　　首先进行声明：
　　Public　Class　Form1
　　Inherits　System.Windows.Forms.Form
　　Dim　tps　As　Integer
　　Dim　bol　As　Boolean
　　进入TrackBar1_Scroll事件
　　Private　Sub　TrackBar1_Scroll(ByVal　sender　As　Object,
　　ByVal　e　As　System.EventArgs)　Handles　TrackBar1.Scroll
　　Me.Opacity　=　TrackBar1.Value　/　100
　　Label1.Text　=　"窗体透明度："　&.　CStr(Me.Opacity　*　100)　&.　"%"
　　End　Sub
　　进入Timer1_Tick事件
　　Private　Sub　Timer1_Tick(ByVal　sender　As　Object,
　　ByVal　e　As　System.EventArgs)　Handles　Timer1.Tick
　　If　bol　=　False　Then
　　tps　=　tps　 　1
　　Me.Opacity　=　tps　/　100
　　If　Me.Opacity　>.=　1　Then
　　Timer1.Enabled　=　False
　　bol　=　True
　　End　If
　　Else
　　tps　=　tps　-　1
　　Me.Opacity　=　tps　/　100
　　If　Me.Opacity　<.=　0　Then
　　Timer1.Enabled　=　False
　　bol　=　False
　　End　If
　　End　If
　　End　Sub
　　进入Form1_Load事件
　　Private　Sub　Form1_Load(ByVal　sender　As　System.Object,
　　ByVal　e　As　System.EventArgs)　Handles　MyBase.Load
　　Timer1.Enabled　=　True
　　End　Sub
　　进入Form1_Closing事件
　　Private　Sub　Form1_Closing(ByVal　sender　As　Object,
　　ByVal　e　As　System.ComponentModel.CancelEventArgs)　Handles　MyBase.Closing
　　Timer1.Enabled　=　True
　　If　MsgBox("你确实要关闭窗体吗？",　MsgBoxStyle.OkCancel)　=　MsgBoxResult.Ok　Then
　　e.Cancel　=　False
　　Else
　　Timer1.Enabled　=　False
　　Me.Opacity　=　1
　　tps　=　100
　　bol　=　True
　　e.Cancel　=　True
　　End　If
　　End　Sub
　　创建完成后我们来运行程序测试一下，测试成功，程序窗体是不是变得透明了，通过调节滚动条我们甚至可以使得窗体消失达到完全隐形的目的。这是不是很神奇呢？

　　特别推荐：

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总