Home » Image » Cara Membuat Zoom In Gambar di Picture Box di VB

Cara Membuat Zoom In Gambar di Picture Box di VB

Kategori

Pada artikel ini saya akan membagikan sebuah trik yang berhubungan gambar atau image yaitu Cara Membuat Zoom In Gambar di Picture Box di VB6.

Untuk membuat efek zoom ini kita hanya memerlukan bebrapa komponen yang akan di tempatkan di form, yaitu 2 Picture Box dan 1 Shape berbentuk kotak.

Pada PictureBox 1 berisi gambar dan di dalamnya terdapat sebuah Shape sedangkan pada PictureBox2 dibiarkan kosong. Ketika program ini dijalankan maka dengan cara menggerakan Shape yang berada di PictureBox1 dengan Mouse maka akan muncul pada PictureBox2 sebuah gambar yang sama tapi dengan ukuran yang lebih jelas atau lebih detil sesuai posisi area Shape diletakan pada Picture Box1.

Agar kita lebih mudah memahami cara kerja program ini, mari kita langsung praktekan dengan cara membuatnya di Form, berikut adalah langkah-langkahnya :

Cara Membuat Zoom In Gambar di Picture Box di VB6

  • Tanamkan 2 PictureBox  dan 1 Shape di Form
  • Letakan Shape1 didalam PictureBox1.Sebelum meletakan Shape1 klik terlebih dahulu PictureBox1 dan baru letakan didalamnya.
  • Untuk PictureBox2 biarkan kosong
  • Masukan sebuah Gambar atau Image kedalam PictureBox1 yang ada di Properties Picture cari gambar yang diinginkan.

Untuk lebih jelasnya desainlah Form seperti gambar dibawah ini :


Desain Form Zoom In


Setelah mendesain form masukan kode dibawah ini 

Private Sub Form_Load()

Me.ScaleMode = 3

    Picture1.ScaleMode = 3

    Picture2.ScaleMode = 3

    Picture1.AutoRedraw = True

    Picture1.Picture = Picture1.Image

End Sub


Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

On Error Resume Next

    If Button = 1 Then

        If (X > 0) And (Y > 0) And (X < Picture1.ScaleWidth) And (Y < Picture1.ScaleWidth) Then

            Shape1.Left = X - (Shape1.Width / 2)

            Shape1.Top = Y - (Shape1.Height / 2)

            DoEvents

            Call Picture2.PaintPicture(Picture1, 0, 0, Picture1.Width, Picture1.Height, Shape1.Left, Shape1.Top, Shape1.Width, Shape1.Height)

            DoEvents

        End If

    End If

End Sub

Setelah Anda selesai mengetikan kodenya dengan lengkap, sekarang jalankan program.

Jika tidak ada error maka hasilnya akan seperti gambar dibawah ini :


Hasil Zoom In

Demikianlah artikel pada ahri ini tentang  Cara Membuat Zoom In Gambar di Picture Box di VB, semoga artikel ini bermanfaat buat kita semua.


No comments:

Post a Comment