Problem when i click the yes button

Question

gelmi 1 Newbie Poster

11 Years Ago

--->>> when i click the yes button me.show, disappears, it suppose to stay, i don't know that the problem is. I hope someone can help thanks in advanced ^_^
Public Class MagicBeans

Private Sub MagicBeans_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    MessageBox.Show("WELCOME TO MAGIC BEANS INC. ^_^ :* :)) :p", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)

    Dim button As DialogResult
    button = MessageBox.Show("Would you like to become a member? (note: membership fee Php 500, non-member 250 for)", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Information)
    If button = Windows.Forms.DialogResult.Yes Then
        Me.Show()
        Me.Dispose(False)
    ElseIf button = Windows.Forms.DialogResult.No Then
        Transaction.Show()
        Me.Dispose(False)

    End If
End Sub

End Class

vb.net

2 Contributors
1 Reply
265 Views
22 Minutes Discussion Span
Latest Post 11 Years Ago Latest Post by poojavb

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

poojavb 29 Junior Poster · Answer 1 · 2012-10-13T06:26:31+00:00

 MessageBox.Show("WELCOME TO MAGIC BEANS INC. ^_^ :* :)) :p", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
          Dim button As DialogResult
          button = MessageBox.Show("Would you like to become a member? (note: membership fee Php 500, non-member 250 for)", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Information)
          If button = Windows.Forms.DialogResult.Yes Then
               Me.Show()
               'Me.Dispose(False)
          ElseIf button = Windows.Forms.DialogResult.No Then
               Form2.Show()
               Me.Dispose(False)
          End If