Search Tools Links Login

animated Icons In System Tray, U Pick 'Em


I just took Todd Herman's project and added a simple search form to let you pick your own .ANI file. Check out Todd's original project at http://www.planetsourcecode.com/xq/ASP/txtCodeId.26016/lngWId.1/qx/vb/scripts/ShowCode.htm

Original Author: Brian Battles WS1O

API Declarations

' API Declarations
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnID As NOTIFYICONDATA) As Boolean
Private Declare Function DrawIconEx Lib "user32" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 91 times

Categories

Visual Basic 6

Attachments

animated I24364892001.zip
Posted: 9/3/2020 3:45:00 PM
Size: 16,577 bytes


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.