Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!feeder.erje.net!eu.feeder.erje.net!newsfeed.fsmpi.rwth-aachen.de!rt.uk.eu.org!aioe.org!.POSTED!not-for-mail
From: Deanna Earley <dee.earley@icode.co.uk>
Newsgroups: microsoft.public.vb.general.discussion,comp.lang.basic.visual.misc
Subject: PBM_SETMARQUEE in VB6
Date: Mon, 09 Dec 2013 17:32:49 +0000
Organization: Aioe.org NNTP Server
Lines: 67
Message-ID: <l84urt$67g$1@speranza.aioe.org>
NNTP-Posting-Host: rjApkXnSOjrT83QpZ8fKqg.user.speranza.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
X-Complaints-To: abuse@aioe.org
User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:24.0) Gecko/20100101 Thunderbird/24.1.1
X-Notice: Filtered by postfilter v. 0.8.2
Xref: csiph.com comp.lang.basic.visual.misc:1897

Hi all.

I've just tried setting up a scrolling marquee progress bar in one of my 
applications, and while it seems to switch into marquee mode, the 
automatic timer (set via PBM_SETMARQUEE) either fails or is ignored.

I have an appropriate visual style manifest.
I have called InitCommonControls in the form's Initialize event.
I am using the v5 SP2 common controls.
The project is compiled.
I have set the PBS_MARQUEE style and confirmed it has applied.
The PBM_SETMARQUEE message returns 1.

If I minimise and restore the window it progresses.
If I set .Value it progresses.
If I send PBM_STEPIT it progresses.
If I send PBM_SETMARQUEE it sits there doing nothing.

This is the same issue discussed here:
http://www.vbforums.com/showthread.php?462116-Marquee-Progressbar

Does anyone have any deeper insight as to why the VB wrapper is dropping 
the PBM_SETMARQUEE message or the associated timer events and why I need 
to do it "manually"?

Thanks

Here's the sample code I was using to test:
=====================================
Option Explicit

Private Const GWL_STYLE = (-16)
Private Const PBS_MARQUEE = &H8
Private Const WM_USER = &H400
Private Const PBM_STEPIT = WM_USER + 5
Private Const PBM_SETMARQUEE = WM_USER + 10

Private Declare Function GetWindowLong Lib "user32" Alias 
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias 
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal 
dwNewLong As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" 
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As 
Any) As Long

Private Sub Form_Load()
   Dim Style As Long
   Style = GetWindowLong(ProgressBar1.hWnd, GWL_STYLE)
   Style = Style Or PBS_MARQUEE
   SetWindowLong ProgressBar1.hWnd, GWL_STYLE, Style
   SendMessage ProgressBar1.hWnd, PBM_SETMARQUEE, 1, ByVal 0
End Sub

Private Sub Timer1_Timer()
   SendMessage ProgressBar1.hWnd, PBM_STEPIT, 0, ByVal 0&
End Sub

-- 
Deanna Earley (dee.earley@icode.co.uk)
iCatcher Development Team
http://www.icode.co.uk/icatcher/

iCode Systems

(Replies direct to my email address will be ignored. Please reply to the 
group.)