Programación General > Visual Basic 6.0 e inferiores

 Objeto En Tiempo De Ejecucion

<< < (2/3) > >>

Brroz:
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 Integeri1 = Command1.Ubound + 1Load Command1(i1)Command1(i1).Move 120, 120 * i1 + 60  ' A donde correspondieseCommand1(i1).Visible = TrueCommand1(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:
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  :scream:  :P, bueno de todos modos si no funciona, lo hare como dice Broz, es una buena idea, muchas gracias :D

Soultaker:
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.

 :comp:

Brroz:

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

--- Fin de la cita ---

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:
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 :P  :whistling: 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 = NothingEnd If                           'ESTE IF ES POR SI EXISTE EL CONTROL Set objeto = Controls.Add(&#34;VB.CommandButton&#34;, &#34;nombreboton&#34;)objeto.Visible = Trueobjeto.Caption = &#34;Soy un boton&#34;End Sub  
Gracias por su ayuda  :hola:  :comp:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior