vb点虐 编写服务程序 vb编写web服务器

如何编写VB.NET 接口程序

可以的，把项目的类型设成类库，将所有的函数用Public修饰附封装在类里面，生成dll文件。这样别人就可以在别人项目属性的引用页里面添加对你的dll文件的引用，然后导入命名空间，直接使用了。

内丘网站建设公司创新互联公司,内丘网站设计制作，有大型网站制作公司丰富经验。已为内丘上千家提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱，请找那个售后服务好的内丘做网站的公司定做！

比如说，在一个项目里：

NameSpace Controller

Public Class ControlMachine

Public Sub Boot()

End Sub

Public Sub Shutdown()

End Sub

End Class

End NameSpace

进入另一个项目的项目属性，进入引用页，添加到那个dll文件的引用。在代码中：

Imports Controller '加在代码文档的最顶端

使用：

Dim controller As New ControlMachine

controller.Boot()

controller.Shutdown()

希望你能了解，不懂再追问

如何利用VB编写NT服务程序

一、NT服务程序

所谓NT服务，实际上就是一个可以在系统启动时自动在一定身份下启动的伴随系统长时间存在的进程。象FTP server、HTTP server、脱机打印等都是采用NT服务的形式提供的。这实际上类似Unix的root daemon进程。NT服务归纳起来，NT服务又以下几个特征：

1、可以自启动，不需要交互启动。这对于服务器来说是一个重要的特征。当然，你可以决定服务是否自启动，甚至可以屏蔽某个服务。

2、NT服务没有用户界面，基本上类似一个DOS 程序，因为NT服务必须长时间运行，所以不想普通win32进程一样有自己的界面。但是NT服务可以同用户有界面交互，这是一类特殊的服务进程。可以通过NT的任务管理器来看到服务进程。

3、NT服务通过SCM（Services Control Manager）接口来管理，安装、启动、停止、撤除等都需要SCM的接口功能来进行。控制面板的服务控制器就是利用SCM接口来管理系统中的所有服务的。实际上，还有一些可以控制服务的程序或者命令，有net.exe 、服务器管理器等 、SCM.exe等。

4、这些进程都以一定的身份运行，以方便进行服务器资源的存取。一般情况下使用域中的LocalSystem账号运行，此账号对本机上的大多数资源（除非特别禁止）有完全的存取权限，这样可以保证服务程序的“强大”。但是，也有些服务采用特别的账号运行，你也可以特别设定一个服务的帐号。

5、由系统自动以线程方式运行，一般情况下不过多占用系统资源，这同普通的进程有所区别，如果不采用线程方式，一般进程往往消耗整个CPU资源。一般需要时时存在，又不能过多消耗资源的任务以服务来实现最合适。

二、服务控件

一般认为编写NT服务需要使用C/C++来实现，VC6利用ATL向导来提供一个基本的服务框架。具体实现步骤为:FileàNew…àATL COM AppWizardàserviceàFinish.但是使用VC编写NT服务需要编写太多的代码，这也意味着需要太多的调试、维护。实际上，NT服务不是必须由C/C++才可以编写的，实际上可以由任何能够实现上一节几个特点的任何语言实现，包括VB。

VB编写服务有那些好处呢，至少可以列出以下几条：

1、编码简单，熟悉Vb语法的任何人理解本文后都可编写。

2、意味着修改服务实现的逻辑简单，维护简单。

3、可以利用几乎大多数的Vb中的组件功能，编写一个强大的服务，譬如ado等，如果用VC来实现，相信任何人都会发怵。

4、(牵强一点)可以证明Vb在Bill的天空下是多么强大。

那么，Vb如何实现NT服务编写呢？据我所至，至少有两种途径：

1、 按照C/C++的思路利用WinAPI来实现。

2、 利用组件按照Vb传统方式实现。

