PictureBox ta erime efekti


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: ByClxon    0 Yorum    127 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 12.05.2016, 08:33:17 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,011 Konuları:443 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

'Form Kodu
PrivateSub Timer1_Timer()
Dim intX AsInteger, intY AsInteger
Dim intI AsInteger, intJ AsInteger
Dim intWidth AsInteger, intHeight AsInteger

intWidth = 800 'Screenwidth
intHeight = 300 'Screenheight


Call BitBlt(hdc, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy) ' BitBlt screen onto form

Randomize

blnLoop = vbTrue
DoWhile blnLoop = vbTrue
intX = (intWidth - 70) * Rnd
intY = (intHeight - 128) * Rnd

intI = 2 * Rnd - 1 ' Horizontal displacement
intJ = 3 * Rnd + 1 ' Vertical displacement

' Move a part of the screen 1 pixel In a semi-random direction, To Get the "melting" effect
Call BitBlt(Picture1.hdc, intX + intI, intY + intJ, 1, 40, Picture1.hdc, intX, intY, vbSrcCopy)

DoEvents
Loop

Set frmflame = Nothing' Remove form from memory
End
EndSub

'Form Kodu Bitti
'-------------------------------------------------------------------------------**
'Module kodu
DeclareFunction BitBlt Lib "gdi32" (ByVal hDestDC AsLongByVal x AsLongByVal y AsLongByValnWidth AsLongByValnHeight AsLongByVal hSrcDC AsLongByVal xSrc AsLongByVal ySrc AsLong,ByVal dwRop AsLongAsLong
DeclareFunction GetPixel Lib "gdi32" (ByVal hdc AsLongByVal x AsLongByVal y AsLongAsLong
DeclareFunction SetPixel Lib "gdi32" (ByVal hdc AsLongByVal x AsLongByVal y AsLongByValcrColor AsLongAsLong


PublicConst SRCCOPY = &HCC0020
PublicConst SRCPAINT = &HEE0086
PublicConst SRCAND = &H8800C6
'bitti

Kullanıcı İmzası
#fenerbahçeA.A.K.
Resim http://i.hizliresim.com/nErB8V.png
İletişim İçin Facebook;

Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



Resim http://i.hizliresim.com/LQgldG.png






 

         











Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi