15 lines
421 B
VB.net
15 lines
421 B
VB.net
|
|
Public Class ObjetoSeleccionable
|
|
Friend Objeto As New Object
|
|
Friend TabIndex As Integer
|
|
Friend Clave As Integer
|
|
Friend PropiedadesTS As PropiedadesTS
|
|
|
|
Sub New(objeto As Object, tabindex As Integer, PropiedadesTS As PropiedadesTS)
|
|
Me.Objeto = objeto
|
|
Me.TabIndex = tabindex
|
|
Me.Clave = PropiedadesTS.NumeroObjeto
|
|
Me.PropiedadesTS = PropiedadesTS
|
|
End Sub
|
|
End Class
|