Agregar archivos de proyecto.

2026-05-14 08:45:02 +02:00
parent 0bf9686303
commit 371937db13
129 changed files with 100769 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