SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Victorn en Domingo 5 de Noviembre de 2006, 23:27

Título: Necesito Ayuda...
Publicado por: Victorn en Domingo 5 de Noviembre de 2006, 23:27
hola a todos..

tengo una duda, estoy simulando un marcador de telefonos, el cual presiono un boton 1 y este debe verse en un visor, en un text box... como hago para presionar un boton y trasladar el numero de ese boton a la ventana de texto...

esa es mi duda, ojala me ayuden
Título: Re: Necesito Ayuda...
Publicado por: F_Tanori en Domingo 5 de Noviembre de 2006, 23:35
Hola

espero haber entendido....

quieres ir mostrando los numero en un textbox segun el boton presionado
supongo que ya todos los botones tienen el numero :P



entonces seria asi por ejemplo..

Código: Text
  1.  
  2. sub command1_click()
  3.      textbox1= textbox1 & command1.caption
  4. end
  5.  
  6.  

te aconsejo utilices un arreglo de botones
cualquier duda.... "te escuchamos "

Saludos
Título: Re: Necesito Ayuda...
Publicado por: Victorn en Lunes 6 de Noviembre de 2006, 00:23
si es exactamente lo que quiero hacer

para que es el arreglo?
Título: Re: Necesito Ayuda...
Publicado por: Victorn en Lunes 6 de Noviembre de 2006, 00:26
como coloco los numeros en los botones? supongo que te refieres a la etiquetacion?
Título: Re: Necesito Ayuda...
Publicado por: F_Tanori en Lunes 6 de Noviembre de 2006, 00:46
mira

supongamos que tienes lo 9 digitos entonces creas un arreglo con los botones
atraves de la propiedad index


ejemplo

supongamos que el boton se llama cmd entonces en la propiedad index le colocas el 0
en el caption tambien despues sigues creado botones con el mismo nombre cmd pero con el index siguiente 1,2,3....

Nota: si seleccionas el boton le das copiar y pegar te pregunta que si quieres formar el arreglo si respondes que si haria eso automatico

ya que  que has creado el arreglo da doble clic sobre cualquiera todos te llevara al mismo evento, ahora recibiendo como parametro el index entonces bastaria con hacer esto..

Código: Text
  1.  
  2. private sub cmd_click(index as integer)
  3.     textbox1= textbox1 & cmd(index).caption
  4. end sub
  5.  
  6.  

lo cual te evitaria  poner el codigo por cada uno de los botones

sub command1_click()
    textbox1= textbox1 & command1.caption
end

sub command2_click()
    textbox1= textbox2 & command1.caption
end

etc


Saludo espero haberte ayudado


....y si colocas el numero en el caption del boton..... ¿o no?  :blink:
Título: Re: Necesito Ayuda...
Publicado por: Mollense en Lunes 6 de Noviembre de 2006, 02:00
Estaba aburrido así que en un momentito hice esto ......
Título: Re: Necesito Ayuda...
Publicado por: F_Tanori en Lunes 6 de Noviembre de 2006, 02:05
Código: Text
  1.  
  2.  
  3. Private Sub bt_Click(Index As Integer)
  4.       display = display & Me.bt(Index).Caption
  5. End Sub
  6.  
  7.  


 :ph34r:
Título: Re: Necesito Ayuda...
Publicado por: Mollense en Lunes 6 de Noviembre de 2006, 16:07
:D

estaba aburrido y cansado

 :P
Título: Re: Necesito Ayuda...
Publicado por: ArKaNtOs en Lunes 6 de Noviembre de 2006, 16:11
Cita de: "Angel_K_ido"
Estaba aburrido así que en un momentito hice esto ......
no olvides que la modestia es un gran don :P :scream:
Título: Re: Necesito Ayuda...
Publicado por: Mollense en Lunes 6 de Noviembre de 2006, 16:28
Cita de: "ArKaNtOs"
Cita de: "Angel_K_ido"
Estaba aburrido así que en un momentito hice esto ......
no olvides que la modestia es un gran don :P :scream:
No lo dije de esa manera, en realidad fue una forma de atajarme a las posibles críticas del tipo "NO HACEMOS TAREA" o eso. Por eso dije: Estaba aburrido y.....

Saludos