Cara Membuat Flif Efect pada Gambar Form di VB6

Kali ini tip dan trik vb akan membahas sebuah trik dan efek pada sebuah gambar di form dengan menambahkan sedikit kode yang dapat menampilkan gambar secara terbalik.

Flip merupakan efek yang akan menghasilkan gambar yang terbalik dari gambar asalnya.Dalam hal ini methode yang digunakan adalah :

[object]PaintPicture Pic, destX, destY[, destWidth[,destHeight[, srcX[, srcY[, srcWidth[, srcHeight[, Op]]]]]]]

Bagian	Keterangan
Object	Objek dapat berupa form, pictureBox atau Printer. jika objek tidak disebutkan maka akan dianggap sebagi form
Pic	Objek gambar, contohnya seperti Picture pada form
destX, destY	Lokasi Gambar
DestWidth,destHeight	Optional, menset tinggi dan lebar gambar
SrcX,srcY	Optional, menset koordinat(x,y) posisi kiri atas hasil

Contoh Penggunaan :

Cara Membuat Flif Efect pada Gambar Form di VB6

1. buatlah sebuah project baru pada properti Form, browse bagian Picture sehingga tampil sebagai background form

2. Letakan pula sebuah command button dengan Caption Flip pada form.Letakan seperti  terlihat pada gambar dibawah ini :

Desain Form

3. Ketikan listing berikut dibawah ini :

Private Sub Command1_Click()

PaintPicture Picture, ScaleWidth, 0, -1 * ScaleWidth, ScaleHeight

End Sub

Private Sub Form_Load()

WindowState = 2

End Sub

4. Kemudian simpan dan jalankan program lalu tekan tombol Flip, maka gambar akan terbalik dari asalnya, seperti gambar dibawah ini :

Demikian trik Membuat Flif Efect pada Gambar Form di VB6, mudah mudahan bermanfaat.Selamat mencoba semoga sukses....

Related Post: Image