Belajar VB.Net : Common Dialog Control Vb.Net Pemula

Tutorial Vb.Net - Dalam pemrograman berbasis GUI, kita mengenal banyak sekali kotak dialog yang yang digunakan untuk berbagai tugas seperti membuka dan menyimpan file, untuk mencetak suatu halaman, memberikan pilihan warna, font, Jendela setup, dll, dalam sebuah aplikasi. Dialog Box akan berguna bagi pengguna dan memudahkan pengguna untuk memahami kesalahan atau perintah.

Tutorial Visual basic khusus pemula lainnya :

1. Tutorial Vb.Net : Penggunaan Arrays di Vb.Net Lengkap
2. CRUD VB.Net (Create,Read,Update, Delete) Database Ms Access
3. Belajar Vb.Net : Looping Statement Vb.Net Lengkap

Dan masih banyak tutorial - turoial tentang vb.net yang sudah kami bahas, silahkan untuk selengkapnya klik pada label Belajar VB.Net Khusus pemula.

Dari sekian banyak dialog box, Semua itu memiliki kontrol class yang diwarisi dari class CommonDialog untuk box dialog tertentu.

Untuk Metode ShowDialog digunakan untuk menampilkan semua kontrol dialog box pada saat aplikasi run-time. Akan Menjalankan nilai tipe DialogResult enumeration. Berikut Nilai-nilai DialogResult enumeration :

DialogResult	Description
Abort	Menjalankan nilai DialogResult.Abort, ketika pengguna mengklik tombol Abort
Cancel	Menjalankan DialogResult.Cancel, ketika pengguna mengklik tombol Batal
Ignore	Menjalankan DialogResult.Ignore, ketika pengguna mengklik tombol Ignore
No	Menjalankan DialogResult.No, ketika pengguna mengklik tombol No
None	Tidak menjalankan apa-apa, kotak dialog berjalan terus
OK	Menjalankan DialogResult.Ok, ketika pengguna mengklik tombol OK
Retry	Menjalankan DialogResult.Retry, ketika pengguna mengklik tombol Retry
Yes	Menjalankan DialogResult.Yes, ketika pengguna mengklik tombol Yes

Penggunaan ColorDialog Control Vb.Net

buat sebuah form menggunakan visual studio kamu dan beri 1 buah button dan label, untuk percobaan kita silahkan desain seperti tampilan berikut :

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If ColorDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
            Label1.ForeColor = ColorDialog1.Color
        End If
    End Sub
End Class

Font Dialog Control dalam Vb.Net

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If FontDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
            RichTextBox1.ForeColor = FontDialog1.Color
            RichTextBox1.Font = FontDialog1.Font
        End If
    End Sub
End Class

Open File Dialog

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
        End If
    End Sub
End Class

Save Dialog

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt"
      If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
   Then
         My.Computer.FileSystem.WriteAllText _
         (SaveFileDialog1.FileName, RichTextBox1.Text, True)
      End If
    End Sub
End Class

Print Dialog Control

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PrintDialog1.Document = PrintDocument1
        PrintDialog1.PrinterSettings = PrintDocument1.PrinterSettings
        PrintDialog1.AllowSomePages = True
        If PrintDialog1.ShowDialog = DialogResult.OK Then
            PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
            PrintDocument1.Print()
        End If
    End Sub
End Class

Share jika bermanfaat ya, terima kasih