如果利用方法1实际上是照搬C/C++的套路，如果有更好的路子可以实现，相信任何人都不会走这条“绝路”，因为相对于其他语言来说这种编程完全丧失了Vb自身得特点同时也没有获得其他语言的任何优势。在这里，想告诉大家的是利用OCX来实现一个服务。如果您在MSDN中搜索Samples/msdn/techart/4920/，您可以看到一个已经编写好的vc5的工程文件。编译这个工程实际上会得到一个ntsvc.ocx的。如果您对C/C++不熟悉，可以从 下载一个ntsvc.ocx,此OCX是我从backoffice碟中获得的，将其拷贝到/winnt/system32/下，利用regsvr32 ntsvc.ocx命令注册之。这样，您的Vb就可以从project/components…引出的对话框列表中看到名为“Microsoft NT Service Control”项。此组件拥有我们创建一个服务的基本的功能,如果要编写一个NT服务，我们将其拖进我们的窗体，然后设定其属性，调用其与系统、注册表、SCM交互的功能就可以实现完成一个服务了。

我们首先了解这个组件的属性，并向大家解释这些属性的用法：

Account String ,账号属性，即本NT服务在哪一个NT域账号下运行，缺省是LocalSystem账号，实际上大多数的NT服务都可以在此账号下安全圆满的运行。

ControlsAccepted Long,此服务接受那些SCM控制，为以下值：

0 允许Start 以及 Stop .

2 允许Pause 以及 Continue .

4 允许 shutdown 。

其他值，用户自定义的某些事件.

利用这个属性，您可以自己决定NT服务进程某个（譬如某个不可中断操作）时刻是否允许SCM停止、暂停、启动等操作。

Dependencies String ,如果您编写的服务依赖于某个或者某些服务才能正常运行，您必须在注册服务时指定依赖的服务列表。Dependencies按照依赖顺序以chr(0)来分隔多个服务，最后必须以两个chr(0)结束。（大家可以看到这是一个C/C++的存在痕迹）

DisplayName String,显示名，NT服务以何种名字显示给察看者。

Interactive Boolean ,是否允许有同桌面用户有交互的部分。

LoadOrderGroup String,同Dependencies相关，决定如果本服务启动之前，那些服务必须启动，格式也类似，也以chr(0)分割，连续的两个chr(0)结尾。

Password String,服务启动的口令，如果使用缺省得账号，就没有必要设定服务启动的帐号。

ServiceName String,服务名，如果使用net.exe来控制服务，net.exe的指定那一个服务的参数就是此属性中的字符串。

StartMode 枚举型，具体为：

vcStartAutomatic 2 服务可以自己启动

svcStartManual 3 服务手动启动

svcStartDisabled 4 服务不能自启动

另外有一个Debug属性，不做讨论。

我们要将一个VB程序当作一个NT服务，必须向系统作一些“申请”,而相应的工作VB是无法很好的完成的。所以，NTSVC.ocx提供了相应的方法留作我们想系统传递相关信息。

Install ,将当前Vb程序安装成NT服务，在此之前，您必须至少设置DisplayName, ServiceName, ControlsAccepted以及StartMode等属性。除此之外您可能还要设置Account、Password、LoadOrderGroup、Dependencies等。这些信息的设置正确与否，决定您的服务程序能否正常启动运行。

Uninstall, 将当前NTSVC.ocx指定的服务从系统注册表中删除。NT服务取决于系统服务注册表的设定，这是一个众所周知的秘密。

StartService，将指定的服务启动，如果该服务注册了。

StopService，停止服务，如果服务正在运行。

LogEvent ,记录服务事件。服务运行中，可能发生错误以及意料不到的事件，这些可以通过此方法记录下来，供管理员通过“事件察看器”察看相关的信息，以最优化服务。此方法有三个参数event, id, message. Event指发生的事件类型，可以设为以下值：

svcEventError 1 错误事件

svcEventWarning 2 警告事件.

svcEventInformation 4 提供参考信息.

svcEventAuditSuccess 8 审计成功.

svcEventAuditFailure 10 审计失败

除了以上方法，可能用户还需要读写注册表，此控件还提供了注册表的访问方法：

DeleteSetting (section[, key])

GetAllSettings(section)

GetSetting(section, key[, default])

SaveSetting(section, key, setting).

三、编写服务

