ASP.NET

Imports System.ServiceModel
Imports Microsoft.VisualBasic

Public Class channelFactory

    Private factory As New ChannelFactory(Of ServiceModel.IServiceChannel)("WSHttpBinding_ISampleService")
    Private wcfClientChannel As ServiceModel.IServiceChannel

    Private address As EndpointAddress
    Private channel As IClientChannel
    Private binding As WSHttpBinding
    Private source As String

    Public Sub New(ByVal Source As String)

        factory.Endpoint.Behaviors.Add(New EndpointBehaviorMessageInspector())
        wcfClientChannel = factory.CreateChannel()
        address = New EndpointAddress(Source)

        binding = New WSHttpBinding()
        binding.MaxReceivedMessageSize = 2147483647
        binding.ReaderQuotas.MaxArrayLength = 2147483647
        binding.MaxBufferPoolSize = 2147483647
        binding.SendTimeout = New TimeSpan(1, 1, 1)
        binding.ReceiveTimeout = New TimeSpan(1, 1, 1)
        binding.CloseTimeout = New TimeSpan(1, 1, 1)
        binding.OpenTimeout = New TimeSpan(1, 1, 1)

        channel = factory.CreateChannel(address)

    End Sub
    Protected Overrides Sub Finalize()

        factory.Close()

    End Sub
    Public Function sendMessage(ByRef m_Structure As messageStructure) As Integer

        Dim dwExitCode As Integer = 0

        'Send Request

        'Get Response

        'Parse response

        'Update Structure
        m_Structure.m_ID = 0
        m_Structure.m_Name = ""
        m_Structure.m_Task = ""

        Return dwExitCode

    End Function

End Class
Public Class EndpointBehaviorMessageInspector

End Class
Public Structure messageStructure

    Dim m_ID As Integer
    Dim m_Name As String
    Dim m_Task As Integer

End Structure

<WebService(Namespace:="http://www.ice5ommerce.com/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<System.Web.Script.Services.ScriptService()> _
Public Class ws_classic1
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function load_RItem(ByVal product_ID As Integer) As String

indian143 wrote:

http://domain.name

private void UsersDataGrid_SelectedIndexChanged(object sender, System.EventArgs e)
{
    LabelInfo.Text = UsersDataGrid.SelectedItem.Cells[1].Text;
}