Sythe.org — A Virtual Goods Trading Hub

Jeroentjo · #1 01-06-2012, 10:50 PM

hey, i started with a mini project on .NET today, im really a starting beginner. ;p
code;
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If MsgBox("Are you sure you wanna quit?", MsgBoxStyle.OkCancel, MessageBoxIcon.Question = Windows.Forms.DialogResult.Yes) Then End
If MsgBox("Are you sure you wanna quit?", MsgBoxStyle.OkCancel, MessageBoxIcon.Question = Windows.Forms.DialogResult.Cancel) Then

End If
End Sub

End Class

_______________________________
TLDR: Basicly its a "Quit" button and i need to make that if u press cancel the application still stays open, dont flame about my skills or w/e.
Ty!

matt_sells · #2 01-07-2012, 04:23 AM

so you want a yes/no messagebox?
If MessageBox.Show("name/stuff", "something", MessageBoxButtons.okcancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
MessageBox.Show("you want to quit") 'this = ok
Else
MessageBox.Show("you don't want to quit") 'this = cancel
End If

basically all you did wrong was forget that you needed ELSE

Jeroentjo · #3 01-07-2012, 10:21 AM

thanks man!

, but i need to make when u press "OK" that you quit, now it says "You dont want to quit", but i made
If MessageBox.Show("Are you sure you wanna Quit?", "Quit", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then End
MessageBox.Show("you want to quit")
Else
MsgBox("you don't want to quit", MessageBoxIcon.Exclamation) 'this = cancel
End If
and it gave me 2 errors..

#4 01-07-2012, 12:18 PM

Code:

        If MsgBox("Are you sure you want to quit?", MsgBoxStyle.OkCancel) = DialogResult.OK Then
            End
        End If

You don't need to put the second MsgBox since it doesn't do anything. That will only make it show twice.

If you want to have different things happen, do something like this:

Code:

        Dim result As DialogResult
        result = MsgBox("Are you sure you want to quit?", MsgBoxStyle.OkCancel)
        If result = DialogResult.OK Then
            End
        ElseIf result = DialogResult.Cancel Then
            'Do other stuff here.
        End If