Cita:
Iniciado por Peterpay 
colservicios.Add(nombredelservicio)
pon tu codigo para q lo podamos ver
Yo hago eso mismo para agregar los servicios, esto siempre desde clase controladora.
Pero, la profesora me dijo que al agregar los eventos, la clase eventos tiene que pedirle a la clase servicios los servicios existentes y que por lo tanto tengo que tener una colección de servicios en clase eventos.
Mi duda es que no puedo llamar a esa colección que está en eventos desde el modulo.
Esto que pongo abajo es mi intento de resolverlo.
Module 1
Código:
Console.WriteLine("A continuación debe elegir que servicios desea contratar")
Dim x As Integer = 0
For Each ser As Servicios In e.listaServicios
x += 1
Console.WriteLine(x & "-" & ser.ToString)
Next
servcont = Console.ReadLine()
Do
If Not IsNumeric(servcont) Then
Console.Write("Cantidad de invitados: ")
servcont = Console.ReadLine()
End If
Loop Until IsNumeric(servcont)
e.agregarservicioevento(CType(e.listaServicios.Item(servcont - 1), Servicios))
Empresa: (está función no contiene el agregar servicios ya que no supe como hacerlo)
Código:
Public Function RegistroEvento(ByVal dia As Integer, ByVal mes As Integer, _
ByVal año As Integer, ByVal cliente As String, _
ByVal direccion As String, ByVal tipo As Integer, _
If Not Me.existeEvento(cliente, CStr(dia), CStr(mes), CStr(año), direccion, CStr(tipo), CStr(invitados)) Then
Dim evento As New Evento
Me.listaEventos.Add(New Evento(dia, mes, año, cliente, direccion, tipo, invitados))
evento.asignarid()
Else
Console.WriteLine("Ya existe el evento elegido")
End If
'End If
Return RegistroEvento
End Function
Clase Eventos:
Código:
Public Function altaServicioparaunEvento(ByVal unservicio As Servicios) As Integer
Dim nombreser As String = CStr(0)
If Not Me.existeSerEvento(nombreser) Then
Me.colservicios.Add(unservicio)
Else
Console.WriteLine("Ya existe el servicio seleccionado")
End If
Return altaServicioparaunEvento
End Function