Código en Form1.vb
Imports System.Text
Public Class Form1
Private Sub TextBoxocteto1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) HandlesTextBoxocteto1.KeyPress
If (Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57) Or Asc(e.KeyChar) = 8 Then "Los únicos caracteres que se permitirá introducir en el TextBoxocteto1 serán los números del 0 al 9(ASCIIdel 48 al 57) y el retroceso de espacio o backspace para borrar números introducidos, que es el ASCII 8.
Dim numdigitosocteto1 As Integer = Len(TextBoxocteto1.Text) "Para contar cuántos dígitos hayen el TextBoxocteto1.
If numdigitosocteto1 = 3 And (Asc(e.KeyChar) <> 8) Then "Si ya hay tres dígitos, ya no se podrá escribir otro, pues el máximo que se puede escribir es 255, pero siemprese podrá usar la tecla Backspace.
e.KeyChar = "" "Borra el dígito que se ha digitado.
End If
Else "Si la tecla presionada es diferente de un dígito o de la tecla Backspace.
e.KeyChar = """Reemplaza la tecla digitada con el valor de nada para que no se puedan introducir caracteres inválidos.
End If
End Sub
Private Sub TextBoxocteto1_KeyUp(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextBoxocteto1.KeyUp
End Sub
Private Sub TextBoxocteto1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxocteto1.TextChanged
EndSub
Private Sub TextBoxocteto2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBoxocteto2.KeyPress
If (Asc(e.KeyChar) >= 48 And Asc(e.KeyChar)<= 57) Or Asc(e.KeyChar) = 8 Then "Los únicos caracteres que se permitirá introducir en el TextBoxocteto2 serán los números del 0 al 9 (ASCII del 48 al 57) y el retroceso de espacio o backspace paraborrar números introducidos, que es el ASCII 8.
Dim numdigitosocteto2 As Integer = Len(TextBoxocteto2.Text) "Para contar cuántos dígitos hay en el TextBoxocteto2.
If numdigitosocteto2 = 3 And... [continua]

Leer Ensayo Completo

Cite este ensayo

APA

(2011, 02). Analisis de estudio en el codigo penal venezolano. BuenasTareas.com. Recuperado 02, 2011, de http://www.buenastareas.com/ensayos/Analisis-De-Estudio-En-El-Codigo/1526325.html

MLA

"Analisis de estudio en el codigo penal venezolano" BuenasTareas.com. 02 2011. 2011. 02 2011 <http://www.buenastareas.com/ensayos/Analisis-De-Estudio-En-El-Codigo/1526325.html>.

MLA 7

"Analisis de estudio en el codigo penal venezolano." BuenasTareas.com. BuenasTareas.com, 02 2011. Web. 02 2011. <http://www.buenastareas.com/ensayos/Analisis-De-Estudio-En-El-Codigo/1526325.html>.

CHICAGO

"Analisis de estudio en el codigo penal venezolano." BuenasTareas.com. 02, 2011. consultado el 02, 2011. http://www.buenastareas.com/ensayos/Analisis-De-Estudio-En-El-Codigo/1526325.html.