Cara Menggunakan Komponen CommonDialog Dalam Bentuk Aplikasi Sederhana di Visual Basic .Net

Kalau Anda bingung membuat Aplikasi Desktop yang menampilkan beberapa jendela untuk memilih file, menyimpan, mewarnai sampai dengan menge-print solusi yang diambil adalah menggunakan komponen CommonDialog yang sangat membantu dalam membuat fitur yang Anda inginkan.

Komponen CommonDialog ini tidak tersedia di ToolBox  di VB .Net sebagaimana yang ada di Visual Basic 6.0 tapi kalau di VB .Net ini mempunyai Class terpisah.Walaupun secara teknis berbeda tetap menyebutnya CommonDialog karena fungsinya mirip.

Komponen Commondialog di VB.Net

Dalam artikel blog kali ini Admin akan membahas bagaiman cara menggunakan komponen CommonDialog dalam bentuk aplikasi sederhana di Visual Basic .Net.

Apa itu komponen CommonDialog di VB .Net?

CommonDialog adalah sebuah komponen sederhana yang menampilkan Dialog Standar Windows seperti dibawah ini :

1. Open File Dialog
2. Save File Dialog
3. Color Dialog
4. Font Dialog
5. Folder Browser Dialog
6. Print Dialog

Berikut dibawah ini adalah cara menggunakan komponen CommonDialog yang sudah disebutkan diatas :

1. Open File Dialog

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'bagian dari Open file Dialog

        Dim bukaFile As New OpenFileDialog()

        bukaFile.Title = "Pilih File Teks"

        bukaFile.Filter = "File Teks (*.txt)|*.txt|Semua File (*.*)|*.*"

        bukaFile.InitialDirectory = "D:\"

        If bukaFile.ShowDialog() = DialogResult.OK Then

            LabelNamaFile.Text = bukaFile.FileName

        End If

    End Sub

Penjelasan kode :

Filter : Menetukan jenis file yang dipilih

Title : Judul pada dialog

ShowDialog() : Menampilkan dialog

DialogResult.OK : Mengecek apakah user menekan tombol OK

ReadAllText : Membaca isi file yang dipilih

2. Save File Diaolg

Tanamkan 1 RichTextBox dan 1 Button di Form

Imports System.IO 'tempatkan diatas Public Class Form1

Dim pathFile As String = "" 'tempatkan dibawah Public Class Form1

 Private Sub ButtonSave_Click(sender As Object, e As EventArgs) Handles ButtonSave.Click

        'bagian dari Save Dialog

        If RichTextBox1.Text = "" Then

            MsgBox("masukan teks yang akan dismpan", vbInformation, "Info")

            RichTextBox1.Focus()

        Else

            If pathFile = "" Then

                Dim saveFile As New SaveFileDialog()

                saveFile.Filter = "File Teks (*.txt)|*.txt"

                If saveFile.ShowDialog() = DialogResult.OK Then

                    pathFile = saveFile.FileName

                    File.WriteAllText(pathFile, RichTextBox1.Text)

                    MessageBox.Show("File berhasil disimpan!")

                End If

            Else

                File.WriteAllText(pathFile, RichTextBox1.Text)

                MessageBox.Show("File berhasil diperbarui!")

            End If

        End If

    End Sub

3. Color Dialog

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        'bagian dari Color dialog

        Dim pilihWarna As New ColorDialog()

        If pilihWarna.ShowDialog() = DialogResult.OK Then

            LabelTeksWarna.ForeColor = pilihWarna.Color

        End If

    End Sub

4. Font Dialog

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        'bagian dari FontDialog

        Dim pilihFont As New FontDialog()

        If pilihFont.ShowDialog() = DialogResult.OK Then

            LabelFont.Font = pilihFont.Font

        End If

    End Sub

5. Browse Folder Dialog

 'bagian dari Browse Folder

        Dim pilihFolder As New FolderBrowserDialog()

        pilihFolder.Description = "Silakan pilih folder tujuan"

        pilihFolder.RootFolder = Environment.SpecialFolder.Desktop

        pilihFolder.ShowNewFolderButton = True

        If pilihFolder.ShowDialog() = DialogResult.OK Then

            TextBoxFolder.Text = pilihFolder.SelectedPath

        End If

6. Print Dialog

Tambahkan 1 PrintDocument1 yang ada di ToolBox di Form1

Imports System.Drawing.Printing 'tambahkan di atas Form

Private Sub ButtonPrint_Click(sender As Object, e As EventArgs) Handles ButtonPrint.Click

        'bagian dari PrinDialog

        Dim dialogPrint As New PrintDialog()

        dialogPrint.Document = PrintDocument1

        If dialogPrint.ShowDialog() = DialogResult.OK Then

            PrintDocument1.Print()

        End If

    End Sub

    Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage

        'bagian dari PrinDialog

        e.Graphics.DrawString("Contoh Cetak dari VB.NET",

                              New Font("Arial", 14),

                              Brushes.Black,

                              100, 100)

    End Sub

Dengan memahami cara kerja dan penerapannya dengan ini kita bisa membuat Aplikasi Windows form yang lebih interaktif misalnya Aplikasi Aplikasi Paint.

Demikinalah artikel blog hari ini tentang Cara Menggunakan Komponen CommonDialog Dalam Bentuk Aplikasi Sederhana di Visual Basic . Net, semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil