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

VB.NET 2008窗體使用技巧

編輯:VB.NET

VB.NET 2008窗體使用技巧。本站提示廣大學習愛好者:(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

創立完成後我們來運轉順序測試一下,測試成功,順序在屏幕中不時地來回走動了。

窗體使用技巧二,創立通明的窗體。

創立新工程後,選擇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

創立完成後我們來運轉順序測試一下,測試成功,順序窗體是不是變 得通明了,經過調理滾動條我們甚至可以使得窗體消逝到達完全隱形的目的。這是不是很神奇呢?

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