Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Objetos Genéticamente Modificados
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Objetos Genéticamente Modificados 
 
QUIEN DOMINA la MEMORIA, DOMINA el MUNDO de los OBJETOS

Cada "Objeto" de gambas está constituido ante todo por más porciones de memoria, organizadas según las específicas Estructuras previstas por los nacientes de gambas para cada Objeto, dedicadas a almacenar los datos que caracterizarán los Objetos mismos.
Poder y ser capaz pues acceder a las áreas de memoria de un Objeto, significa poder modificar los valores de sus propiedades.

Con una operación de ingeniería en la memoria se pueden modificar "genéticamente" Objetos que solo en apariencia son aquellos originarios, y en cambio hacen referencia a otros Objetos.

Vamos a hacer un ejemplo: poned sobre el Form un "PictureBox" y un "TextBox.
Library "libc:6"

' void *memcpy (void *__restrict __dest, const void *__restrict __src, size_t __n)
' Copy N bytes of SRC to DEST.
Private Extern memcpy(__dest As Pointer, __src As Pointer, __n As Long)


Public Sub Form_Open()

  Dim p1, p2 As Pointer
  Dim t1, t2 As Pointer
  Dim s As String
  
  With PictureBox1
    .Background = Color.Yellow
    .Foreground = Color.Blue
  End With

' Accedemos profundamente en las Estructuras fuentes del "PictureBox":
  p1 = Object.Address(PictureBox1)
  p2 = Pointer@(p1)
  
' Accedemos profundamente en las Estructuras fuentes del "TexteBox":
  t1 = Object.Address(TextBox1)
  t2 = Pointer@(t1)
  
' Hagamos que el "PictureBox" apunte  a los recursos del "TextBox" !!!
   memcpy(p1, t1, 144)
   memcpy(p2, t2, 512)
  
' ...es la PictureBox que se desplaza?
   PictureBox1.X = 500

' Perdón...pero...cuándo el PictureBox tuvo la Propiedad ".Text" ?!?!?
   PictureBox1.Text = PictureBox1.Name

' Eeeh ! ...que nome tiene el "PictureBox" ???????
   Print PictureBox1.Text, TextBox1.Text
  
' Descubriréis que los recursos del PictureBox no son de la Clase "PictureBox", sino del "TextBox" !!!
   For Each s In Object.Class(PictureBox1).Symbols
     Print s
   Next

End



Public Sub TextBox1_Enter()  ' Probad a pasar con el ratón sobre el "PictureBox".....
  
  Print "Si tú estás pasando con el ratón sobre el PictureBox... ...de verdad estás seguro que el Objeto atañe a el PictureBox ?"
  
End

 



 
última edición por vuott el Jueves, 15 Marzo 2018, 03:14; editado 3 veces 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Objetos Genéticamente Modificados 
 
      
 



 
portaro - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Objetos Genéticamente Modificados 
 
¡Controles transgénicos, oh, yeah!
 



 
Grandamakulo - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Objetos Genéticamente Modificados 
 
A mi dejenme con los tomates de toda la vida que los transgenicos no tienen sabor.

Vuott: Hice el ejemplo y el PictureBox se ve en color amarillo.
 pantallazo_2018_03_15_10_01_26
Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Objetos Genéticamente Modificados 
 
tincho escribió:  
PictureBox se ve en color amarillo.

Claro, hay esta linea en el codigo:
With PictureBox1
    .Background = Color.Yellow
    ......

 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Consulta Acerca De Una Matriz De Objetos: ... santijav General 6 Jueves, 21 Abril 2011, 06:14 Ver último mensaje
soplo
No hay nuevos mensajes Observador De Objetos aristicol Controles/Librerías/Componentes 4 Domingo, 21 Noviembre 2010, 03:25 Ver último mensaje
aristicol
No hay nuevos mensajes Objetos Drawningarea agrgal Controles/Librerías/Componentes 5 Jueves, 27 Octobre 2011, 21:51 Ver último mensaje
jguardon
No hay nuevos mensajes Gambas: Clases Y Objetos soplo General 4 Jueves, 08 Octobre 2009, 14:22 Ver último mensaje
soplo
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario