Public sub new()?

[virtuale]

Hola, esta es la primer vez que posteo en este foro ya que estoy necesitando ayuda por que me e trancado programando.

Estoy programando en vb.net y tengo un public sub new

Public Sub New()
mEvento = New clsEvento
mPaquete = New clsPaquete

pero me subraya el new clsEvento y new clsPaquete y me dice que no se a especificado ningún argumento para los parámetros y me muestra todos los parámetros.

Error 2 No se ha especificado ningún argumento para el parámetro 'pCantidad' de 'Public Sub New(pID As Integer, pFecha As Date, pNombre As String, pDireccion As String, pTipo As Integer, pCantidad As Integer, pCostoFijo As Double, pCostoTotal As Double, pColPaquetesExtra As System.Collections.ArrayList)'.

Y si me sale para todos los parámetros, si borro el new y solamente dejo:
Public Sub New()
mEvento = clsEvento
mPaquete = clsPaquete

desaparece el error, pero yo necesito que sea new (o eso me parese).

Haber si pueden ayudarme, si es necesario poner mas código o mas especificaciones avisar.

[gnzsoloyo]

Significa que si estás sobrecargando el New en una clase, toda instancia creada de esa clase requiere que le pases los parámetros indicados en ese New, por cuanto ese sub reemplaza al heredado por Object o cualquier otra clase de la que descienda.
¿Se entiende?
Si haces

Código vb.net:

Class UnaClase
  Public Sub New(ByVal valor As Integer)
  End Sub
End Class
 

Para crear un objeto de esa clase debes pasarle un Integer o una variable de esa clase:

Código vb.net:

Dim oUnObjeto As New UnaClase(987)
Dim a As Integer = 87
Dim oOtroObjeto As New UnaClase(a)
 

[virtuale]

no, no entendi.

Tu dices que tengo que pasar algo dentro del public sub new ( y el valor que le paso)

yo tengo:

Código vb:

Public Class clsEmpresa
    Public Sub New()
        mEvento = New clsEvento
    End Sub
 

y:

Código vb:

Public Class clsEvento
    Private mID As Integer
    Private mFecha As Date
    Private mNombre As String
    Private mDireccion As String
    Private mTipo As Integer
    Private mCantidad As Integer
    Private mCostoFijo As Double
    Private mCostoTotal As Double
    Private mColPaquetesExtra As ArrayList
    Public Sub New(ByVal pID As Integer, ByVal pFecha As Date, ByVal pNombre As String, ByVal pDireccion As String, ByVal pTipo As Integer, ByVal pCantidad As Integer, ByVal pCostoFijo As Double, ByVal pCostoTotal As Double, ByVal pColPaquetesExtra As ArrayList)
        ID = pID
        Fecha = pFecha
        Nombre = pNombre
        Direccion = pDireccion
        Tipo = pTipo
        Cantidad = pCantidad
        CostoFijo = pCostoFijo
        CostoTotal = pCostoTotal
        PaquetesExtra = pColPaquetesExtra
    End Sub
 

No entiendo que es lo que le tengo que pasar al publi sub new dentro de los ().

[joelperez]

Código HTML:

Si no mal entiendo, hay 2 problemas:

1. El sub New de la clase clsEmpresa no tiene variables al llamarlo, es innecesario poner el sub New al llamarlo, solo necesitas declarar un sub que "inicialize" los elementos, por ejemplo:
[CODE]Public Shared Sub [b]InicializeClass[/b](ByVal pID As Integer, ByVal pFecha As Date, ByVal pNombre As String, ByVal pDireccion As String, ByVal pTipo As Integer, ByVal pCantidad As Integer, ByVal pCostoFijo As Double, ByVal pCostoTotal As Double, ByVal pColPaquetesExtra As ArrayList)
    'Tu codigo...
End Sub[/CODE]

2. No especificaste ningun argumento para clsEvento, tenes que ponerles un valor primero

Espero que ayude :contento: