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


Tip of the Day
Language: VB7
Expertise: beginner
Jun 30, 2003

Ask a Yes/no question and return a Boolean

' Ask a Yes/no question
' returns True if the user replies "Yes"
' Example: MessageBox.Show(AskYesOrNo("Do you like me?", "ME", True))

Function AskYesOrNo(ByVal text As String, ByVal title As String, _
    ByVal defaultAnswer As Boolean) As Boolean
    Dim defButton As MessageBoxDefaultButton = MessageBoxDefaultButton.Button2
    If defaultAnswer Then
        defButton = MessageBoxDefaultButton.Button1
    End If
    Dim answer As DialogResult = MessageBox.Show(text, title, _
        MessageBoxButtons.YesNo, MessageBoxIcon.Question, defButton)
    Return (answer = DialogResult.Yes)
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap