Mi nombre es Carolina, soy de Caracas Venezuela.
Estoy estudiando para la segunda estrella de Microsoft y...
tengo un problemita.
Una de las tareas es pasar el código de un WebService hecho en C# a VB.Net.
El codigo que presento a continuacion posee un WebMethod que suma dos
valores y otro que debe mostrar contactos nuevos. Para esto además esta
definida una clase contacto que está al final.
He eliminado el código de la Región para que se vea más claro. Mi problema
está en el código del WebMethod para VerContacto. Ya hice la clase pero no
sé cómo hacer con el arreglo. He inventado miles de cosas. No conozco el
lenguaje C#, no sé muy bien sobre la equivalencia a VB.
En fin, esto así tal como está da error.
Gracias por la ayuda =)
Caro
PD: Esto sólo para los que no conocen muy bien la razón de ser de un Grupo
de Noticias, si me va a mandar a comprar libros como alguien hizo por ahí
alguna vez, le agradezco obvie esta petición de ayuda y no escriba nada.
GRACIAS.
Imports System.Web.Services
Imports System.Xml.Serialization
<System.Web.Services.WebService(Namespace:="
http://microsoft.com/webservices
/")> _
Public Class ojala
Inherits System.Web.Services.WebService
#Region " Código generado por el Diseñador de servicios Web "
<WebMethod()> Public Function Suma(ByVal a As Integer, ByVal b As Integer)
As Integer
Return a + b
End Function
<WebMethod()> Public Function VerContacto() As Contacto
'lo verde es código en C#
'Return New Contacto
Dim aContacto(4) As Contacto
aContacto(0).Nombre = "Alexis Reátegui"
aContacto(0).Email = "alexisr@hotmail.com"
aContacto(0).Telefono = "5552266"
aContacto(1).Nombre = "Jorge Oblitas"
aContacto(1).Email = "dragonsking@hotmail.com"
aContacto(1).Telefono = "4444466"
'New Contacto("Alexis Reátegui", "alexisr@hotmail.com", "5552266")
'New Contacto("Jorge Oblitas", "dragonsking@hotmail.com", "4444466")
'New Contacto("Sergio Victorio", "t-sergiv@microsoft.com", "3333366")
'New Contacto("Guino Henostroza", "guino@hotmail.com", "4564433")
' New Contacto("Daniel Seara", "daniseara@msn.com", "9987667")
Return aContacto(4)
End Function
Public Class Contacto
Public Nombre As String
Public Email As String
Public Telefono As String
'Todas las clases serializables en XML deben poder
'utilizar un constructor sin parámetros
Sub New()
'nada que hacer en este ejemplo
End Sub
Sub New(ByVal nombre As String, ByVal email As String, ByVal fono As String)
Me.Nombre = nombre
Me.Email = email
Me.Telefono = fono
End Sub
End Class
End Class
Últimos mensajes - Powered by IBM
Palabras claves
Hacer una pregunta
Siga el debate
Tengo una respuesta
Busqueda sugerida
Domingo 22 de diciembre - 12:31
Registrar
Leer las respuestas