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

Code

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)

End


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

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.