Otak Atik Aja: Menerapkan gambar dengan PictureBox

Tutorial ini akan membahas cara menyisipkan gambar kedalam picturebox dengan bantuan openfiledialog, didalam tutorial ini juga membuat pengaturan gambar yang menggunakan combobox. untuk combobox diberikan perintah Stetment Select Case . Select Case seperti If...Then...ElseIf pernyataan kemungkinan terhadap variabel yang diuji dan setiap variabel akan diperiksa memberikan nilai untuk menentukan laporan . berikut ini adalah format Select Case:

Select Case TestExpresision
  [Case Expression List
      [statment]]
  [Case Expression List
      [statment]]
End Select

Toolbox yang di butuhkan :

Toolbox	Propertis	Value
Label1	Text	Ukuran Gambar
Button1	Text	Cari Gambar
PictureBox1	-	-
ComboBox1	Text	-
"--"	Items	Normal
"--"	"--"	StretchImage
"--"	"--"	AutoSize
"--"	"--"	CenterImage
"--"	"--"	Zoom
OpenFileDialog1	-	-

Langkah 1.

Masuk ke Visual Basic 2010 pilih menu File kemudian New Project. jika sudah tampil form New Project pilih menu Installed Templates pilihlah Visual Basic kemudian pilih Windows Form Aplication, kalau perlu pada Name rubahlah nama projectnya sesuai apa yang akan di buat. jika sudah selesai pilih tombol Ok jika batal pilih Cancel. jika sulit dan tidak paham mengikuti langkah-langkahnya maka akan ditampilan gambar seperti di bawah ini.

Exported from Notepad++

Atau bisa juga seperti dibawah ini

Tahapan berikutnya

jika sudah tekan tombol Ok maka akan tampil seperti dibawah ini.

Langkah 2

Buat seperti tampilan ini.

Perhatian : jangan lupa masukan OpenFileDialog.

Langkah 3

Sekarang menyisipkan pilihan untuk ukuran gambar pada ComboBox1

1. klik ComboBox1 lalu akan muncul ComboBox Tasks

2. kemudian pilih Edit Items

caranya seperti gambar di bawah.

3. Isilah pada String Collection Edition seperti gambar di bawah

4. Jika semua sudah di isi Kemudian pilih OK atau jika batal pilih Cancel

Langkah 4

Masukan codingnya dengan double klik pada ComboBox1.

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim sSize As String
        sSize = ComboBox1.SelectedItem
        Select Case sSize
            Case "Normal"
                PictureBox1.SizeMode = PictureBoxSizeMode.Normal
            Case "StretchImage"
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
            Case "AutoSize"
                PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
            Case "CenterImage"
                PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
            Case "Zoom"
                PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        End Select
    End Sub

Untuk mencari gambar masukan perintah pada Button1.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.Title = "Buka File"
        OpenFileDialog1.Filter = "jpg(*.jpg)|*.jpg"
        OpenFileDialog1.ShowDialog(PictureBox1.Image)
        PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
    End Sub

Langkah5

Jalankan programnya jika sudah selesai memasukan codingnya dengan pilih menu Debug lalu Start Debugging (F5) atau tekan F5 pada keyboard. maka tampilan akan seperti ini.

Key;

vb 2010, visual basic 2010,mengambil gambar dengan OpenFileDialog. mengatur gambar. Open Picture.

4 Jul 2016

Menerapkan gambar dengan PictureBox