敬业的IT人 >> 编程开发 >> .Net技术 >> webservice系列教学（8）-如何调用webservice(vb.net)

webservice系列教学（8）-如何调用webservice(vb.net)

敬业的IT人互联网佚名 2008-5-23 18:01:04

　　4．7使用vb.net调用
无需下载任何组件
新建项目Visual Basic项目windows应用程序。
在解决方案资源管理器中添加web引用,输入wsdl文件所在地址。
将web引用改名为yundan.
yundan.（service_name）即可引用
*需引用System.web.services*
例程：
    Public Class Form1
        Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
    Public Sub New()
        MyBase.New()
        InitializeComponent()
    End Sub
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Private components As System.ComponentModel.IContainer
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.SuspendLayout()
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(96, 40)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(91, 14)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Webservice演示"
        Me.TextBox1.Location = New System.Drawing.Point(88, 144)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.TabIndex = 1
        Me.TextBox1.Text = "TextBox1"
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Label1})
        Me.Name = "Form1"
        Me.Text = "VB.NET webserive演示"
        Me.ResumeLayout(False)
    End Sub
#End Region
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cc As yundan.Service1 = New yundan.Service1()
        TextBox1.Text = cc.test(12, 123)
    End Sub
End Class

最新文章: 把握VB.NET中的流(Stream) (一)[05-23]; 把握VB.NET中的流(Stream) (三) Montaq..[05-23]; 把握VB.NET中的流(Stream) (二)[05-23]; 从头创建 Visual Basic .NET 控件 (五)[05-23]; 从头创建 Visual Basic .NET 控件 (四)[05-23]; 从头创建 Visual Basic .NET 控件 (七)[05-23]

相关文章: 把握VB.NET中的流(Stream) (一)[05-23]; 把握VB.NET中的流(Stream) (三) Montaq..[05-23]; 把握VB.NET中的流(Stream) (二)[05-23]; 给贝贝的，Base64编码（带有Q和B编码）——VB.NET[05-23]; 佳文推荐:运用VB.NET的面向对象的特征[05-23]; 介绍MS Agent控件在VB.NET中的应用[05-23]