Cara Memasukkan/Menampilkan Dan Merubah Ukuran Foto Pada PictureBox ~Tutorial Gambas

Dasar menampilkan foto pada PictureBox:

Rumus: PictureBox.Picture = Picture[Path As String]

Contoh:

Public Sub Form_Open()

  PictureBox1.Picture = Picture["/home/yusron/Pictures/3x4 2017.png"]

End

Bisa juga menggunakan:

Public Sub Form_Open()

  PictureBox1.Picture = Picture.Load("/home/yusron/Pictures/3x4 2017.png")

End

Jika perintah diatas dijalankan mungkin hasilnya akan tidak sempurna jika lebar/tinggi foto lebih besar dari pada lebar/tinggi PictureBox.

Jika ingin mengatur panjang-lebar foto untuk dimasukkan pada PictureBox, Kuncinya menggunakan Object Image dan property Stretch(Lebar, Tinggi). Sedangkan memanggil data fotonya menggunakan Image.Load(Path) Sebagaimana pada contoh berikut:

Public Sub Form_Open()

  Dim LokasiFoto As String = "/home/yusron/Pictures/3x4 2017.png"

  Dim Foto As Image

  Foto = Image.Load(LokasiFoto).Stretch(100, 120)

  PictureBox1.Picture = Foto.Picture

End

Untuk membuat supaya panjang-lebar foto menyesuaikan dengan panjang-lebar PictureBox:

' Gambas class file

Public Sub Form_Open()

  Dim LokasiFoto As String = "/home/yusron/Pictures/3x4 2017.png"

  Dim Foto As Image

  Dim Panjang_PictureBox, Lebar_PictureBox, Panjang_Foto_Asli, Lebar_Foto_Asli As Float

  Dim Persen As Single

  Panjang_Foto_Asli = Image.Load(LokasiFoto).H 'Panjang_Foto_Asli

  Lebar_Foto_Asli = Image.Load(LokasiFoto).W 'Lebar_Foto_Asli

  Panjang_PictureBox = PictureBox1.W

  Lebar_PictureBox = PictureBox1.H

  If Panjang_Foto_Asli > Lebar_Foto_Asli Then

    Persen = (Panjang_PictureBox / Panjang_Foto_Asli) * 100

    Panjang_PictureBox = Lebar_Foto_Asli * Persen / 100

  Else

    Persen = (Lebar_PictureBox / Lebar_Foto_Asli) * 100

    Lebar_PictureBox = Panjang_Foto_Asli * Persen / 100

  Endif

  Foto = Image.Load(LokasiFoto).Stretch(Panjang_PictureBox, Lebar_PictureBox)

  PictureBox1.Picture = Foto.Picture

End