how to invoke the e argument in Validating Sub ?

[loyal]

how to invoke the e argument in Validating Sub ?

well I have a text box that used ErrorProvider in

Validating Event I want to cancel the validating

by invoke the sub and send false to the( e ) argument

But how ?

Here is the code

If IsNumeric(txtName.Text) Then
ErrorProvider1.SetError(txtName, "Please Enter a string Value")
e.Cancel = True

Else
ErrorProvider1.SetError(txtName, "")

End If

 

[Volte]

What do you mean "invoke the e argument"?

 

[loyal]

hi

well see this pic please

 

[mutant]

If im understanding correctly what you want to do cant be done. You cant pass in a boolean value in place of System.ComponentModel.CancelEventArgs, and you cant change the value like that because you are setting it to true anyway. You could make another boolean value that will be for example set to true and if its true then change e.Cancel to false.
All of this is based on assumption .

 

[Volte]

Actually, what you need to do is create a CancelEventArgs, not a boolean, and pass that in.

Dim args As New System.ComponentModel.CancelEventArgs()
args.Cancel = False

txtName_Validating(Nothing, args)

 

[loyal]

thats it >>>>>>> yeah I love this Forum

 

[loyal]

the first work perfectly but the second I dont know why

heres the applcation see if theres a mistake I have done

heres the code

Dim b As Boolean

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        b = True
    End Sub


    Private Sub txtName_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtName.Validating
        Dim ico As New Icon(Application.StartupPath & _
        "\MSGBOX01.ico")
        ErrorProvider1.Icon = ico
        If the Vaue is Number Then
        If IsNumeric(txtName.Text) Then
            ErrorProvider1.SetError(txtName, "Please Enter a string Value")
            e.Cancel = True
        Else
            ErrorProvider1.SetError(txtName, "")
        End If
    End Sub

    Private Sub txtpassword_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtpassword.Validating
        If Not IsNumeric(txtpassword.Text) Then
            Dim ico As New Icon(Application.StartupPath & _
            "\FACE04.ico")
            ErrorProvider1.Icon = ico
            ErrorProvider1.SetError(txtpassword, "Please Enter a Numeric Value")
            e.Cancel = b
        Else
            ErrorProvider1.SetError(txtpassword, "")


        End If
    End Sub


 This works perfectly
//////////////////////////
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        b = False
        Me.Close()
    End Sub

This I have no Idea
it doesnt work ?
//////////////////////////
    Private Sub btnInvoke_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInvoke.Click
        TODO: I Dont Know why it does not work ?
        Dim myCancel As New System.ComponentModel.CancelEventArgs()
        myCancel.Cancel = False
        txtName_Validating(Nothing, myCancel)
        Me.Close()
    End Sub