Search Tools Links Login

Easy Alpha Blend One line of code

Visual Basic 6, or VB Classic

This will alpha blend your form when its unloaded cool effect thats alreayd built into windows, i couldn't find anything with the keyword alpha blend that used the AnimateWindow API, so i thought i would

Original Author: Joseph Simpson


In Your General Section Include This:

Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean

Private Const AW_HIDE = &H10000

Private Const AW_BLEND = &H80000

On Form_Unload put:

fd = AnimateWindow(Form1.hwnd, 1000, AW_BLEND + AW_HIDE)


This will blend your form to whats behind it as long as its the top window. you must include End also without it, it will just hide your program.

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 102 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.