Buenas grupo, antes de nada muchas gracias por cualquier aportación ,
por si me olvido al final del post :-)
Mi duda es la siguiente, en vs 2003, estoy realizando un formulario windows
forms para heredar de este mis otros formularios. Este formulario tiene una
serie de propiedades y métodos para extenderlos a las calses derivadas.
Pues bien una de estas propiedades es un arrayList( me valdría cualquier
otro tipo de colection que pudiese contener una clase sin métodos con solo
atributos), me gustaría que esta property se pudiese establecer su valor
desde la ventana de propiedades del Visual estudio, algo así como cuando
agregas un menu o un imageList y vas agregando los items,.
Lo más que conseguí fue definir la property como un array de mi clase, pero
al establecer los valores, después vulevo a abrirlo y los pierdo. creo que
hay un tag de <AttributeUsage... o <designer... Me estuve pelando con ellos
y no saqué nada en limpio.
Si alguien me pudiese hechar una mano, soy bastante novato.
Os posteo el código que llevo hasta ahora, puede que esté lleno de
comentarios, porque de tantas pruebas.
Muchas gracias de antemano.
Cualquier cosa que se os ocurra puede valer, soy Novato.
Salu2 René Pacios
Region "Atributos personalizadas"
'<AttributeUsage(AttributeTargets.All, Inherited:=True,
AllowMultiple:=True)> _
<Designer("System.Windows.Forms.Design.DocumentDesigner,
System.Windows.Forms.Design.DLL", _
GetType(System.Collections.ICollection)), DesignerCategory("Form")> _
Public Class mapeo
Inherits System.Attribute
Implements System.Collections.ICollection
Private _nombreColumna As String = String.Empty
Private _anchoColumna As Int32 = 0
Private _tituloColumna As String = String.Empty
Sub New()
End Sub
Sub New(ByVal nombreColumna As String, ByVal AnchoColumna As Int32, ByVal
TituloColumna As String)
_nombreColumna = nombreColumna
_anchoColumna = AnchoColumna
_tituloColumna = TituloColumna
End Sub
Public Property nombreColumna() As String
Get
Return _nombreColumna
End Get
Set(ByVal Value As String)
_nombreColumna = Value
End Set
End Property
Public Property AnchoColumna() As Int32
Get
Return _anchoColumna
End Get
Set(ByVal Value As Int32)
_anchoColumna = Value
End Set
End Property
Public Property TituloColumna() As String
Get
Return Me._tituloColumna
End Get
Set(ByVal Value As String)
_tituloColumna = Value
End Set
End Property
Public Sub CopyTo(ByVal array As System.Array, ByVal index As Integer)
Implements System.Collections.ICollection.CopyTo
End Sub
Public ReadOnly Property Count() As Integer Implements
System.Collections.ICollection.Count
Get
End Get
End Property
Public ReadOnly Property IsSynchronized() As Boolean Implements
System.Collections.ICollection.IsSynchronized
Get
End Get
End Property
Public ReadOnly Property SyncRoot() As Object Implements
System.Collections.ICollection.SyncRoot
Get
End Get
End Property
Public Function GetEnumerator() As System.Collections.IEnumerator Implements
System.Collections.IEnumerable.GetEnumerator
End Function
End Class
#End Region
#Region "propiedades privadas"
Private _MapeadoDeColumnas As mapeo()
Private _aMapeoColumnas As New ArrayList
#End Region
#Region "Propiedades"
'<mapeo()> _
'<mapeo("Columna", 0, "Titulo"), mapeo("Columna", 0, "Titulo"),
mapeo("Columna", 0, "Titulo")> _
'<Designer(GetType(mapeo)),AttributeUsage (AttributeTargets.Property )> _
'<Design.Serialization.RootDesignerSerializer()> _
Public Property maPeadoDeColumnas() As mapeo
Get
End Get
Set(ByVal value As mapeo)
End Set
End Property
#End Region
Muchas gracias y cualquier alluda puede valer
Últimos mensajes - Powered by IBM
Palabras claves
Hacer una pregunta
Siga el debate
Tengo una respuesta
Busqueda sugerida
Sábado 23 de noviembre - 00:12
Registrar
Leer las respuestas