Sprite Image

Contoh membuat background object menjadi transparant!
Langkah 1: Buat 2 buah gambar 1 dengan backgound hitam dan satunya background putih dengan warna object hitam dan ukuran yang sama. seperti dibawah ini! dibawah ini conntoh ukuran 297 x 295






Langkah 2: Masuk ke VB. Buat project baru dan tambahkan komponen picture1 dan picture2 isi dengan dua buah gambar tersebut! kemudian tambahkan timer1 dengan interval = 10. Isi form dengan gambar supaya dapat diketahui bahwa background image sudah berhasil di transparankan.



Langkah 3: Tambahkan code dibawah ini!

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Dim xx, yy, jml
Dim Rest As Long
Dim s As Long

Private Sub Form_Load()
xx = Me.ScaleWidth - 100
yy = (ScaleHeight - 296) \ 2
End Sub

Private Sub Timer1_Timer()
Static s As Long
Me.Cls
Rest = BitBlt(hDC, xx - s, yy, 297, 294, Picture2.hDC, 0, 0, vbSrcAnd)
Rest = BitBlt(hDC, xx - s, yy, 297, 294, Picture1.hDC, 0, 0, vbSrcPaint)
jml = xx - s

s = s + 32
Me.Refresh
If jml <= (Me.ScaleWidth - 297) / 2 Then Timer1.Enabled = False End Sub