dcsimg
Login | Register   
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Jan 3, 2001

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


Handling Dialogs With One Line of Code


Handle dialogs with one line of code by encapsulating the show method within the form in a public function. This makes the form/dialog reusable and simpler to implement and update. Example:
  
Form: frmLogin 
        Option Explicit 
        Public Enum LoginReturns 
            LoginFailed = 0 
            LoginSuccess = 1 
        End Enum 
        Private mReturn As Long 
        Private mDefaultUserName As String 
        Public Function ShowLogin(Optional DefaultUserName As String, 
Optional OwnerForm) As LoginReturns 
            mDefaultUserName = DefaultUserName 
            Me.Show vbModal, OwnerForm 
    
            ShowLogin = mReturn 
        End Function 
        Private Sub cmdLogin_Click() 
            If txtUserName = "user" And txtPassword = "test" Then 
                mReturn = LoginSuccess 
                SaveSetting App.Title, "Settings", "LastUser", 
txtUserName 
                Unload Me 
            Else 
                MsgBox "Invalid password/user!", vbInformation 
            End If 
        End Sub 
        Private Sub Form_Load() 
            txtUserName = mDefaultUserName 
        End Sub 
        Private Sub cmdCancel_Click() 
            Unload Me 
        End Sub 
Module: mdlMain [Startup: Sub Main] 
        Option Explicit 
        Public Sub Main() 
        Dim frmForm As frmLogin 
            Set frmForm = New frmLogin 
    
            Select Case frmForm.ShowLogin(GetSetting
(App.Title, "Settings", "LastUser")) 
            Case LoginSuccess 
                MsgBox "Login: Success!", vbInformation 
            Case LoginFailed 
                MsgBox "Login: Failed!", vbInformation 
            Case Else 
                MsgBox "Login: Unknown!", vbInformation 
            End Select 
        End Sub 
Andreas Hillqvist
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date