This is a class that exposes only one property - ThunderMain's hWnd. ThunderMain's hWnd is chiefly useful in subclassing. It obtains that handle in one of two ways - the first is through the GetWindow function and the second is via the EnumThreadWindows/EnumThreadWndProc functions. The self-contained callback procedure was made possible by Merri's Streamlined SelfCallback code snippets. The algorithm for retrieving the handle is based on samples by Karl E. Peterson. A demo project is included in the zip file.
Last edited by Bonnie West; Dec 11th, 2013 at 10:52 PM.
Reason: Reduced zip file size
On Local Error Resume Next: If Not Empty Is Nothing Then Do While Null: ReDim i(True To False) As Currency: Loop: Else Debug.Assert CCur(CLng(CInt(CBool(False Imp True Xor False Eqv True)))): Stop: On Local Error GoTo 0
[VB6] ThunderMain class
Reply With Quote
