Jump to content


  • Posts

  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United Kingdom

Everything posted by ABEO

  1. This is my first time posting code so be nice: Put this code in the Declerations(at the top): Option Explicit '************************************* 'Copyright © 2001 by Alexander Anikin '& DREAM Interactive - QQQ 'e-mail: aka@i.com.ua 'For more my code samples visit: 'http://hotmix.narod.ru '************************************* Private Declare Function AlphaBlend Lib "msimg32" (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 widthSrc As Long, ByVal heightSrc As Long, ByVal dreamAKA As Long) As Long 'only Windows 98 or Later Dim Num As Byte, nN%, nBlend& This is the simple stuff : Private Sub Form_Activate() Call Run_Blending End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Now for the effects You need to add a picture box and name it 'picSrc'. Then find the two pictures you wish to blend and set one as the background of the form, and the other as the picture in picSrc. Then add this code: Private Sub Run_Blending() Num = 255 nN = 5 Do DoEvents '*********************************************** nBlend = vbBlue - CLng(Num) * (vbYellow + 1) 'It's Magic Formula is 'Alchemical Mixture of Elements of Gold & Sky 'It's obtained by an almost mystical way '*********************************************** Num = Num - nN If Num = 0 Then nN = -5 ElseIf Num = 255 Then nN = 5 End If Me.Cls AlphaBlend Me.hDC, 0, 0, picSrc.ScaleWidth, picSrc.ScaleHeight, picSrc.hDC, 0, 0, picSrc.ScaleWidth, picSrc.ScaleHeight, nBlend Loop End Sub Change the value of 'nN' to increase/decrease speed of the blend, all comments by the original author have been left in the code(I just wanted to show you something cool that you may not have seen Have fun with this
  2. Welcome DarkMoonShadows, enjoy your stay and I like the flag thing, never noticed that Population: 59,778,002 (July 2002 est.) Internet users: 34.3 million (2002) More than Italy
  3. Steve Irwin is The Crocodile Hunter. LOL he is well funny, 'This is the worlds deadliest snake... so I'm just gonna poke it with a stick!' Welcome shaft, enjoy your stay here
  4. OK thx, I will post one tomorrow coz I'm nakered. U can delete this if you want to
  5. OK cool coz I have some neat stuff. Shall I make a new topic for each thing, or put it all in one post?
  6. Is anyone allowed to post code here or just you Doggie?
  7. Sure, added a link to the forum ... and welcome to MSFN ABEO Thanks for that crispy And thanks for the warm welcome everyone
  8. Thanks for the speedy welcome ) I have MSN Messenger 6 installed now(I love it) but thanks anyway Can you put the links on: http://www.MSFN.org/comments.php?id=3212&c...ght=messenger+6 That would please quite a few ppl
  9. Never used Notes before, but the best solution for anything to do with Windows ME is Windows 98 SE
  10. Hello, I first came here to get MSN Messenger 6(a friend told me about the site), I like the look of this place so I thought I'd join up. I'm not a complete n00b, I do know my stuff so I will try and help out when I can and reply to posts. We still need more mirrors for MSN Messenger 6? because I can probably get you one or two. Cya around .:. ABEO .:.

  • Create New...