- Se traslada versión a git desde tfs

2025-05-30 12:06:37 +02:00
commit b93d857a6f
103 changed files with 86476 additions and 0 deletions
--- a/ObjetoSeleccionable.vb
+++ b/ObjetoSeleccionable.vb
@@ -0,0 +1,14 @@
+
+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