OpenFileDialog, dan SavefileDialog Pada Visual Basic .NET

Assalamu’alaikum wr. wb, Bissmillahirrohmanirrohim, kali ini saya akan sedikit berbagi dengan kawan kawan semua tentang ilmu yang saya dapatkan tadi pagi di mata kuliah Pemrograman .NET

kali ini kita akan membahas tentang OpenFileDialog, dan SavefileDialog Pada Visual Basic .NET

OpenFileDialog adalah jendela atau form dialog yang digunakan untuk mendapatkan suatu lokasi sebuah atau lebih file, pada jendela tersebut file file yang terlihat dapat di filter agar file dengan ekstensi tertentu yang terlihat saja. Sedangkan Save File Dialog adalah jendela atau form dialog yang digunakan untuk mengeset lokasi suatu file yang telah kita buat untuk disimpan ke dalam suatu disk.

Pertama buat sebuah project baru dengan cara memilih file – new project – new form windows application

Langkah pertama buat form bernama OpenFile kemudian desain form tersebut seperti berikut

Kemudian tambahkan toolbox openfiledialog dan savefile dialog seperti berikut ini

Setelah form selesai didesain langkah selanjutnya adalah proses pengcodingan pada form OpenFile, dan berikut ini adalah sintaks yang digunakan pada form OpenFile

Public Class OpenFile
 
    'sintaks pada button1 atau button Open
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = _
        "JPEG|*.JPG|BITMAP| *.BMP|GIF| *.GIF|ICON| *.Ico"
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.ShowDialog()
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        PictureBox1.ImageLocation = OpenFileDialog1.FileName
    End Sub
 
    'sintaks pada button2 atau button Simpan
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Gambar As New System.Drawing.Bitmap(PictureBox1.Image)
        SaveFileDialog1.ShowDialog()
        Dim Lokasi As String = SaveFileDialog1.FileName() + _
        Microsoft.VisualBasic.Right( _
            OpenFileDialog1.FileName, 4)
        Lokasi = _
            Microsoft.VisualBasic.Replace(UCase(Lokasi), _
                            Microsoft.VisualBasic.Right( _
                            UCase(OpenFileDialog1.FileName), 4), _
                            "." & cmbFormat.Text & "")
        Gambar.Save(Lokasi, System.Drawing.Imaging.ImageFormat.Bmp)
        MsgBox("Penyimpanan Berhasil")
    End Sub
 
    'sintaks pada button3 atau button Print
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form1.Show()
 
    End Sub
 
    'sintaks pada form Load (saat form terbuka)
    Private Sub OpenFile_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbFormat.Items.Add("JPEG")
        cmbFormat.Items.Add("BMP")
        cmbFormat.Items.Add("GIF")
    End Sub
End Class

Setelah form OpenFile selesai dicoding, langkah selanjutnya adalah membuat form baru bernama Form1.vb, kemudian desain seperti berikut lengkap dengan penambahan toolbox PrintDocument

Setelah itu isikan sintaks berikut ini pada form Form1

Public Class Form1

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        Dim ReportFont As Font = New Drawing.Font("Times New Roman", 48)
        Dim ReportBodyFont As Font = New Drawing.Font("Times New Roman", 48)
        e.Graphics.DrawString("My example report title", ReportFont, Brushes.Chocolate, 100, 100)
        e.Graphics.DrawString("The body of my report", ReportBodyFont, Brushes.CornflowerBlue, 100, 125)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PrintPreviewControl1.Document = PrintDocument1
    End Sub
End Class

Sekian Tutorial yang bisa saya berikan untuk teman-teman sekalian, mohon maaf apabila masih banyak kekurangan, semoga tutorial ini bisa bermanfaat bagi yang membutuhkan Aamiin.

Sumber : http://www.ti10sore.tk/open-save-serialisasi.html