了解以上内容，下面我们开始来设计一个服务，通过例子，让大家理解如何在VB中编写服务.

在此之前，我们决定写一个什么样的服务。我参考C++Build中的一个例子，写一个不断报警的服务进程。该进程启动后在后台不断间隔5秒发出Beep叫，这可以让大家更深切知道此服务的存在，虽然有些令人讨厌。服务的名字为VBBeepSVC,在SCM中显示为The VB NT SVC View。

跟着我一起来吧！

1、创建工程，设定相关使用到的控件。

所有的Vb的控件必须有一个Form作为载体，所以，首先我们创建一个标准工程,选择菜单project—Components…,然后选取（Microsoft NT Service Control）,会在Toolbar中出现NT服务控件。再拖一个Timer控件到Form上。然后保存一下。基本上，创建过程完成。

2、设定控件属性。

选中NtSvc.ocx实例，在属性栏中设定：DisplayName: The VB NT SVC View,ServiceName: VBBeepSVC,StartMode:3(手动启动服务).其他的就缺省吧。

由于我们希望每个5秒就beep一次，所以我们必须依靠一种定时机制来实现，所以我们将timer的Interval设定位5000毫秒。

以上属性的设定视您的需要而定，我只是说在我的VBBeepSVC中如此设定足够了。

3、编写代码，实现服务逻辑以及服务安装、撤除。

因为服务程序实际上是一个Exe文件，并且需要自己解决安装、撤除问题，因此需要在此程序中加入利用NT服务控件来实现安装、撤除问题。那么，应当在什么时候进行了。VB程序启动时正时Form装载的时候，所以，我们需要在窗体的Load事件中加入一些代码：

On Error GoTo Err_Load ‘如果出现错误就纪录以供参考

Dim strDisplayName As String

strDisplayName = NTService1.DisplayName

If Command = "-install" Then ‘当启动时带上 –install的参数时

NTService1.Interactive = True

If NTService1.Install Then

Call NTService1.SaveSetting("Parameters", "TimerInterval", "1000") ‘系统参数存储

MsgBox strDisplayName " 安装成功！"

Else

MsgBox strDisplayName " 安装失败"

End If

End ‘终止安装

Else

If Command = "-uninstall" Then ‘如果启动时带上 撤除参数

If NTService1.Uninstall Then

MsgBox strDisplayName " 撤除成功"

Else

MsgBox strDisplayName " 撤除失败"

End If

End ‘终止撤除

Else

End If

End If

‘假若不是安装或撤除操作，即为启动服务

Timer1.Interval = CInt(NTService1.GetSetting("Parameters", "TimerInterval", "2000"))

‘使用Timer控件来模拟服务的线程特性

NTService1.ControlsAccepted = svcCtrlPauseContinue ‘接受暂停、停止操作，意味着需要为此编码

NTService1.StartService ‘设置好参数后启动服务

Err_Load:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" Err.Number "] " Err.Description) ‘svcMessageError为NT服务控件的错误值

4、添加控制服务的代码。

尽管服务的连续线程等特性是依赖Timer实现的，但是服务的控制却是有SCM接口向每一个服务发出的，表现在VB服务程序中为NT服务控件捕获到相关的事件发生，我们就应当在这些事件中根据具体的情况响应，决定能不能、如何控制服务逻辑。当然，具体的逻辑在Timer事件中表现，但是通过改变NT服务控件和Timer控件均支持的全局变量，可以实现控制服务的逻辑实现。具体代码演示：

Private Sub NTService1_Control(ByVal EventID As Long)

On Error GoTo Err_Control

‘在此加入一些自己的处理逻辑，当然也可以如本例一样空缺

Err_Control:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" Err.Number "] " Err.Description) ‘纪录

End Sub

Private Sub NTService1_Pause(Success As Boolean)

On Error GoTo Err_Pause

Timer1.Enabled = False ‘禁止Timer事件，因此也停止了服务的发生

Call NTService1.LogEvent(svcEventError, svcMessageError, "Service paused")

Success = True ‘返回给SCM命令发出者,表示服务成功停止

Err_Pause:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" Err.Number "] " Err.Description)

End Sub

Private Sub NTService1_Start(Success As Boolean)

On Error GoTo Err_Start

Success = True

Timer1.Enabled = True ‘允许服务逻辑进行

Err_Start:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" Err.Number "] " Err.Description)

End Sub

Private Sub NTService1_Stop()

On Error GoTo Err_Stop

Unload Me ‘撤除Form,自然Timer也不存在，服务逻辑停止了

Err_Stop:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" Err.Number "] " Err.Description)

End Sub

5、编写服务逻辑。

具体就是在Timer事件中，根据约定写一些服务细节。本例中就是发出Been，但是考虑到对SCM命令的响应，所以需要编码为：

On Error GoTo Err_Timer

Beep ‘此处即具体的服务细节

Err_Timer:

Call NTService1.LogEvent(svcMessageError, svcEventError, "[" Err.Number "] " Err.Description)

End Sub

6、编译安装、测试

如果以上没有什么错误的话，现在可以编译程序了。假设我们得到的服务程序的文件名为：VBBeepSVC.exe,我们需要通过以下命令进行安装：

d:/vbprog/VBBeepSVC –install

如果需要撤除已经安装的服务，则：

d:/vbprog/VBBeepSVC –uninstall

安装完后，打开控制面板的“服务”（win2000中在“管理工具”）,好了，看到其中的NT服务列表中包含我们加入的服务，显示为：“The VB NT SVC View”，我们可以类似启动其他任何服务一样启动、停止、暂停此服务。启动服务时，我们会听到服务发出的讨厌的beep声音。我们的测试完成。

四、VB编写服务的几个说明：

1、首先声明：VB编写服务是一种尝试，技术研究，并非提倡所有服务都要用VB写才对头。同理，也说明了服务非VC写不可。

2、VB写的服务仅适合win32服务，不适合NT底层服务。

3、VB的优势在ActiveX控件，NT服务中我们可以使用绝大多数控件来完成我们的服务逻辑，譬如涉及数据库操作，我们可以使用ADO组件，这方面，同VC相比，VB具有天然的优势。

4、做好服务内部的错误事件记载，只有用好这一点，才能够真正符合服务编写规范，也方便我们的除错。

5、最后一点，本文仅供参考，如有错误以及错误引起的后果，本人概不负责.

转载

VB.Net编程实现Web Service的基础

WebService目前可是目前计算机界一个非常流行的技术了 以至于有些人把WebService列入目前最热门的十大技术之一 的确随着互联网的广泛应用和发展 尤其是电子商务的发展 出于互联网上各种复杂的应用系统和对更高安全性的要求 WebService的横空出世的确满足了当前这些的要求和需要 其中的原因在下文中有详细的介绍 本文的主要内容是简要介绍一下WebService的相关知识 以及使用VisualBasic Net实现WebServices的具体方法和典型步骤

一 WebService为何物 我们为什么需要它

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

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

二 和Web Service相关的标准 协议

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

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

HTTP 应用程序是提供HTTP协议来调用Web Service的 所以HTTP在Web Service调用过程中 起著通道的作用

WSDL 是Web Service描述语言的简写 它是XML格式 其作用是描述Web Service 指示应用程序和与Web Servie交互的方法 当实现了某种Web Service服务时 为了让别的程序调用 就必须告诉此Web Service的接口 如 服务名称 服务所在的机器名称 监听端口号 传递参数的类型等等 WSDL就是规定了有关Web Services描述的标准

UDDI 是Universal Description Discovery and Integration的缩写 简单说 UDDI用于集中存放和查找WSDL描述文件 起著目录服务器的作用

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

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

（ ） 微软公司视窗 中文企业版

（ ） Visual Studio Net 企业构建版 Net FrameWork SDK 版本号

（ ） IIS服务启动

四 Visual Basic Net实现Web Service

Net 的大的推动了Web Service的发展 而Visual Studio Net的出现又极大的推动了Web Service的的广泛应用 在Visual Studio Net推出之前 编写一个Web Service是一项非常复杂的工作 同样调用这个Web Service也十分麻烦 由于Visual Studio Net对Web Service提供了较强的支持 很多细致 烦杂的工作都由Visual Studio Net自动完成了 这样就使得上述工作变得非常简单 甚至不了解Web Service和其相关的标准 协议 也可以使用Visual Studio Net编写Web Service 并使用这个Web Service 下面就来用Visual Basic Net实现一个Web Service 此Web Service和数据库相关 数据库类型选用的是Sql Server 此Web Service提供了二个函数功能调用 其一名称为Binding 用以实现数据绑定 其二名称为Update 用以更新数据库中的数据

以下就是Visual Basic Net实现此Web Service的具体步骤

启动Visual Studio Net

选择菜单「文件」|「新建」|「项目」后 弹出「新建项目」对话框

将「项目类型」设置为「Visual Basic项目」

将「模板」设置为「ASP NET Web 服务」

在「位置」的文本框中输入//localhost/UpdateDataWebService 后 单击「确定」按钮 这样在Visual Studio Net就会计算机Internet信息服务的默认目录中创建一个名称为 UpdateDataWebService 文件夹 里面存放的是此项目的文件 具体如图 所示

图 创建Web Service项目对话框

选中「解决方案资源管理器」中的 Service a *** x 文件 单击鼠标右键 在弹出的菜单中选择「查看代码」 则进入Service a *** x vb的编辑界面

在Service a *** x……vb的首部 在导入命名空间的代码区中添加下列代码 下列代码作用是导入命名空间System Data SqlClient

Imports System Data SqlClient

在Service a *** x……vb文件的 Public Class Service Inherits System Web Services WebService 代码后 添加下列代码 下列代码是在Web Service中定义二个功能调用

WebMethod ( ) Public Function Binding ( ) As DataSet　Dim con As New SqlConnection ( Server = localhost ; uid = sa ; pwd = ; database = northwind )　Dim daCust As New SqlDataAdapter ( Select * From Customers con )　Dim ds As New DataSet ( )　daCust Fill( ds Cust )　Return dsEnd FunctionWebMethod ( ) Public Function Update ( ByVal ds As DataSet ) As DataSet　Dim con As New SqlConnection ( Server = localhost ; uid = sa ; pwd = ; database = northwind )　Dim daCust As New SqlDataAdapter ( Select * From Customers con )　Dim cbCust As New SqlCommandBuilder ( daCust )　daCust Update ( ds Cust )　Return dsEnd Function

保存上述的修改 一个简单的操作Sql Server数据库的Web Service就完成了 此时单击快捷键F 此Web Service就开始运行 并可以对外提供服务了 具体如图 所示:

图 :Web Service提供服务是的界面

Service a *** x vb的代码清单如下:

Imports System Web ServicesImports System Data SqlClientWebService ( Namespace := ) _Public Class Service Inherits System Web Services WebServiceWebMethod ( ) Public Function Binding ( ) As DataSet Modify this Connection string to use your SQL Server and log on 　Dim con As New SqlConnection ( Server=localhost;uid=sa;pwd=;database=northwind )　Dim daCust As New SqlDataAdapter ( Select * From Customers con )　Dim ds As New DataSet ( )　daCust Fill ( ds Cust )　Return dsEnd FunctionWebMethod ( ) Public Function Update ( ByVal ds As DataSet ) As DataSet　Dim con As New SqlConnection ( Server=localhost;uid=sa;pwd=;database=northwind )　Dim daCust As New SqlDataAdapter ( Select * From Customers con )　Dim cbCust As New SqlCommandBuilder ( daCust )　daCust Update ( ds Cust )　Return dsEnd Function#Region Web 服务设计器生成的代码 Public Sub New ( )　MyBase New ( )　 该调用是 Web 服务设计器所必需的 　InitializeComponent ( )　 在 InitializeComponent ( ) 调用之后添加您自己的初始化代码End Sub Web 服务设计器所必需的Private ponents As System ComponentModel IContainer　 注意 以下过程是 Web 服务设计器所必需的　 可以使用 Web 服务设计器修改此过程 　 不要使用代码编辑器修改它 　System Diagnostics DebuggerStepThrough ( ) Private Sub InitializeComponent ( )　ponents = New System ComponentModel Container ( )End SubProtected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) CODEGEN: 此过程是 Web 服务设计器所必需的 不要使用代码编辑器修改它 If disposing Then　If Not ( ponents Is Nothing ) Thenponents Dispose ( )　End IfEnd IfMyBase Dispose ( disposing )End Sub#End Region Web 服务示例 HelloWorld ( ) 示例服务返回字符串 Hello World 若要生成项目 请取消注释以下行 然后保存并生成项目 若要测试此 Web 服务 请确保 a *** x 文件为起始页 并按 F 键 WebMethod ( ) Public Function HelloWorld ( ) As String HelloWorld = Hello World End FunctionEnd Class

下面就来介绍Visual Basic Net中使用这个Web Service提供的服务来更新数据库的实现方法

五 在Visual Basic Net调用Web Service提供的服务:

当Web Service已经处于对外提供服务状态 Visual Basic Net就可以通过HTTP 调用 来使用这些服务了 当然前提是要了解Web Service对外提供服务所对应的URL 当了解到Web Service对应的URL后 Visual Basic Net就像是使用本地的类库一样使用Web Service中提供的各种功能 所以有些人说 Web Service从实质上说 就是通过HTTP调用远程组件的一种方式 在Visual Basic Net具体实现加入Web Service可参阅下面步骤中的第七步

在下面介绍的这个数据库应用程序是通过使用上面的Web Service中提供的 Binding 服务 对程序中DataGrid组件实现数据绑定 提供使用Web Service中提供的 Update 服务 通过程序中的DataGrid来修改数据库 下面就是Visual Basic Net中使用Web Service提供服务来编写数据库应用程序的具体步骤 :

启动Visual Studio Net

选择菜单【文件】|【新建】|【项目】后 弹出【新建项目】对话框

将【项目类型】设置为【Visual Basic项目】

将【模板】设置为【Windows应用程序】

在【名称】文本框中输入【TestWebService】

在【位置】的文本框中输入【E:\VS NET项目】 然后单击【确定】按钮 这样在 E:\VS NET项目 中就产生了名称为 TestWebService 文件夹 里面存放的就是TestWebService项目的所有文件

选择【解决方案资源管理器】|【引用】后 单击鼠标右键 在弹出的菜单中选择【添加Web 引用】 在弹出的【添加Web引用】对话框中的【地址】文本框中输入 后 单击回车键后 可得图 所示界面 单击图 中【添加引用】按钮 则在【TestWebService】项目中加入了Web引用 请注意 就是上面完成的Web Service对外提供服务的URL地址 具体可参阅图 所示:

图 :在【TestWebService】添加Web Service提供的服务

从【工具箱】中的【Windows窗体组件】选项卡中往Form 窗体中拖入下列组件 并执行相应的操作:

一个DataGrid组件

二个Button组件 分别是Button 至Button 并在这二个Button组件拖入Form 的设计窗体后 分别双击它们 则系统会在Form vb文件分别产生这二个组件的Click事件对应的处理代码

按照表 所示调整窗体中各组件属性的数值

组件类型 组件名称 属性 设置结果 Form Form Text 测试Web Service Form MaximizeBox False Form FormBorderStyle FixedSingle Button Button Text 绑定 Button FlatStyle Flat Button Text 修改 Button FlatStyle Flat 　

表 :【TestWebService】项目中组件的主要属性及其对应数值

在调整完组件属性值后 再按照图 所示调整组件的位置和排列顺序:

图 :【TestWebService】项目中组件排列位置和顺序

把Visual Studio Net的当前窗口切换到Form vb的代码编辑窗口 并用下列代码替换Form vb中的Button 的Click事件对应的处理代码 下列代码功能是使用Web Service中提供的 Binding 服务对DataGrid组件实现数据绑定:

Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　DataGrid DataSource = MyService Binding ( )　DataGrid DataMember = Cust End Sub

