位置:海鸟网 > IT > ASP.NET >

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

一.Web Service为何物,我们为什么需要它

Web Service的主要功能就是可以实现实现跨平台的功能调用。同时由于Web Service中使用XML来进行数据交换,所以在使用Web Service时不用担心防火墙的影响。由于Web Service集成了各种功能,并提供了一个友好的界面。所以在Web Service能够实现软件的重用。

另外Web Service的调用非常简单,简而言之调用互联网上的Web Service 就如同调用本地的组件一样简单,就是通过HTTP协议来调用互联网上的组件。至于具体的调用方法,请参阅本文第五节第七段的内容。所以Web Service就是互联网上的组件调用。

二.和Web Service相关的标准、协议

Web Service是通过一系列标准和协议来保证和程序之间的动态连接和实现其安全调用的。其中主要的标准和协议是:XML、WSDL、SOAP、HTTP、UDDI。下面就简要介绍这些标准和协议。

1. XML:Web Service之间和Web Service和应用程序之间都是采用XML进行数据交换的。Web Service由于基于了XML,,这样Web Service在具备XML带来的优势的同时,也拥有了由于XML所带来的缺点。其中XML所带来的最重要缺点就是Web Service将大量的占有CPU的资源,因为XML数据要经过多步处理才能被系统使用。所以,即使调用一个功能较小的Web Service,也会感觉速度很慢,所以网络中对运行Web Service的主机要求是很高的。

2. HTTP:应用程序是提供HTTP协议来调用Web Service的。所以HTTP在Web Service调用过程中,起着通道的作用。

3. WSDL::是Web Service描述语言的简写。它是XML格式,其作用是描述Web Service,指示应用程序和与Web Servie交互的方法。当实现了某种Web Service服务时,为了让别的程序调用,就必须告诉此Web Service的接口。如:服务名称,服务所在的机器名称,监听端口号,传递参数的类型等等。WSDL就是规定了有关Web Services描述的标准。
4. UDDI:是Universal Description, Discovery, and Integration的缩写。简单说,UDDI用于集中存放和查找WSDL描述文件,起着目录服务器的作用。

5. SOAP:是"Simple Object Access Protocol"的缩写,即:简单对象访问协议。SOAP是一种消息传递的协议,它规定了Web Services之间传递信息的方式。

三.本文章的程序设计、调试和运行的环境

(1).微软公司视窗2003中文企业版。

(2).Visual Studio .Net 2003企业构建版,.Net FrameWork SDK 1.1版本号4322。

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

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

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

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

进入代码编辑器,输入代码:

以下为引用的内容:
    Public Class Form1
    Inherits System.Windows.Forms.Form 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim pos 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 Sub Timer2_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减一
     

  If pos.X > 100 Or pos.Y > 50 Then
            Me.DesktopLocation = pos
        Else
            Timer1.Enabled = True
            Timer2.Enabled = False