สามารถสร้างเป็น Step ตามนี้นะครับ step 1 เราต้องทำการสร้าง Service step 2 การเรียกใช้งาน web service
http://my.opera.com/bemler/homes/blo...Visaul2005.gif
Stepที่1ทำการสร้างเว็บฌซอร์วิสที่ชื่อว่า sevice.asmx
โค้ด:
<%@ WebService Language="vb" CodeBehind="~/App_Code/Service.vb" Class="PinePacific_WebService" %>
step1 ที่2 Service.vbในโฟลเดอร์ App_Code เป็นต้น
โค้ด:
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
<WebService(Namespace:="http://microsoft.com/webservices/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class PinePacific_WebService
Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function HelloWorld() As String
Return "Hello World"
End Function
<WebMethod()> _
Public Function CalSquareArea(ByVal x As Integer, ByVal y As Integer) As Double
Return x * y
End Function
<WebMethod()> _
Public Function GetMonthlyReport(ByVal Keyword As String) As String
Dim strTable As String = ""
strTable = "<table border=1 bgcolor=gray> <tr><td><h1><center>Hibemler I comefrom"
strTable &= " :" & Keyword & "</center></h1></td></tr></table>"
Return strTable
End Function
End Class
เสร็จขั้นตอนการสร้างเว็บเซอร์วิส
##############################################################
2>>> วิธีการเรียกใช้เว็บเซอร์วิส
>ต้องทำการ add web referense ไปยังuri ที่เปิดให้บริการ srvice อยู่
>อ้างอิงชื่อคลาสแล้วเรียกใช้ได้เลย จากตัวอย่างข้างบนจะได้ว่า
Protected Sub submit_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim mm As New PinePacific_WebService
Dim result As Double = 0 : Dim strtmp As String = ""
result = mm.CalSquareArea(CInt(TextBox1.Text), CInt(TextBox2.Text))
TextBox3.Text = result
strtmp = mm.GetMonthlyReport("bemler ¹Ð¤ÃѺ")
Label1.Text = strtmp
End Sub
จบการเรียกใช้งานนะครับ B)
