Autor Tema: Objeto En Tiempo De Ejecucion (Leído 5979 veces)

ArKaNtOs · « **en:** Sábado 1 de Enero de 2005, 20:57 »

bueno creo que con el titulo y la descripcion lo digo todo pero si no me explique bien, pues ahi va, es que eh buscado en muchos lugares y no logro encontrar como manipular los eventos de un objeto creado en tiempo de ejecucion, si alguien me puede responder esta pregunta se lo agradecere mucho

, plz

Sagutxo

Salu2. Tampoco es que te hayas explicado mucho. Pruba a poner NombreDeEvento. y te saldran las opciones configurables.
Agur.

ArKaNtOs

thanx, pero ya lo hice, a lo que me refiero es que mi idea es crear cierta cantidad de botones de acuerdo a lo que el usuario inserte en un textbox, y si lo hago el chiste esta en que quiero que esos botones realizen algo cuando se les de clik y no puedo

Soultaker

Hi, lo que puedes hacer es anteponerte a la creacion del objeto, osea crea un procedimiento con la misma estructura como si estuvieras programando un control ya existente. Espero que me hayas entendido.

Sagutxo

Salu2.
Comento: No puedes crearlos todos y dejarlos ocultos, de forma que solo aparezcan en pantalla dependiendo de lo que el user haya pinchado?. O mejor aún, crear un solo boton y cambiarle el texto de información dependiendo de lo que el usuario necesite ?

Espero que te ayude.
Agur.

Brroz · « **Respuesta #5 en:** Lunes 3 de Enero de 2005, 11:37 »

Hola.

Resumiendo:

En tiempo de diseño añade un solo CommandButton. Establece su propiedad Index = 0.

Para añadir un nuevo CommandButton:

Código: Text

 
Dim i1  As Integer
i1 = Command1.Ubound + 1
Load Command1(i1)
Command1(i1).Move 120, 120 * i1 + 60  ' A donde correspondiese
Command1(i1).Visible = True
Command1(i1).Caption  = &#34;Botón &#34; & i1
 
 

Para controlar las acciones de cada botón:

Código: Text

 
Private Sub Command1_Click (Index As Integer)
 
   Select case Index
      case 0
          MsgBox &#34;Pulsaste el botón 0&#34;
      case 1
          MsgBox &#34;Pulsaste el botón 1&#34;
      case 2
          MsgBox &#34;Pulsaste el botón 2&#34;
      case else
          MsgBox &#34;Pulsaste otro botón&#34;
   End Select
 
End Sub
 
 

Con esto te debe servir.

Suerte.

ArKaNtOs · « **Respuesta #6 en:** Lunes 3 de Enero de 2005, 19:22 »

hola, muchas gracias por su apoyo, pero lo que necesito es algo asi como lo que dice soultaker, nada mas que ya lo intente en tiempo de diseño creo el evento para el boton que necesito y creo el boton en tiempo de ejecucion solo que al hacer eso el evento que creo para mi boton no funciona

, bueno de todos modos si no funciona, lo hare como dice Broz, es una buena idea, muchas gracias

Soultaker · « **Respuesta #7 en:** Martes 4 de Enero de 2005, 00:07 »

Hey ArKaNtOs me podrias dar el codigo para crear objetos en ejecucion haber si puedo controlar sus eventos, esto lo hice en VB NET y si me funciona, pero en VB 6 no lo he probado porque no lo manejo muy bien y tampoco se crear objetos en tiempo de ejecucion, probe el codigo de Brroz pero me bota un error que dice "No se encontro el metodo o miembro de datos" y me señala el "UBound". Quien sabe porque.

Brroz · « **Respuesta #8 en:** Martes 4 de Enero de 2005, 08:12 »

Citar

En tiempo de diseño añade un solo CommandButton. Establece su propiedad Index = 0

El error lo obtienes porque el CommandButton no forma parte de una matriz de controles. Establece la propiedad Index del control a 0 y verás.

Chao.

ArKaNtOs · « **Respuesta #9 en:** Martes 4 de Enero de 2005, 18:03 »

hola a todos, muchas gracias por su ayuda, por cierto SoulTaker este es el codigo que me pedistes para VB6, de hecho no manejo .Net asi que es el unico que sep

pero espero te sirva pruebalo:

Código: Text

 
Dim objeto As Object
----------------------------------------------------------
Private Sub Command1_Click()
If Not objeto Is Nothing Then
    Controls.Remove objeto
    Set objeto = Nothing
End If                           'ESTE IF ES POR SI EXISTE EL CONTROL
 
Set objeto = Controls.Add(&#34;VB.CommandButton&#34;, &#34;nombreboton&#34;)
objeto.Visible = True
objeto.Caption = &#34;Soy un boton&#34;
End Sub
 
 

Gracias por su ayuda

Soultaker

Bueno ArKaNtOs probe tu codigo y crear el evento antes para que asi se pueda ejecutar, pero no sale bueno no se porque ademas nisiquiera me devuelve un error, como te dije no manejo muy bien el VB 6, creo que deberias hacerlo con la solucion que da Brroz.

ArKaNtOs

ya hace mucho que hice este post y no pude recibir respuesta

pero solo les informo que por fin lo he encontrado, espero les sirva, en verdad que era una linea

espero que a alguien le pueda servir:

Código: Text

 
Private WithEvents NuevoBoton As CommandButton
 
Private Sub Label1_Click()
Set NuevoBoton = Me.Controls.Add(&#34;VB.CommandButton&#34;, &#34;NuevoBoton1&#34;)
NuevoBoton.Left = 100
NuevoBoton.Top = 120
NuevoBoton.Caption = &#34;Soy un Botón&#34;
NuevoBoton.Visible = True
End Sub
 
Public Sub NuevoBoton_Click()
MsgBox &#34;prueba&#34;
End Sub
 
 

bueno como ven si funcionaba anteponiendose al evento, pero tenia que hacerse con una diferencia en ves de

Private NuevoBoton As object

deberia ser

Private WithEvents NuevoBoton As CommandButton

de haberlo sabido antes

ya ni modos solo espero que a alguien le pueda servir, bye

CarlosH

Espero que mi confesión te haga feliz... a mi me sirvió tu código. Gracias

Suerte y te cuidas

SoloCodigo

Autor Tema: Objeto En Tiempo De Ejecucion (Leído 5979 veces)

ArKaNtOs

Objeto En Tiempo De Ejecucion

Sagutxo

Re: Objeto En Tiempo De Ejecucion

ArKaNtOs

Re: Objeto En Tiempo De Ejecucion

Soultaker

Re: Objeto En Tiempo De Ejecucion

Sagutxo

Re: Objeto En Tiempo De Ejecucion

Brroz

Re: Objeto En Tiempo De Ejecucion

ArKaNtOs

Re: Objeto En Tiempo De Ejecucion

Soultaker

Re: Objeto En Tiempo De Ejecucion

Brroz

Re: Objeto En Tiempo De Ejecucion

ArKaNtOs

Re: Objeto En Tiempo De Ejecucion

Soultaker

Re: Objeto En Tiempo De Ejecucion

ArKaNtOs

Re: Objeto En Tiempo De Ejecucion

CarlosH

Re: Objeto En Tiempo De Ejecucion