vb编程实例

　本篇文章的主要开发环境是Visual Studio Visual Studio系列产品一直以来都提供了强大的控件功能 然而我们利用这些控件可以编写出功能强大的应用程序 本文主要利用微软的最开发工具为大家展示窗体特效的应用方法 为大家介绍创建炫酷的透明化窗体以及浮动型窗体的一些技巧 很适开发工具的初学者 具有一定的实用价值

　打开 Visual Studio 在文件 (File) 菜单上 单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中 单击 Windows 应用程序(Windows Application) 单击确定 (OK)

　 窗体应用技巧一 创建浮动窗体

　创建新工程后 选择Form 窗体 添加Timer 和Timer 控件 为窗体选择一个好看的背景 当然你也可以使用系统默认的背景

　进入代码编辑器 输入代码

　 ?Public Class Form Inherits System Windows Forms FormPrivate Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase LoadDim pos As Point = New Point( ) 设置窗体初始位置Me DesktopLocation = posTimer Interval = 设置Timer的值Timer Enabled = TrueTimer Interval = Timer Enabled = FalseEnd Sub? 进入Timer _Tick事件 Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer TickDim pos As Point = New Point(Me DesktopLocation X + Me DesktopLocation Y + ) 窗体左上方横坐标的timer 加If pos X < Or pos Y < ThenMe DesktopLocation = posElseTimer Enabled = FalseTimer Enabled = TrueEnd IfEnd Sub? 进入Timer _Tick事件

　 ?Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer TickDim pos As Point = New Point(Me DesktopLocation X Me DesktopLocation Y ) 窗体的左上方横坐标随着timer 减一If pos X > Or pos Y > ThenMe DesktopLocation = posElseTimer Enabled = TrueTimer Enabled = FalseEnd IfEnd Sub? 创建完成后我们来运行程序测试一下 测试成功 程序在屏幕中不断地来回走动了

　 窗体应用技巧二 创建透明的窗体

　创建新工程后 选择Form 窗体 添加Label TrackBar Timer 控件 为了突出效果为窗体选择一个好看的背景

　相关的属性设置如下 ? TrackBar Value属性:? TickFrequency: 属性:? Maximum属性: ? Label Text属性: 选择窗体的透明度:? Timer Interval属性:

　进入代码编辑器 输入代码

　首先进行声明 Public Class Form Inherits System Windows Forms FormDim tps As IntegerDim bol As Boolean? 进入TrackBar _Scroll事件 Private Sub TrackBar _Scroll(ByVal sender As Object ByVal e As System EventArgs) Handles TrackBar ScrollMe Opacity = TrackBar Value / Label Text = 窗体透明度 & CStr(Me Opacity * ) & % End Sub? 进入Timer _Tick事件

　 ?Private Sub Timer _Tick(ByVal sender As Object ByVal e As System EventArgs) Handles Timer TickIf bol = False Thentps = tps + Me Opacity = tps / If Me Opacity >= ThenTimer Enabled = Falsebol = TrueEnd IfElsetps = tps Me Opacity = tps / If Me Opacity <= ThenTimer Enabled = Falsebol = FalseEnd IfEnd IfEnd Sub? 进入Form _Load事件

　 ?Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase LoadTimer Enabled = TrueEnd Sub? 进入Form _Closing事件 Private Sub Form _Closing(ByVal sender As Object ByVal e As System ComponentModel CancelEventArgs) Handles MyBase ClosingTimer Enabled = TrueIf MsgBox( 你确实要关闭窗体吗？ MsgBoxStyle OkCancel) = MsgBoxResult Ok Thene Cancel = FalseElseTimer Enabled = FalseMe Opacity = tps = bol = Truee Cancel = TrueEnd IfEnd Sub? 创建完成后我们来运行程序测试一下 测试成功 程序窗体是不是变得透明了 通过调节滚动条我们甚至可以使得窗体消失达到完全隐形的目的 这是不是很神奇呢？

lishixinzhi/Article/program/net/201311/11580