Visual Basic.NET - excluir literales en masked textbox

   
Vista:

excluir literales en masked textbox

Publicado por panther (1 intervención) el 27/01/2010 23:52:56
Estoy usando el siguiente código para excluir literales en caso de no ingresar fecha en el sistema pero sucede que no funciona

si dejo la fecha en blanco me guarda / / en mi bd y no quiero que aparezca
si pongo la fecha funciona correctamente

este codigo hace que cuando yo de enter o tab pasa al siguiente campo y a la vez valide lo de las literales y un mensaje de fecha incorrecta

Private Sub MaskedTextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MaskedTextBox5.KeyPress
If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled = True
SendKeys.Send("{TAB}")
mfmaskformat = Me.MaskedTextBox5.TextMaskFormat
Me.MaskedTextBox5.TextMaskFormat = MaskFormat.ExcludePromptAndLiterals
If Me.MaskedTextBox5.Text.Length = 0 Then
Return
Else
Me.MaskedTextBox5.TextMaskFormat = MaskFormat.IncludeLiterals
End If
If Not IsDate(MaskedTextBox5.Text) Then
MsgBox("La fecha no es valida, debe ser en formato dd/mm/aa, si desea dejar la fecha en blanco por favor presione la tecla enter o seleccione el siguiente campo para ingresar los datos.", vbInformation)
MaskedTextBox5.Focus()
MaskedTextBox5.Text = ""
End If
End If
End Sub

ojala me puedan decir como se hace gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder