Iremart.es

Drone paso a paso Ardupilot, Visual studio y otros lenguajes de programación

  • Estadísticas

    • 200Lecturas hoy:
    • 103Lecturas ayer:
    • 127577Total de visitas:
    • 78Hoy:
    • 83Ayer:
    • 667La semana anterior:
    • 1813Visitantes por mes:
    • 84Visitantes por día:
    • 1Visitantes conectados:

Máscaras

Posted by skskynet on 30th mayo 2010


Máscara numérica

Private Sub txt_ip_4_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles txt_ip_4.KeyPress

InStr, es una función para comparar textos, si la tecla que pulsamos está en la cadena que hemos puesto del 0 al 9 devolverá la posición en la que está, sino devuelve 0 y no escribirá nada . El 1 de la función, es para que empieze a comparar desde el caracter 1
If InStr(1, “0123456789” & Chr(8), e.KeyChar, CompareMethod.Text) = 0 Then
e.KeyChar = “”
End If
End Sub

Para los textos es igual, pero poniendo el abecedario. He puesto puntos suspensivos para no ponerlo todo …

Private Sub txt_ip_4_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles txt_ip_4.KeyPress
If InStr(1, “ABCDE…….Z” & Chr(8), e.KeyChar, CompareMethod.Text) = 0 Then
e.KeyChar = “”
End If
End Sub

Tags:
Posted in Visual Studio | No Comments »