• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

PictureBox'ta Eritme Efekti Yapımı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Dark Hack

Onaylı Üye
Katılım
8 May 2016
Mesajlar
208
Beğeni Puanı
1
'Form Kodu
[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Timer1_Timer()[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] intX [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT][font='Titillium Web', sans-serif], intY [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] intI [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT][font='Titillium Web', sans-serif], intJ [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] intWidth [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT][font='Titillium Web', sans-serif], intHeight [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT]

[font='Titillium Web', sans-serif]intWidth = 800 [/FONT][font='Titillium Web', sans-serif]'Screenwidth[/FONT]
[font='Titillium Web', sans-serif]intHeight = 300 [/FONT][font='Titillium Web', sans-serif]'Screenheight[/FONT]


[font='Titillium Web', sans-serif]Call[/FONT][font='Titillium Web', sans-serif] BitBlt(hdc, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy) [/FONT][font='Titillium Web', sans-serif]' BitBlt screen onto form[/FONT]

[font='Titillium Web', sans-serif]Randomize[/FONT]

[font='Titillium Web', sans-serif]blnLoop = vbTrue[/FONT]
[font='Titillium Web', sans-serif]Do[/FONT][font='Titillium Web', sans-serif]While[/FONT][font='Titillium Web', sans-serif] blnLoop = vbTrue[/FONT]
[font='Titillium Web', sans-serif]intX = (intWidth - 70) * [/FONT][font='Titillium Web', sans-serif]Rnd[/FONT]
[font='Titillium Web', sans-serif]intY = (intHeight - 128) * [/FONT][font='Titillium Web', sans-serif]Rnd[/FONT]

[font='Titillium Web', sans-serif]intI = 2 * [/FONT][font='Titillium Web', sans-serif]Rnd[/FONT][font='Titillium Web', sans-serif] - 1 [/FONT][font='Titillium Web', sans-serif]' Horizontal displacement[/FONT]
[font='Titillium Web', sans-serif]intJ = 3 * [/FONT][font='Titillium Web', sans-serif]Rnd[/FONT][font='Titillium Web', sans-serif] + 1 [/FONT][font='Titillium Web', sans-serif]' Vertical displacement[/FONT]

[font='Titillium Web', sans-serif]' Move a part of the screen 1 pixel In a semi-random direction, To Get the "melting" effect[/FONT]
[font='Titillium Web', sans-serif]Call[/FONT][font='Titillium Web', sans-serif] BitBlt(Picture1.hdc, intX + intI, intY + intJ, 1, 40, Picture1.hdc, intX, intY, vbSrcCopy)[/FONT]

[font='Titillium Web', sans-serif]DoEvents[/FONT]
[font='Titillium Web', sans-serif]Loop[/FONT]

[font='Titillium Web', sans-serif]Set[/FONT][font='Titillium Web', sans-serif] frmflame = [/FONT][font='Titillium Web', sans-serif]Nothing[/FONT][font='Titillium Web', sans-serif]' Remove form from memory[/FONT]
[font='Titillium Web', sans-serif]End[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]'Form Kodu Bitti[/FONT]
[font='Titillium Web', sans-serif]'-------------------------------------------------------------------------------**[/FONT]
[font='Titillium Web', sans-serif]'Module kodu[/FONT]
[font='Titillium Web', sans-serif]Declare[/FONT][font='Titillium Web', sans-serif]Function[/FONT][font='Titillium Web', sans-serif] BitBlt Lib [/FONT][font='Titillium Web', sans-serif]"gdi32"[/FONT][font='Titillium Web', sans-serif] ([/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] hDestDC [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] x [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] y [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif]nWidth [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif]nHeight [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] hSrcDC [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] xSrc [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] ySrc [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif],[/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] dwRop [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT]
[font='Titillium Web', sans-serif]Declare[/FONT][font='Titillium Web', sans-serif]Function[/FONT][font='Titillium Web', sans-serif] GetPixel Lib [/FONT][font='Titillium Web', sans-serif]"gdi32"[/FONT][font='Titillium Web', sans-serif] ([/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] hdc [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] x [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] y [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT]
[font='Titillium Web', sans-serif]Declare[/FONT][font='Titillium Web', sans-serif]Function[/FONT][font='Titillium Web', sans-serif] SetPixel Lib [/FONT][font='Titillium Web', sans-serif]"gdi32"[/FONT][font='Titillium Web', sans-serif] ([/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] hdc [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] x [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif] y [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]ByVal[/FONT][font='Titillium Web', sans-serif]crColor [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Long[/FONT]


[font='Titillium Web', sans-serif]Public[/FONT][font='Titillium Web', sans-serif]Const[/FONT][font='Titillium Web', sans-serif] SRCCOPY = &HCC0020[/FONT]
[font='Titillium Web', sans-serif]Public[/FONT][font='Titillium Web', sans-serif]Const[/FONT][font='Titillium Web', sans-serif] SRCPAINT = &HEE0086[/FONT]
[font='Titillium Web', sans-serif]Public[/FONT][font='Titillium Web', sans-serif]Const[/FONT][font='Titillium Web', sans-serif] SRCAND = &H8800C6[/FONT]
'bitti
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt