MessageBox pada VB.Net

MessageBox pada VB.Net berisi sebuah message akan ditampilkan tepat diatas sebuah form dan akan hilang ketika mendapat respon dari user dengan menklik tombol yang ada pada message box tersebut. langsung pada contoh yang saya dapatkan di LabSI UG. berikut desainnya:







dengan coding :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        Dim nilai As Integer

        Dim hasil As Long

        Dim n As Integer

        nilai = Val(TextBox1.Text)

        hasil = 1

        If nilai > 0 Then

            Try

                For n = 1 To nilai

                    hasil = hasil * n

                Next n

Catch ex As Exception

                MsgBox(ex.Message)

                Call btnClear_Click(sender, e)

                Exit Sub

            End Try

Else

            MsgBox("Nilai tidak boleh kosong")

            Exit Sub

        End If

        TextBox2.Text = hasil

    End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox1.Focus()

    End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

        Dim PS As String

        PS = MsgBox("Anda mau keluar", MsgBoxStyle.YesNo, "Exit")

        If PS = vbYes Then

            End

        End If

    End Sub

End Class

Outpunya sbb:





tidak bermaksud menggurui, hanya untuk mengingatkan diri sendiri