Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

problem getting correct responce from default login dialog result.

Posted on 2009-06-29
2
Medium Priority
?
181 Views
Last Modified: 2012-05-07
Hello all:

   I have a small issue that I can;t seem to figure out.  I am useing a sub main() to start my app and to display a login form....   the problem that I am having is that weither the user clock "OK" or "Cancel" my result code is always windows.form.dialogresult.cancel....   what gives?

I put a couple of msgbox's in place to test and make sure I didn't have the labels messed up or something like that...


Public Sub Main()
        Dim LogIn As New LoginForm()
        Dim result As DialogResult
        result = LogIn.ShowDialog
        MsgBox(result.ToString)
        If result = Windows.Forms.DialogResult.OK Then
            'validate user here
            Application.Run(New MainForm)
        End If
    End Sub
 
 
Public Class LoginForm
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        MsgBox("Clicked ok")
        Me.Close()
    End Sub
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        MsgBox("Clicked cancel")
        Me.Close()
    End Sub
End Class

Open in new window

0
Comment
Question by:MedSouth
2 Comments
 
LVL 8

Accepted Solution

by:
Bob Hoffman earned 2000 total points
ID: 24738226
You need to set the DialogResult... see below
 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        MsgBox("Clicked ok")
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        MsgBox("Clicked cancel")
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

Open in new window

0
 

Author Closing Comment

by:MedSouth
ID: 31598005
OK I feel like a big ol lump now....  :)    thanks for the slap and the quick responce....  
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…
Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
Are you ready to place your question in front of subject-matter experts for more timely responses? With the release of Priority Question, Premium Members, Team Accounts and Qualified Experts can now identify the emergent level of their issue, signal…
Screencast - Getting to Know the Pipeline
Suggested Courses

783 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question