Sys.Net.ReturnComplexType Sample

vb/HandleColor.asmx

<%@ WebService Language="VB" Class="Samples.AspNet.HandleColor" %>

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Web.Script.Services
Imports System.Web.Script.Serialization

Namespace Samples.AspNet
    ' Define the color object to
    ' exchange with the client.
    Public Class ColorObject
        Public message As String = "The default color is Blue."
        Public rgb() As String = {"00", "00", "FF"}
        Public timeStamp As String
    End Class 'ColorObject 

    <WebService([Namespace]:="http://tempuri.org/")> _
    <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
    <GenerateScriptType(GetType(ColorObject))> _
    <ScriptService()> _
    Public Class HandleColor
        Inherits System.Web.Services.WebService
    
    
        <WebMethod()> _
        Public Function GetDefaultColor() As ColorObject
            ' Instantiate the default color object.
            Dim co As New ColorObject()
            ' Set time stamp.
            co.timeStamp = DateTime.Now.ToString()
        
            Return co
    
        End Function 'GetDefaultColor
    
    
        <WebMethod()> _
        Public Function ChangeDefaultColor( _
        ByVal color As ColorObject) As ColorObject
            ' Instantiate the default color object.
            Dim co As New ColorObject()
            ' Assign the passed values.
            co.message = color.message
            co.rgb = color.rgb
            ' Set time stamp.
            co.timeStamp = DateTime.Now.ToString()
        
            Return co
    
        End Function 'ChangeDefaultColor 
    
    End Class 'HandleColor

End Namespace