Contoh Penggunaan DialogResult pada Object, MessageBox dan Form VBNET

Ada yang sudah tahu apa itu DialogResult? Sederhanya adalah jika anda memunculkan/membuat messagebox, maka akan ada pilihan apakah hasilnya akan Yes, No, Cancel dan lain lain. Di VB.Net ada 8 DialogResult (dengan index dari 0) :

0 = Windows.Forms.DialogResult.None

1 = Windows.Forms.DialogResult.OK

2 = Windows.Forms.DialogResult.Cancel

3 = Windows.Forms.DialogResult.Abort

4 = Windows.Forms.DialogResult.Retry

5 = Windows.Forms.DialogResult.Ignore

6 = Windows.Forms.DialogResult.Yes

7 = Windows.Forms.DialogResult.No

Jika anda ingin membuat pesan "Yes, No, Cancel" dan masing masing pilihan mempunyai kondisi yang berbeda, maka anda dapat menulis sintaknya seperti ini :

Dim hasil As DialogResult

hasil = MessageBox.Show("Yes or No or Cancel ?", "Tanya", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

Select Case hasil

      CaseWindows.Forms.DialogResult.Yes

                'jika yes maka ...

      CaseWindows.Forms.DialogResult.No

                'jika no maka ...

      CaseWindows.Forms.DialogResult.Cancel

                'jika cancel maka ...

End Select

DialogResult jika dapat anda aplikasikan untuk validasi pada object : OpenFileDialog, SaveFileDialog, ColorDialog dan lain lain. Sehingga dapat diketahui apakah user itu meng-click open atau cancel misalnya.

Dim buka As New OpenFileDialog

With buka

    .Filter = "Music File|*.mp3"

    If.ShowDialog = Windows.Forms.DialogResult.Cancel Then

                'jika batal maka no action

    Else

                'jika klik open

      TextBox1.Text = .FileName

    End If

End With

Selain itu jika ada pernah memanggil form lain (form2) dari tombol di form1, anda juga dapat menggunakan DialogResult supaya lebih praktis. Misalnya saya sudah membuat form seperti ini :

Kemudian saya panggil dari form1 (saat tekan button1) dan sekaligus membuat kondisi selanjutnya.

Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

   Dim new_formAs New Form2

   Ifnew_form.ShowDialog = Windows.Forms.DialogResult.OK Then

            'jika Setuju ...

   Else

            'jika tidak setuju ...

   End If

End Sub

Pertanyaanya, bagaimana kita bisa tahu SETUJU = OK dan TIDAK SETUJU = Cancel ? jawabannya adalah dengan setting dialoag result pada masing masing button di event form2_load()

Private Sub Form2_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

   Button_setuju.DialogResult = Windows.Forms.DialogResult.OK

   Button_tidak.DialogResult = Windows.Forms.DialogResult.Cancel

End Sub

Tags:
How to use the DialogResult property in Visual Basic .NET, Dialog forms in VB.NET - Modal, ShowDialog, and DialogResult, VB.NET MessageBox.Show Examples, VB.NET 2005 DialogResult.OK, Cancel dialog result from closing form, Get DialogResult

Mengenal Fungsi (+=,-=,*=,/=) di VBNET (Mempersingkat Sintak/Coding)

Mungkin tidak banyak programmer yang belum klo di VBNET itu anda dapat menyingkat penulisan sintak untuk perhitungan (khusunya increment). Mungkin dari jamannya VB6 sampai VBNET anda sering menulis seperti ini :

Nomor = Nomor + 1
Atau pada looping sederhana misalnya :

Dim nomor As Integer = 1

Do While reader.Read

   nomor = nomor + 1

   ListView1.Items.Add(nomor)

Loop

Nah sebenarnya kita dapat menyingkat dengan menulis seperti ini di VBNET :
Nomor += 1 (artinya sama dengan nomor = nomor + 1)
Nomor -= 10 (artinya sama dengan nomor = nomor - 10)
Nomor *= 5 (artinya sama dengan nomor = nomor * 5)
Nomor /= 2 (artinya sama dengan nomor = nomor / 2)

Contoh :

Dim nomor As Integer = 1

Do While reader.Read

   nomor += 1
   ListView1.Items.Add(nomor)

Loop

Hal ini mirip dengan bahasa C++ atau PHP , contoh : nomor++
Selamat mencoba dan Semoga bermanfaat !

Tags:

i++ in vbnet, looping in vbnet, Where is I++ in VB.Net?, Does i++ exist now in VB.net?, Increment Operators in VB.Net