The new vbAccelerator Site - more VB and .NET Code and Controls
Source Code
1 ActiveX Controls &nbsp

Netscape Style Free-Threaded In-Progress Indicator

An animated In-Progess Indicator using blocks which doesn't Stop just because VB does

InProgress Component

Download Code
VB5 code Download the InProgress Component Only (17kb)
VB5 code Download the InProgress demonstration project (requires the component first) (9kb)
VB5 code Download the full InProgress Component source including demonstration (66kb)

&nbsp Source Code Note &nbsp
&nbsp This DLL is a binary compatible component which works with all other samples. If you compile your own copy of this DLL yourself please make sure you change the name and ProgID. See disclaimer and license for more details. &nbsp
&nbsp NOTE! You cannot run the source code of the demonstration project group in the IDE because of the way VB manipulates ProgIDs and CLSIDs in the IDE. The only way to run this code is to compile the DLL and then use that. &nbsp
&nbsp Before you Begin &nbsp
&nbsp The control project also requires the API Calls used for threading (threadapi.tlb) when running in the IDE. Make sure you have downloaded and registered this before trying the project. &nbsp

This sample provided a free-threaded In-Progress indicator based on the Netscape status bar indicator which basically draws like the thrumming lights on the front of the top-secret super "car" Knight Industries Two Thousand.

Using The Component
The component is implemented in a DLL (vbalIPrg.DLL) and so has no UI itself. The code actually draws into a specified VB PictureBox control. To use the component, simply create an instance of the cInProgress class and then set the properties:

Property Description
StartCol Gets/sets the colour of the first block of the bar.
EndCol Gets/sets the colour of the background of the bar.
hWnd Gets/sets the hWnd of the PictureBox the component will draw to.
Steps UK chart topping "group" of 5 talentless chickens who can't sing or dance.
Oh, ok then, the number of segments in the bar portion of the control.
AnimStepSize The size of each segment within the bar.
Running Gets/sets whether the animation is running or not.

TopBack to top
Source Code - What We're About!Back to ActiveX Control Source Code
Source Code - What We're About!Back to Source Code


AboutContributeSend FeedbackPrivacy

Copyright 1998-1999, Steve McMahon ( All Rights Reserved.
Last updated: 15 November 1999