用下列代码替换Form vb中的Button 的Click事件对应的处理代码 下列代码功能是使用Web Service中提供的 Update 服务实现通过DataGrid来修改数据库数据:

Private Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　Dim ds As DataSet = DataGrid DataSource　Dim dsChanges As DataSet = ds GetChanges ( )　If Not ( dsChanges Is Nothing ) Thends Merge ( MyService Update ( dsChanges ) True )　End IfEnd Sub

至此 【TestWebService】项目的全部工作就完成了 调用Web Service是不是很简单 此时单击快捷键F 运行程序后 单击程序中的【绑定】按钮就会对程序中的DataGrid组件实现数据绑定 单击程序中的【修改】按钮 则程序会根据DataGrid中的内容来更新数据库 图 就是【TestWebService】的运行界面:

图 :【TestWebService】的运行界面

Form vb的代码清单如下:

Public Class Form Inherits System Windows Forms Form#Region Windows 窗体设计器生成的代码 Public Sub New ( )　MyBase New ( )　 该调用是 Windows 窗体设计器所必需的 　InitializeComponent ( )　 在 InitializeComponent ( ) 调用之后添加任何初始化End Sub 窗体重写处置以清理组件列表 Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )　If disposing ThenIf Not ( ponents Is Nothing ) Then　ponents Dispose ( )End If　End If　MyBase Dispose ( disposing )End Sub Windows 窗体设计器所必需的Private ponents As System ComponentModel IContainer　 注意 以下过程是 Windows 窗体设计器所必需的　 可以使用 Windows 窗体设计器修改此过程 　 不要使用代码编辑器修改它 　Friend WithEvents Button As System Windows Forms Button　Friend WithEvents Button As System Windows Forms Button　Friend WithEvents DataGrid As System Windows Forms DataGrid　System Diagnostics DebuggerStepThrough ( ) Private Sub InitializeComponent ( )　Me Button = New System Windows Forms Button ( )　Me Button = New System Windows Forms Button ( )　Me DataGrid = New System Windows Forms DataGrid ( )　CType ( Me DataGrid System ComponentModel ISupportInitialize ) BeginInit ( )　Me SuspendLayout ( )　Me Button FlatStyle = System Windows Forms FlatStyle Flat　Me Button Location = New System Drawing Point ( )　Me Button Name = Button 　Me Button Size = New System Drawing Size ( )　Me Button TabIndex = 　Me Button Text = 绑定 　Me Button FlatStyle = System Windows Forms FlatStyle Flat　Me Button Location = New System Drawing Point ( )　Me Button Name = Button 　Me Button Size = New System Drawing Size ( )　Me Button TabIndex = 　Me Button Text = 修改 　Me DataGrid DataMember = 　Me DataGrid Dock = System Windows Forms DockStyle Top　Me DataGrid HeaderForeColor = System Drawing SystemColors ControlText　Me DataGrid Name = DataGrid 　Me DataGrid Size = New System Drawing Size ( )　Me DataGrid TabIndex = 　Me AutoScaleBaseSize = New System Drawing Size ( )　Me ClientSize = New System Drawing Size ( )　Me Controls AddRange ( New System Windows Forms Control ( ) {Me DataGrid Me Button Me Button } )　Me Name = Form 　Me Text = 测试Web Service 　CType ( Me DataGrid System ComponentModel ISupportInitialize ) EndInit ( )　Me ResumeLayout ( False )End Sub#End RegionPrivate Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　DataGrid DataSource = MyService Binding ( )　DataGrid DataMember = Cust End SubPrivate Sub Button _Click ( ByVal sender As System Object ByVal e As System EventArgs ) Handles Button Click　Dim MyService As New localhost Service ( )　Dim ds As DataSet = DataGrid DataSource　Dim dsChanges As DataSet = ds GetChanges ( )　If Not ( dsChanges Is Nothing ) Thends Merge ( MyService Update ( dsChanges ) True )　End IfEnd SubEnd Class

六 总结

lishixinzhi/Article/program/net/201311/11839

文章题目：vb点虐 编写服务程序 vb编写web服务器
文章出自：http://6mz.cn/article/ddcpjjc.html