Visual Basic Tutorial - 40 - MessageBox Input

[@mamaduck6845]

I just wanted to comment that I am very impressed with the organized approach you are taking in your tutorials. Very methodical and clear. Unusual for a techy!

[@WantACoconutSir]

For those who only managed to have two printed out (e.g. abort and retry, but can't get the messagebox for ignored to show up) then you need to assign the messagebox to a variable, so it would look something like this: Dim Selection As String Selection = MessageBox.Show("Message", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Information) If Selection = Windows.Forms.DialogResult.Abort Then MessageBox.Show("Aborted") ElseIf Selection = Windows.Forms.DialogResult.Retry Then MessageBox.Show("Retry") ElseIf Selection = Windows.Forms.DialogResult.Ignore Then MessageBox.Show("Ignored") End If End Sub End Class

[@lorenzogarcia-mb3hy]

why do window have to complicate things like this?

[@imfuctifino]

+For Nachos Can you explain why it doesn't show the 3rd case ? I'm trying to understand but It's Very frustrating trying to apply rules taught that on the face of it appear simple but don't work.

[@IG7799-c4u]

I know this is an old comment, but I found this really useful so thanks mate :).

[@GameinTheSkin]

Hey man thanks a lot!

[@SzczurkiBurki]

Oh it works o-o

[@Aleebaan]

Select Case MessageBox.Show("Click!", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) Case Windows.Forms.DialogResult.Abort MessageBox.Show("Aborted") Case Windows.Forms.DialogResult.Ignore MessageBox.Show("Ignored") Case Windows.Forms.DialogResult.Retry MessageBox.Show("Retried") Select Case is way easier to use! Just a tip!

[@Janmba_]

Mr. Albin Hermansson, thank you very much for the kindness you have recently bestowed upon me.

[@warlordsquerk5338]

FYI I'm using Visual Studio 2015 Community Edition and "Windows.Forms.DialogResult.Abort" doesn't work. It says "Forms is not a member of windows". Instead what you gotta do is just use "DialogResult.Abort"

[@loganscomputerco.2599]

Yes, I got that same problem but what you need to do is take off the windows.forms and it should work

[@seeranimate4363]

@@loganscomputerco.2599 Does it work for .vbs?

[@yoferenuntar6481]

why we directly put the if statement rather than, put the messagebox.show first and then make if statements??]

[@narutopcwiz]

@Zeiterius i recommend to watch the console tutorial first, well it's easy for you to understand that if you know already some language.

[@TheHackZone5]

nice tutorial man...bucky you are AWESOME for doing this .. i mean getting new tutorials

[@KiKatXdRbMC]

how to create two textbox and if press okay it will show the two separate messagebox rom the two textbox

[@sudacaenny]

Hello sam your tutorials are awesome but I need a little help on this tutorial. I am trying to use the Select case for this tutorial instead of the if statement, but I am having a hard time you showed how to use the case selector for console aplications but I dont know how to do it in this case windows ap

[@08calf]

to add "retrying" we can use elseif copy ElseIf MessageBox.Show("hellow world", "alfred", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Retry Then

[@afro2365]

Sam, any idea why when I create Else IF statements in the code for the additional buttons that I have to click the buttons multiple times in order to get the response. In the code below, the order is Abort/Retry/Ignore. I have to Click Abort once, Retry Twice, and Ignore three times to get the Messagebox.Show output. This is in Visual Studio Pro 2015 so replace Windows.Forms.DialogResult.*result* with DialogResult.*result* Public Class Form1 Private Sub BtnMessage_Click(sender As Object, e As EventArgs) Handles BtnMessage.Click If MessageBox.Show("Click Something", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) = DialogResult.Abort Then MessageBox.Show("aborted") ElseIf MessageBox.Show("Click Something", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) = DialogResult.Retry Then MessageBox.Show("Retrying Now") ElseIf MessageBox.Show("Click Something", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) = DialogResult.Ignore Then MessageBox.Show("Ignored") End If End Sub End Class

[@dietcokedude]

I had the same problem with Visual Studio Community 2015. -a solution i found that worked was instead of using "else if", i used 3 "if" "end if" statements and it worked Without the clicking two and three times thing.

[@PinGsamY]

how is that gonna work , how do you know MessageBox.Show("Click Something", "title", MessageBoxButtons.AbortRetryIg­nore, MessageBoxIcon.Question) is an integer type?

[@XenoContact]

I assume Windows.Forms.DialogResult.Ret­ry, for example, is an integer then?

[@holkocz12]

Hello Im Poland. I create my first program (Calculator) and I dont know why continue next programms in Virtual Basic . Thanks

[@misatotachibana9173]

HołKocz12 Poland can into windows forms.

[@Komyczeq]

huj wyjebane

[@nataliecook8230]

FYI for those who are using Visual Studio 2015 Enterprise and "Windows.Forms.DialogResult.Abort" doesn't work, use "DialogResult.Abort" and if the "then" doesn't work also. It means you have to use the C# language. Try this: { DialogResult dialog = MessageBox.Show("click something.", "title", MessageBoxButtons.AbortRetryIgnore, MessageBox.Icon.Question); if (dialog == DialogResult.Abort) { MessageBox.Show("aborted"); } else if (dialog == DialogResult.Retry) { MessageBox.Show("retried"); } else if (dialog == DialogResult.Ignore) { MessageBox.Show("ignored"); } }

[@markoperica2]

If MessageBox.Show("Click something", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Abort Then MessageBox.Show("Aborted") ElseIf Windows.Forms.DialogResult.Retry Then MessageBox.Show("Retrying") ElseIf Windows.Forms.DialogResult.Ignore Then MessageBox.Show("Ignoring!") Im having problems with thos: when i click ignore it sads retrying.. WTF?

[@MellowCulture]

Dim Selection As String = Nothing Selection = MessageBox.Show("Message", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Information) Select Case Selection Case Windows.Forms.DialogResult.Abort MessageBox.Show("FOR ABORT") Case Windows.Forms.DialogResult.Retry MessageBox.Show("FOR RETRY") Case Else MessageBox.Show("FOR IGNORE") End Select

[@1368matrix]

Its opening 500 times the message box. Any help?

[@MouseMan707]

Paste the your code if you need help, no one can do anything if they can't see it.

[@1368matrix]

Already fixed it. I just used the timer.stop() code and it worked, nvm anymore :D

[@BrJose]

Great tutorials. I'm learning a lot and having fun. Tx!

[@zc0rp10]

I ended up using the select option, looked like this: Private Sub btnMessage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMessage.Click Select Case MessageBox.Show("Click Something.", "title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) Case Windows.Forms.DialogResult.Abort MessageBox.Show("Aborted") Case Windows.Forms.DialogResult.Retry MessageBox.Show("Retrying") Case Windows.Forms.DialogResult.Ignore MessageBox.Show("Ignored") End Select

[@Badadaha]

@2pimpinout thanx i was trying to figure out what variable type to use. :P

[@ImTheDinoTV]

Not working

[@LiamRush1743]

This has helped me so much!! Thx

[@TheHackZone5]

@chili24137 i no man but he is the one who searched for the tutorials !

[@zekefernandez6035]

Thanks for the Tutorial! :) The Select Case is easier than the if then :/

[@Jemmeh]

That is a good way of doing it. :D

[@2pimpinout]

It is better if you make it like this: Dim Result As DialogResult = MessageBox.Show("Click Something.", "title", MessageBoxButtons.AbortRetryIg­nore, MessageBoxIcon.Question) If Result = Windows.Forms.DialogResult.Abort Then MsgBox("Aborted!) ElseIf Result = Windows.Forms.DialogResult.Cancel Then MsgBox("Canceled") End If

[@chili24137]

@TheHackZone5 lol dude, this isn't bucky, roflllllll

[@gjh33]

couldn't you put the MessageBox.Show() inside a variable then test the variable for results. That's how its done in VBS. Also, Does anyone else want to punch their computer when a program underlines a spelling/grammer mistake? I hate that so much. MS Word pisses me off the most.

[@djuroue1]

@gjh33 Congraz man Dim message As string = MessageBox.Show("clic smth", "tittle", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) and then just if ... retry if ignore if aborted an worked :))) before i have your comment i have tried just if if if with whole message thibg and work but just if click one time on first,two time on second and three time on tird ;((( Who will try that way they will know what i am talking about.

[@ocurso6198]

thank you very much

[@partners5074]

Dim x As String = MessageBox.Show("M", "T", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Question) If x = Windows.Forms.DialogResult.Abort Then MessageBox.Show("A") ElseIf x = Windows.Forms.DialogResult.Retry Then MessageBox.Show("R") Else MessageBox.Show("I") End If

[@BiggestTrollAlive42]

Select Case intResult Case Windows.Forms.DialogResult.Ignore MessageBox.Show("You ignored it") Case Windows.Forms.DialogResult.Retry MessageBox.Show("Try again cowboy!") Case Windows.Forms.DialogResult.Abort MessageBox.Show("You aborted a baby") End Select Select makes it so much easier and cleaner though :)

[@dithiraravindu8629]

👍👍🙏

[@braveheart8552]

thank you

[@_Wruce_Bayne]

Thank you.!!!

[@blueglue6266]

So helpfu,l thx bro!!

[@ron030363]

Why are you fucking messing with my mind?