Friday, May 31, 2013

Sharing Everything From My Experience And Knowlegde

Sharing Everything From My Experience And Knowlegde

Contoh Penggunaan DialogResult pada Object, MessageBox dan Form VBNET

Posted: 31 May 2013 12:55 AM PDT

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
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)