Programación General > Visual Basic 6.0 e inferiores

 Necesito Ayuda...

(1/2) > >>

Victorn:
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

F_Tanori:
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 --- sub command1_click()     textbox1= textbox1 & command1.captionend  
te aconsejo utilices un arreglo de botones
cualquier duda.... "te escuchamos "

Saludos

Victorn:
si es exactamente lo que quiero hacer

para que es el arreglo?

Victorn:
como coloco los numeros en los botones? supongo que te refieres a la etiquetacion?

F_Tanori:
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 --- private sub cmd_click(index as integer)    textbox1= textbox1 & cmd(index).captionend sub  
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:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

Ir a la versión completa