VB.net2008精彩实例，窗体应用技巧

~

　　本篇文章的主要开发环境是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

---

吉州区13394881822： VB.NET2008如何做非矩形窗体???(背景用一幅图片,去杂色.像网络游戏登陆窗口那样.)？
寸彭山香：Me.TransparencyKey = Color.FromArgb(255, 255, 1)'透明色,自己选一个不用的 Me.BackColor = Me.TransparencyKey 然后就在窗体上贴图啦

吉州区13394881822： visual studio c#中窗体如何添加地图 - ？
寸彭山香： 以VS中的VB.NET2008为例.1)在窗体添加一个PictureBox控件.2)点它的Image属性-选择资源文件-本地资源-导入-选择需要添加的图片.3)点确定按钮.按F5运行.

吉州区13394881822： 实验3:编写一个VB.NET程序.要求在窗体上画一个文本框和两个按钮,把两个按钮的标题分别设置为“显示”和“清除”.程序运行后,在文本框中输入一行文字(例如＂VB. NET程序设计”),如果单击“显示”按钮,则把文本框中的内容显示为窗体标题;如果单击“清除”按钮,则清除文本框中的 - ？
寸彭山香： Private Sub Button1_Click() '按钮1 Me.Text = TextBox1.Text End Sub Private Sub Button2_Click() '清楚 TextBox1.Text = ＂＂ End Sub

吉州区13394881822： vb.net里关于web窗体布局 - ？
寸彭山香： 1、选中控件 布局-位置-(绝对、相对、静态)2、布局-位置-自动定位-HTML设计器-CSS定位-右边第一项打挑选择-(绝对、相对、静态)

吉州区13394881822： 基于VB.NET的windows窗体程序如何连接sql2008数据库,制作一个登录界面 - ？
寸彭山香： 这个问题好宽泛,简单说下步骤吧:简单来说,直接连接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四个控件,先写好连接字符串,然后建立连接,写好SQL语句,通过DataAdapter从数据库读取数据到...

吉州区13394881822： VB.NET2008我想要实现如下图的效果,点击左边的菜单,右边主体内容换个了窗口,怎么实现? 用什么实现 50 - ？
寸彭山香： 可以做一个基窗体作为父窗体,父窗体上有左边的菜单栏 然后所有画面都继承这个父窗体,然后所有页面都会有父窗体左边菜单栏了,每个页面内容自己加控件就行 就会显示都右边的 不知你是否理解 不理解可追问 ...

吉州区13394881822： 求助vb.net 2008 中 printPreviewDialog1预览窗口中如何添加按钮? - ？
寸彭山香： 新建form 窗体,把窗体设置成 MDI,然后加个菜单控件里面加个若干按钮,这里用菜单替代按钮效果.然后把 printPreviewDialog 放在 MDI 中运行即可.

吉州区13394881822： visual studio 2008中一个窗体程序 - ？
寸彭山香： 在点击OK按钮时,窗体上出现像删除文件一样有一页纸那样飘过去的图像,要动态的,点击'cancel'则停止的那样

吉州区13394881822： vs2008中窗体程序,例如我点击一个按钮进行某种操作, - ？
寸彭山香： 本人有两个思路1、设置其他按钮的enabled为false2、用一个全局变量bool index ,点击按钮,判断index,如果不为true则操作,并且赋值false给index,操作完成赋值true

吉州区13394881822： VB.NET 打开Excel追加一行数据 - ？
寸彭山香： VB.NET2008代码: Dim xlapp1 As Excel.Application Dim xlworksheet As Excel.Worksheet Dim xlworkbk As Excel.Workbook xlapp1 = New Excel.Application xlworkbk = xlapp1.Workbooks.Open(＂Excel文件名＂) xlworksheet = xlworkbk.Worksheets...