[VB.NET]Invalidare routine

[x69asterix]

ciao,
come posso invalidare questa routine da un bottone'
praticamente in questo sono costretto ad inserire o meglio a completare la data del MaskedTextBox, ma se volessi interrompere brutalmente la routine da un bottone?

 Private Sub MaskedTextBox2_TypeValidationCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.TypeValidationEventArgs) Handles MaskedTextBox2.TypeValidationCompleted

        If (Not e.IsValidInput) Then
            Me.ToolTip1.ToolTipTitle = "la data di Ingresso " + MaskedTextBox2.Text + " non è una data valida "
            Me.ToolTip1.Show("Inserire la data in questo formato es: " + Date.Today, Me.MaskedTextBox2, 0, -55, 2500)
            Beep(220, 60)
            e.Cancel = True
            End If
    End Sub

[oregon]

Crea una variabile booleana il cui valore iniziale sara' true.

Aggiungi il controllo di tale variabile in AND nella if ... ad esempio

If (Not e.IsValidInput) And var Then

Dal bottone poni la variabile uguale false ...

P.S. Le ruoutine non si "invalidano" ... semmai non si eseguono ...

[x69asterix]

buon giorno oregon,
ho provato il tuo suggerimento ma non ottengo l'effetto voluto.
Quello che ho fatto è:

Public Class Form1
    Dim var As Boolean = True

    Private Sub MaskedTextBox2_TypeValidationCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.TypeValidationEventArgs) Handles MaskedTextBox2.TypeValidationCompleted

        If (Not e.IsValidInput) And var Then
            Me.ToolTip1.ToolTipTitle = "la data di Ingresso " + MaskedTextBox2.Text + " non è una data valida "
            Me.ToolTip1.Show("Inserire la data in questo formato es: " + Date.Today, Me.MaskedTextBox2, 0, -55, 2500)
            Beep(220, 60)
            e.Cancel = True
        End If

    End Sub

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        var = False
        Beep(8500, 60)
        conn.Close()
        TextBox1.Focus()
    End Sub

ho dimenticato qualcosa?

[oregon]

No ... il problema e' che l'evento TypeValidationCompleted viene comunque eseguito prima del Click del button ... quindi questa non e' la strada giusta ...

L'unica cosa che puoi fare, e' controllare nella TypeValidationCompleted se il campo e' vuoto con

Private Sub MaskedTextBox2_TypeValidationCompleted ...
        If MaskedTextBox2.Text = "  /  /" Then
            Return
        End If

        If (Not e.IsValidInput) Then

            ...
End Sub

ma questo ovviamente vale anche se non pressi il button ...

[x69asterix]

Originariamente inviato da oregon
No ... il problema e' che l'evento TypeValidationCompleted viene comunque eseguito prima del Click del button ... quindi questa non e' la strada giusta ...

L'unica cosa che puoi fare, e' controllare nella TypeValidationCompleted se il campo e' vuoto con

Private Sub MaskedTextBox2_TypeValidationCompleted ...
        If MaskedTextBox2.Text = "  /  /" Then
            Return
        End If

        If (Not e.IsValidInput) Then

            ...
End Sub

ma questo ovviamente vale anche se non pressi il button ...

ok,
è come mi immaginavo...
quindi TypeValidationCompleted mi obbliga a completare il campo.
peccato