Formato de las cajs de texto
Me gustaría saber como puedo implementar el código en visual basic 6.0 de tal manera que una cja de texto solo reciba letras o solo números o fecha.
Le agradezco su colaboración
Le agradezco su colaboración
1 Respuesta
Respuesta de denciso
1
Solo números:
Private Sub txtClaveBancoRecursos_KeyPress(KeyAscii As Integer)
Dim retVal As Integer
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
If InStr("0123456789.", Chr(KeyAscii)) = 0 And KeyAscii <> 13 And KeyAscii <> 8 Then
Beep
Beep
Beep
retVal = MsgBox("Solo se pueden Digitar Números: 0,1,2,3,4,5,6,7,8,9" & vbCrLf & "Vuelva a intentarlo...", 4112, "Error de Opciones")
KeyAscii = 0
txtClaveBancoRecursos.SetFocus
End If
If KeyAscii = 13 Or KeyAscii = 8 Then
' Se verifica que el proceso se trate de borrar o modificar para que se
' presenten los datos faltantes del grupo de alimentos de acuerdo a la clave
' que se selecciono.
txtClaveBancoRecursos.Text = Format$(txtClaveBancoRecursos.Text, "0000")
End If
End Sub
Solo letras:
Private Sub txtConcepto_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub
Y para fechas, utiliza un dtpicker
Private Sub txtClaveBancoRecursos_KeyPress(KeyAscii As Integer)
Dim retVal As Integer
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
If InStr("0123456789.", Chr(KeyAscii)) = 0 And KeyAscii <> 13 And KeyAscii <> 8 Then
Beep
Beep
Beep
retVal = MsgBox("Solo se pueden Digitar Números: 0,1,2,3,4,5,6,7,8,9" & vbCrLf & "Vuelva a intentarlo...", 4112, "Error de Opciones")
KeyAscii = 0
txtClaveBancoRecursos.SetFocus
End If
If KeyAscii = 13 Or KeyAscii = 8 Then
' Se verifica que el proceso se trate de borrar o modificar para que se
' presenten los datos faltantes del grupo de alimentos de acuerdo a la clave
' que se selecciono.
txtClaveBancoRecursos.Text = Format$(txtClaveBancoRecursos.Text, "0000")
End If
End Sub
Solo letras:
Private Sub txtConcepto_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub
Y para fechas, utiliza un dtpicker
