Array de Objetos en vb.net

[TR]

hola,

soy un novato un vb.net y estoy intentando crear una clase con un
costructor. y en otra clase,, quiero crear un array de objetos de la
clase anterior... e inicializarlos.

estoy un poco perdido , haber si me pueden echar una mano.

este es el codigo que tengo para crear el array de objetos de la clase y
su inicializacion... seguramente este mal:

Dim Contactos As Contacto()

Contactos(0) = New Contacto("Alexis Reátegui",
"ale...@hotmail.com","5552266")
Contactos(1) = New Contacto("Jorge Oblitas",
"drago...@hotmail.com","4444466")
Contactos(2) = New Contacto("Sergio Victorio",
"t-se...@microsoft.com","3333366")
Contactos(3) = New Contacto("Guino Henostroza",
"gu...@hotmail.com","4564433")

y la clase Contacto que tengo es la siguiente... no se rian, porque esta
mal, pero es que no se :(

Public class Contacto

Dim Nombre As String;
Dim Email As String;
Dim Telefono As String;

Public Function New()
End Function

Public Function New(nombre1 As string, email1As string, telefono1 As
string)
Nombre= nombre1
Email=email1
Telefono=telefono1
End Function
End Class

Agradeceria mucho que me dijeran lo que esta mal... y como
solucionarlo... llevo unos dias trabado con esto.

Saludos y muchas gracias

[TR]

hola.

ya esta solucionado, pero el problema ahora.. es que cuando invoko a la
funciona para que devuelva el XML con los datos del array de los
objetos... no sale nada.. da error de pagina.

puede ser esto... <WebMethod> Function vercontacto() As Contacto()
que no devuelve nada?

Saludos,

<%@ WebService language="VB" class="Sample" %>

Imports System
Imports System.Web.Services
Imports System.Xml.Serialization

<WebService(Namespace:="http://microsoft.com/webservices/")> Public
Class Sample

<WebMethod> Public Function Sumar(a As Integer, b As Integer) As
Integer
Return a + b
End Function

<WebMethod> Function vercontacto() As Contacto()
Dim Contacto As Contacto()
ReDim Preserve Contacto(0)

Contacto(0) = New Contacto ("Alexis Reátegui",
"ale...@hotmail.com","5552266")
Contacto(1) = New Contacto ("Jorge Oblitas",
"drago...@hotmail.com","4444466")
Contacto(2) = New Contacto ("Sergio Victorio",
"t-se...@microsoft.com","3333366")
Contacto(3) = New Contacto ("Guino Henostroza",
"gu...@hotmail.com","4564433")

End Function

End Class

Public class Contacto

<XmlAttribute("name")> Dim Nombre As String
<XmlAttribute("email")> Dim Email As String
<XmlAttribute("phone")> Dim Telefono As String

Public Sub New()
End Sub

Public Sub New(nombre1 As string, email1 As string, telefono1 As string)
Nombre= nombre1
Email=email1
Telefono=telefono1
End Sub
End Class

TR escribió:

[Michael Giagnocavo [MVP]]

Que error te da?

Si recuerdo bien, tendras que declarar el tamano de tu array:

Dim Contacts() as Contacts() = new Contacts(5) 'Algo asi

-mike
MVP

"TR" <pi...@nin.com> wrote in message news:3FABEB9D...@nin.com...