Solved

problem getting correct responce from default login dialog result.

Posted on 2009-06-29
2
178 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 8

Accepted Solution

by:
Bob Hoffman earned 500 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

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…
Finding and deleting duplicate (picture) files can be a time consuming task. My wife and I, our three kids and their families all share one dilemma: Managing our pictures. Between desktops, laptops, phones, tablets, and cameras; over the last decade…

739 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