Una clase sencilla en VB.net
0 Comments
Metiendola en un Namespace y enlazando con librerias si fuese necesario. Una clase tiene sus atributos, su contrusctores (uno por defecto New()) y las propertys de acceso y modificacion.
Public Class PKSiniestro Private _Id As Integer Private _IdSolicitud As Integer Public Sub New() Me._Id = 0 Me._IdSolicitud = 0 End Sub Public Sub New(ByVal Id As Integer, ByVal IdSolicitud As Integer) Me._Id = Id Me._IdSolicitud = IdSolicitud End Sub Public Property Id() Get Return _Id End Get Set(ByVal value) _Id = value End Set End Property Public Property IdSolicitud() Get Return _IdSolicitud End Get Set(ByVal value) _IdSolicitud = value End Set End Property End Class