Contoh Penggunaan DialogResult pada Object, MessageBox dan Form VBNET

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Contoh Penggunaan DialogResult pada Object, MessageBox dan Form VBNET, Diterbitkan oleh scodeaplikasi pada Jumat, 31 Mei 2013. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.