甜橘子，专注成都网站制作网站设计与营销型网站建设与优化
QQ :532337155
电话：028-86922220
首先要添加两个窗体，假设第一个窗体名为Form1，第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为：
创新互联是专业的察哈尔右翼前网站建设公司，察哈尔右翼前接单;提供成都网站建设、做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行察哈尔右翼前网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
Private Sub Command1_Click()
Form2.Show '用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。可自行运行验证
本篇文章的主要开发环境是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 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 控件 为了突出效果为窗体选择一个好看的背景
相关的属性设置如下 TrackBar Value属性: TickFrequency: 属性: Maximum属性: Label Text属性: 选择窗体的透明度: Timer Interval属性:
进入代码编辑器 输入代码
首先进行声明 Public Class Form Inherits System Windows Forms Form Dim tps As IntegerDim bol As Boolean 进入TrackBar _Scroll事件 Private Sub TrackBar _Scroll(ByVal sender As Object ByVal e As System EventArgs) Handles TrackBar Scroll Me 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 Tick If bol = False Then tps = tps + Me Opacity = tps / If Me Opacity = Then Timer Enabled = False bol = True End If Else tps = tps Me Opacity = tps / If Me Opacity = Then Timer Enabled = False bol = False End If End If End Sub 进入Form _Load事件
Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load Timer Enabled = TrueEnd Sub 进入Form _Closing事件 Private Sub Form _Closing(ByVal sender As Object ByVal e As System ComponentModel CancelEventArgs) Handles MyBase Closing Timer Enabled = True If MsgBox( 你确实要关闭窗体吗？ MsgBoxStyle OkCancel) = MsgBoxResult Ok Then e Cancel = False Else Timer Enabled = False Me Opacity = tps = bol = True e Cancel = True End IfEnd Sub 创建完成后我们来运行程序测试一下 测试成功 程序窗体是不是变得透明了 通过调节滚动条我们甚至可以使得窗体消失达到完全隐形的目的 这是不是很神奇呢？
lishixinzhi/Article/program/net/201311/11580
Me.Height = My.Computer.Screen.Bounds.Height
Me.Width = My.Computer.Screen.Bounds.Width
这是设置窗体的长宽和屏幕的分辨率一样大小，相当于全屏。
如果Me.WindowState=FormWindowState.Maximized的话，只是单纯的将窗体最大化，但恢复窗口大小后窗体的大小实际上还和原来一样大。
VB.NET的特点
1.真正成为面向对象以及支持继承性的语言。
2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据。
3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性，也可以与其他的.NET语言交互。
4.为Windows应用程序提供了XCOPY部署，开发者不再需要为DLL的版本问题担忧。