19/01/2011, 08:10
|
| Colaborador | | Fecha de Ingreso: octubre-2003 Ubicación: Catalonia
Mensajes: 4.334
Antigüedad: 21 años, 1 mes Puntos: 156 | |
Respuesta: Teclado numérico en pantalla (VB 2008) solucionado! Sólo tenía que asignar el color del foco cuando pulse el botón, simplemente añadir:
EJEMPLO: Cita: Private Sub bt0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt0.Click, bt1.Click, bt2.Click, bt3.Click, bt4.Click, bt5.Click, bt6.Click, bt7.Click, bt8.Click, bt9.Click, btDec.Click
If TypeOf sender Is Button Then txtPVP.BackColor = Color.Yellow txtPVP.Focus()
SendKeys.Send(CType(sender, Button).Text)
End If
End Sub
__________________ Saludos
Última edición por freegirl; 19/01/2011 a las 08:17 |