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
InheritsSystem.Windows.Forms.Form
Private Sub Form1_Load(ByVal sender AsSystem.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Dimpos 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 SubTimer2_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减一
Ifpos.X > 100 Or pos.Y > 50 Then
Me.DesktopLocation = pos
Else
Timer1.Enabled = True
Timer2.Enabled = False
End If
EndSub
创建完成后我们来运行程序测试一下,测试成功,程序在屏幕中不断地来回走动了。窗体应用技巧二,创建透明的窗体。
创建新工程后,选择Form1窗体,添加Label1、 TrackBar1、Timer1控件。为了突出效果为窗体选择一个好看的背景。
相关的属性设置如下:
TrackBar1 Value属性:
TickFrequency: 属性:
Maximum属性: 100
10
100
Label1 Text属性: 选择窗体的透明度:
Timer1 Interval属性: 100
进入代码编辑器,输入代码
首先进行声明:
Public ClassForm1
Inherits System.Windows.Forms.Form
Dim tps As Integer
Dim bol AsBoolean
进入TrackBar1_Scroll事件
Private Sub TrackBar1_Scroll (ByVal sender As Object,
ByVal e As System.EventArgs) HandlesTrackBar1.Scroll
Me.Opacity = TrackBar1.Value / 100
Label1.Text = "窗 体透明度:" & CStr(Me.Opacity * 100) & ""
EndSub
进入Timer1_Tick事件
Private Sub Timer1_Tick(ByVal senderAs 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
EndSub
进入Form1_Load事件
Private Sub Form1_Load(ByVal sender AsSystem.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 AsSystem.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
EndIf
End Sub
创建完成后我们来运行程序测试一下,测试成功,程序窗体是不是变 得透明了,通过调节滚动条我们甚至可以使得窗体消失达到完全隐形的目的。这是不是很神奇呢?

鱼台论坛http://bbs.370827.org/thread-5726-1-1.html

原文链接:https://www.f2er.com/vb/258206.html

猜你在找的VB相关文章