Search Tools Links Login

Goofy About Box


Visual Basic 6, or VB Classic

Silly, fun animated About Box for your applications (use your own pictures!) Even plays dopey sound effects!

Original Author: Brian Battles WS1O

Assumptions

Uses a timer to "bounce" a couple of pictureboxes around on a form. Nothing complicated, but fun and easy to use with your application.
(The graphic here doesn't do it justice because it's animated...)

Side Effects

None known

API Declarations

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (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 dwRop As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

About this post

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

Categories

Visual Basic 6

Attachments

Goofy_Abou4205812142001.zip
Posted: 9/3/2020 3:45:00 PM
Size: 218,608 bytes


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.