VB.NET

VB.NET RSS

e.cancel simple problem??

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Apr 2007

Posts: 11

Reputation: Fritzeh is an unknown quantity at this point

Solved Threads: 0

Fritzeh

Offline

Newbie Poster

e.cancel simple problem??

Apr 1st, 2008

Hey people, just a quick one here, as its getting quite annoying. Basically i want the form to only be closed when a correct password is entered using the form closing event. i have tried the following methods but they all seem to crash... any ideas?

They all start with the following initial code:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim strPass As String = "123" ' The default password for exit
 
        Dim givenPass = InputBox("Please enter password to quit", "Quit?")
Dim strPass As String = "123" ' The default password for exit

        Dim givenPass = InputBox("Please enter password to quit", "Quit?")

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
If MsgBoxResult.Ok Then
            Select Case givenPass = strPass
                Case givenPass = Not strPass Or givenPass = ""
                    e.Cancel = True
            End Select
 
        ElseIf MsgBoxResult.Cancel Then
            e.Cancel = True
 
        End If
If MsgBoxResult.Ok Then
            Select Case givenPass = strPass
                Case givenPass = Not strPass Or givenPass = ""
                    e.Cancel = True
            End Select

        ElseIf MsgBoxResult.Cancel Then
            e.Cancel = True

        End If

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
If (givenPass = "" Or givenPass = Not strPass) And MsgBoxResult.Ok Then
        '     MsgBox("Password incorrect, please try again or consult user guide")
        '     e.Cancel = True
        ' ElseIf Windows.Forms.DialogResult.Cancel = True Then
        ' ElseIf givenPass = strPass Then
        '    End
        'Else
        '    MsgBox("Unknown error, please try again")
        'End If
If (givenPass = "" Or givenPass = Not strPass) And MsgBoxResult.Ok Then
        '     MsgBox("Password incorrect, please try again or consult user guide")
        '     e.Cancel = True
        ' ElseIf Windows.Forms.DialogResult.Cancel = True Then
        ' ElseIf givenPass = strPass Then
        '    End
        'Else
        '    MsgBox("Unknown error, please try again")
        'End If

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Try
 
        'Select Case MsgBoxResult.Ok And givenPass = strPass
        'Do Nothing 
        '    Case MsgBoxResult.Ok And givenPass = Not strPass Or givenPass = ""
        '  e.Cancel = True
        '      Case MsgBoxResult.Cancel
        '  e.Cancel = True
        '  End Select
 
        '  Catch ee As Exception
        'Throw ee
        ' End Try
Try

        'Select Case MsgBoxResult.Ok And givenPass = strPass
        'Do Nothing 
        '    Case MsgBoxResult.Ok And givenPass = Not strPass Or givenPass = ""
        '  e.Cancel = True
        '      Case MsgBoxResult.Cancel
        '  e.Cancel = True
        '  End Select

        '  Catch ee As Exception
        'Throw ee
        ' End Try

any ideas? Thanks for any help in advance

•

Join Date: Nov 2007

Posts: 2,641

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: e.cancel simple problem??

Apr 1st, 2008

i think this code is alright.

Last edited by Jx_Man; Apr 1st, 2008 at 4:51 pm.

Never tried = Never Know
So, Please do something before post your thread.
* PM Asking will be ignored *

•

Join Date: Apr 2007

Posts: 11

Reputation: Fritzeh is an unknown quantity at this point

Solved Threads: 0

Fritzeh

Offline

Newbie Poster

Re: e.cancel simple problem??

Apr 1st, 2008

I have tried all 3, hence the commenting out, VB JIT debugger tried to handle it.

Basically ok works if the password is correct or there isnt one, if its wrong i think it crashes or if i hit cancel.

•

Join Date: Jan 2007

Posts: 3

Reputation: johnny3d is an unknown quantity at this point

Solved Threads: 1

johnny3d

Offline

Newbie Poster

Re: e.cancel simple problem??

Apr 1st, 2008

Try this:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
        Dim strPass As String = "123" ' The default password for exit
        Dim givenPass = InputBox("Please enter password to quit", "Quit?")
        If givenPass = strPass Then
            'do nothing.. let them leave
        ElseIf givenPass = "" Then
            'user click the cancel button
            MsgBox("You must enter a password.")
            e.Cancel = True
        Else
            'password is wrong
            MsgBox("Your password is not correct. Please try again.")
            e.Cancel = True
        End If
        Dim strPass As String = "123" ' The default password for exit
        Dim givenPass = InputBox("Please enter password to quit", "Quit?")
        If givenPass = strPass Then
            'do nothing.. let them leave
        ElseIf givenPass = "" Then
            'user click the cancel button
            MsgBox("You must enter a password.")
            e.Cancel = True
        Else
            'password is wrong
            MsgBox("Your password is not correct. Please try again.")
            e.Cancel = True
        End If