VB.NET 2008精彩實(shí)例 窗體應(yīng)用技巧
打開 Visual Studio 2008在文件 (File) 菜單上,單擊新建項(xiàng)目 (New Project)。 在新建項(xiàng)目 (New Project) 對(duì)話框的模板 (Templates) 窗格中,單擊 Windows 應(yīng)用程序(Windows Application)。單擊確定 (OK)
窗體應(yīng)用技巧一,創(chuàng)建浮動(dòng)窗體。
創(chuàng)建新工程后,選擇Form1窗體,添加Timer1和Timer2控件。為窗體選擇一個(gè)好看的背景,當(dāng)然你也可以使用系統(tǒng)默認(rèn)的背景。
進(jìn)入代碼編輯器,輸入代碼:
Public Class Form1 ByVal e As System.EventArgs) Handles MyBase.Load |
進(jìn)入Timer1_Tick事件
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '窗體左上方橫坐標(biāo)的timer1加 |
進(jìn)入Timer2_Tick事件
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick '窗體的左上方橫坐標(biāo)隨著timer2減一 |
創(chuàng)建完成后我們來運(yùn)行程序測(cè)試一下,測(cè)試成功,程序在屏幕中不斷地來回走動(dòng)了。
窗體應(yīng)用技巧二,創(chuàng)建透明的窗體。
創(chuàng)建新工程后,選擇Form1窗體,添加Label1、TrackBar1、Timer1控件。為了突出效果為窗體選擇一個(gè)好看的背景。
相關(guān)的屬性設(shè)置如下:
TrackBar1 Value屬性:
TickFrequency: 屬性:
Maximum屬性: 100
10
100
Label1 Text屬性: 選擇窗體的透明度:
Timer1 Interval屬性: 100
進(jìn)入代碼編輯器,輸入代碼:
首先進(jìn)行聲明:
Public Class Form1 |
進(jìn)入TrackBar1_Scroll事件
Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll |
進(jìn)入Timer1_Tick事件
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick |
進(jìn)入Form1_Load事件
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load |
進(jìn)入Form1_Closing事件
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing |
創(chuàng)建完成后我們來運(yùn)行程序測(cè)試一下,測(cè)試成功,程序窗體是不是變得透明了,通過調(diào)節(jié)滾動(dòng)條我們甚至可以使得窗體消失達(dá)到完全隱形的目的。這是不是很神奇呢?
【編輯推薦】

















