知识大全 VB.net2008精彩实例，窗体应用技巧[1]

Posted 2022-07-17 知

篇首语：春衣少年当酒歌，起舞四顾以笑和。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 VB.net2008精彩实例，窗体应用技巧[1]相关的知识，希望对你有一定的参考价值。

VB.net2008精彩实例，窗体应用技巧[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

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

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

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

　　进入代码编辑器输入代码

Public Class Form Inherits System Windows Forms Form Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load Dim pos As Point = New Point( ) 设置窗体初始位置 Me DesktopLocation = pos Timer Interval = 设置Timer的值 Timer Enabled = True Timer Interval = Timer Enabled = False End Sub

　　进入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick Dim pos As Point = New Point(Me DesktopLocation X + Me DesktopLocation Y + ) 窗体左上方横坐标的timer 加 If pos X < Or pos Y < Then Me DesktopLocation = pos Else Timer Enabled = False Timer Enabled = True End If End Sub

　　进入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As System Object ByVal e As System EventArgs) Handles Timer Tick

Dim pos As Point = New Point(Me DesktopLocation X Me DesktopLocation Y ) 窗体的左上方横坐标随着timer 减一

If pos X > Or pos Y > Then Me DesktopLocation = pos Else Timer Enabled = True Timer Enabled = False End If End Sub

　　创建完成后我们来运行程序测试一下测试成功程序在屏幕中不断地来回走动了

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

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

cha138/Article/program/net/201311/14511