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

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: