elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: [AIO elhacker.NET 2015] Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (Moderadores: Novlucker, seba123neo, kub0x, Eleкtro)
| | | |-+  Estructuras dentro de Estructuras (Visual Basic 2013)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Estructuras dentro de Estructuras (Visual Basic 2013)  (Leído 50 veces)
Tazmania40

Desconectado Desconectado

Mensajes: 30


Ver Perfil
Estructuras dentro de Estructuras (Visual Basic 2013)
« en: 3 Marzo 2017, 21:44 »

Buenas estoy intentando simplificar este código, en concreto lo que aparece entre comentarios. El código me funciona pero deseo reprentar los datos mediante una lista en una sola línea, o tupla como lo llaman... estoy probando con {} tal y como lo hago con los array o matrices, pero no doy con ello, alguna sugerencia. Gracias y salu2

Código
  1. Private Structure Cord
  2.   Public X, Y as Integer
  3. End Structure
  4.  
  5. Private Structure Obj
  6.   Public PosA as Cord
  7.   Public PosR() as Cord
  8. End Structure
  9.  
  10.  
  11. Private Obj1 As Obj        ' Declaramos un Objeto de la estructura Obj
  12. ReDim Obj1.PosR(2)       ' Definimos la matriz de la estructura a 3 valores
  13.  
  14. ' -------- Esto funciona, deseo simplificar algo estilo
  15. ' Obj1 = { {10, 20}, { {5, 3}, {7, 9}, {1, 4} } }
  16.  
  17. Obj1.PosA.X = 10 : Obj1.PosA.Y = 20
  18. Obj1.PosR(0).X = 5 : Obj1.PosR(0).Y = 3
  19. Obj1.PosR(1).X = 7 : Obj1.PosR(1).Y = 9
  20. Obj1.PosR(2).X = 1 : Obj1.PosR(2).Y = 4
  21.  
  22. ' ----------------------------------------
  23. ' Representar esta parte mediante una línea, tupla o como se haga en
  24. ' Visual Basic 2013
  25.  
  26. Procedimiento(Obj1)      ' Pasar el procedimiento con el Objeto
  27.  
  28.  


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines