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

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Crear un objeto dentro de otro objeto
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Crear un objeto dentro de otro objeto  (Leído 5,626 veces)
Tokes

Desconectado Desconectado

Mensajes: 140


Ver Perfil
Crear un objeto dentro de otro objeto
« en: 29 Agosto 2010, 00:09 am »

Hola a todos:

Los molestaré con una pequeña pregunta:

Tengo un formulario. Dentro del formulario tengo un frame. Dentro del frame tengo unos cuantos shapes y unos cuantos textbox.

Ya sé como crear un objeto a partir de un arreglo. Ahora me pregunto:

¿Cómo le hago para crear objetos dentro de otro?

Si creo un frame, un shape y un textbox, éstos se crean por separado. ¿Cómo puedo crear un shape y un textbox dentro de un frame recién creado?

       Muchas gracias por su atención. Espero sus respuestas.


En línea

Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: Crear un objeto dentro de otro objeto
« Respuesta #1 en: 29 Agosto 2010, 00:40 am »

mmmm
No se si te he entendido bien, si no es asi me corriges. :rolleyes:
Seleccionas el obejto que quieres meter, lo cortas, haces click en el frame y lo pegas...

PD : Apenas te veo en el msn. :silbar:

DoEvents¡! :P


En línea

Tokes

Desconectado Desconectado

Mensajes: 140


Ver Perfil
Re: Crear un objeto dentro de otro objeto
« Respuesta #2 en: 29 Agosto 2010, 01:59 am »

Ah, bueno, me refería a hacer eso mismo pero mediante código.

Es que quiero que, mediante un command1, el usuario pueda crear los objetos que quiera en tiempo de ejecución.

           Saludos y muchas gracias.

P.D: Sí, casi no me conecto. De hecho mi correo electrónico lo reviso una vez cada dos semanas. ¡Soy un desastre!
En línea

raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Crear un objeto dentro de otro objeto
« Respuesta #3 en: 29 Agosto 2010, 03:48 am »

En realidad no es "objeto dentro de otro objeto" sino objeto dentro de un contenedor, no puedes meter un textbox dentro de un commandbutton (bueno, tal vez se pueda, pero no es lo comun que se busca)
Puedes meter algun control dentro de un frame, PictureBox o similar. Usando(set) la propiedad Container de los controles :)
En línea

Tokes

Desconectado Desconectado

Mensajes: 140


Ver Perfil
Re: Crear un objeto dentro de otro objeto
« Respuesta #4 en: 29 Agosto 2010, 19:37 pm »

Muy bien, raul338:

He probado como me lo dijiste y me ha funcionado. Muchas gracias a ti y a PsYkE1 por contestar.
En línea

BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 3.144


I'Love...!¡.


Ver Perfil WWW
Re: Crear un objeto dentro de otro objeto
« Respuesta #5 en: 30 Agosto 2010, 00:12 am »

.
Un textBox dentro de un CommandButton, tambien se pueden meter los programas Ajenos dentro del Form solo obteniendo el Hwnd del mismo.!¡.

Con scaleMode = Pixeles

Código
  1.  
  2. Option Explicit
  3.  
  4. Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  5. Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  6.  
  7. Private Sub cmdCommand1_Click()
  8.    Me.ScaleMode = 3    '   //  Pixeles
  9.    SetParent txtText1.hwnd, cmdCommand1.hwnd
  10.    With txtText1
  11.        .Top = ((cmdCommand1.Height * 15) - .Height) \ 2
  12.        .Left = ((cmdCommand1.Width * 15) - .Width) \ 2
  13.        Putfocus (.hwnd)
  14.    End With
  15. End Sub
  16.  
  17.  

sin ScaleMode Pixel

Código
  1.  
  2. Option Explicit
  3.  
  4. Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  5. Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  6.  
  7. Private Sub cmdCommand1_Click()
  8.    SetParent txtText1.hwnd, cmdCommand1.hwnd
  9.    With txtText1
  10.        .Top = (cmdCommand1.Height - .Height) \ 2
  11.        .Left = (cmdCommand1.Width - .Width) \ 2
  12.        Putfocus (.hwnd)
  13.    End With
  14. End Sub
  15.  
  16.  

Dulces Lunas!¡.
« Última modificación: 30 Agosto 2010, 00:30 am por BlackZeroX » En línea




CScript (Actualizado 26/06/2013).

FileX <-- Re-modelando...
Web Principal-->[ Blog(VB6/C/C++) | Host File | Scan Port) ]

The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilit y el metal mi relig
Tokes

Desconectado Desconectado

Mensajes: 140


Ver Perfil
Re: Crear un objeto dentro de otro objeto
« Respuesta #6 en: 30 Agosto 2010, 02:41 am »

BlackZeroX:

Eso sí que estuvo buenísimo. Ahora me despertaste otra duda:

¿Por qué en modo pixel multiplicas por 15?

Espero no molestarte. Saludos.
En línea

BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 3.144


I'Love...!¡.


Ver Perfil WWW
Re: Crear un objeto dentro de otro objeto
« Respuesta #7 en: 30 Agosto 2010, 05:41 am »

son equivalencias

1 pixel = 15 Twip

Aplicando una regla de 3 se convierten esos Twip a pixeles o viceversa (en este caso estory convirtiendo de Pixeles a Twip ya que el .Height del textbox esta en Twip... aun que pude dividir estos entre 15 y no multiplicar el .height del commandButton).

1 P = 15 T
cmdCommand1.Height P    -->    T    ( ya que esta en Pixeles .height)

Si no estuviese en pixeles se invierte

1 P = 15 T
X P    --> cmdCommand1.Height P T    ( ya que esta en Twip .height)

Embos casos se Obvia el uno y se pasa a hacer la poperacion Final
es decir

el el 1er caso

cmdCommand1.Height Pixeles   *   15 Twip  \  1Pixel
obviando la divicion
cmdCommand1.Height Pixeles   *   15 Twip

en el caso dos

cmdCommand1.Height P Twip  *  1 Pixel  \ 15 Twip
obviando la multiplicacion
cmdCommand1.Height P Twip \ 15 Twip

y como por defecto en pixeles tanto como en Twip no hay puntos desimales y pues usamos \ para devolver el entero de la divión y no / ya que devuelve el entero con fracción

Dulces Lunas!¡.
« Última modificación: 30 Agosto 2010, 05:49 am por BlackZeroX » En línea




CScript (Actualizado 26/06/2013).

FileX <-- Re-modelando...
Web Principal-->[ Blog(VB6/C/C++) | Host File | Scan Port) ]

The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilit y el metal mi relig
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problema con objeto dentro de otro objeto
PHP
Skeletron 3 5,376 Último mensaje 5 Enero 2011, 04:10 am
por Skeletron
POO - ¿Diferencia entre usar una constructora-copiadora a Objeto = Objeto? « 1 2 »
Programación General
xaps 12 4,742 Último mensaje 16 Noviembre 2013, 21:41 pm
por xaps
pasar un objeto a un objeto, es posible?? « 1 2 »
Java
kikian94 12 4,698 Último mensaje 13 Marzo 2014, 08:41 am
por kikian94
Referencia a objeto no definida como instancia de un objeto - [C#]
.NET (C#, VB.NET, ASP)
ikkaku 1 2,039 Último mensaje 11 Febrero 2015, 14:39 pm
por Eleкtro
Referencia de objeto no establecida como instancia de un objeto
.NET (C#, VB.NET, ASP)
Fixxed 1 5,523 Último mensaje 11 Marzo 2016, 16:18 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines