|
|
| TRUCOS GRATIS |
|
|
|
|
|
Trucos de VisualBasic-NET >
Caja de texto con solo valores numericos |
|
 |
Crearemos una función llamada soloNumeros
Private Function soloNumeros(ByVal KCode As Int16) As Boolean
If (KCode >= 48 And KCode <= 57) Or KCode = 8 Then
Return False
Else
Return True
End If
End Function
En la caja de texto, en el evento KeyPress
Private Sub TextBox1_KeyPress(ByVal sender As Object _
, ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBox1.KeyPress
e.Handled = soloNumeros(System.Convert.ToInt16(Asc(e.KeyChar)))
End Sub
|
|
|
| Enviado el: 07/04/2008
Leido 60 veces Enviado Por: anonimo |
|
|
| |
|
|
-
DOMINGO 06 DE JULIO DE 2008 Tenemos 162 trucos gratis para ofrecerte!! 
