Progress Bar Userform Control

[technix]

I am playing around with the Progress bar control and would like to know exactly which resources would be best to have it do the following.

I would like to have the progress bar increase daily, 0%-100% based on days from day 1 to day 30. as I plan on offering a 30 day trial to a customer after that the must register it.

If you could point me in the proper direction it would be greatly appreciated.

Derrick

 

[Legacy 98055]

Hi Tech.
Here's an example:<pre>
Sub ProgressIndicator()
Dim StartingDate As Date
StartingDate = #8/1/2002# 'wherever you stored the date when this file was first opened
With ProgressBar1
.Scrolling = ccScrollingSmooth 'my personal preference
.Min = 1
.Max = 31
.Value = DateDiff("d", StartingDate, Now)
End With
'say the user opened the file for the first time on August 1.
'say that today is August 18
'the progress bar would display the value of 17 which is equivelant to 17/31 or 54.8%
End Sub</pre>
Tom
This message was edited by TsTom on 2002-08-25 11:30

 

[technix]

On 2002-08-25 11:27, TsTom wrote:
Hi Tech.
Here's an example:<pre>
Sub ProgressIndicator()
Dim StartingDate As Date
StartingDate = #8/1/2002# 'wherever you stored the date when this file was first opened
With ProgressBar1
.Scrolling = ccScrollingSmooth 'my personal preference
.Min = 1
.Max = 31
.Value = DateDiff("d", StartingDate, Now)
End With
'say the user opened the file for the first time on August 1.
'say that today is August 18
'the progress bar would display the value of 17 which is equivelant to 17/31 or 54.8%
End Sub</pre>
Tom
This message was edited by TsTom on 2002-08-25 11:30

Thank you this helps out greatly, is it possible, if not its not necessary, but in the center of the progress bar, have a caption or such as 4 days remaining, I have tried to do a caption that is transparent in front of the progress bar however the progress bar seemed to stay in front of it

Derrick

 

[Legacy 98055]

Derrick.
Are you using the pbar on a worksheet or a userform? I can't get anything to work on my worksheet...
Tom

 

[technix]

On 2002-08-25 11:54, TsTom wrote:
Derrick.
Are you using the pbar on a worksheet or a userform? I can't get anything to work on my worksheet...
Tom

I am using a userform. to have the progress bar. I would like it to say 4 days remaining if four days are remaining in the progress bar if at all possible, if not no big deal I will use a frame or something

Derrick

 

[technix]

On 2002-08-25 11:54, TsTom wrote:
Derrick.
Are you using the pbar on a worksheet or a userform? I can't get anything to work on my worksheet...
Tom

I am using a userform. to have the progress bar. I would like it to say 4 days remaining if four days are remaining in the progress bar if at all possible, if not no big deal I will use a frame or something

Derrick

 

[Legacy 98055]

Hi Derrick.
You are right, no big deal. I went ahead and posted the question anyway at MS to see what might come up. I'll reply to this thread if anyone comes up with a decent solution.
Tom

 

[technix]

Currently this is how i did a work around
using a frame although if I can get the Caption in the progress bar that would be better. Thank you for your help

Private Sub UserForm_Activate()
Dim StartingDate As Date
StartingDate = #8/1/2002# 'wherever you stored the date when this file was first opened


With ProgressBar1
    .Scrolling = ccScrollingSmooth 'my personal preference
    .Min = 1
    .Max = 31
    .Value = DateDiff("d", StartingDate, Now)
End With
With Trial_popup
     .Frameprogress.Caption = 30 - ProgressBar1.Value & " Days remaining."
End With
'say the user opened the file for the first time on August 1.
'say that today is August 18
'the progress bar would display the value of 17 which is equivelant to 17/31 or 54.8%
End Sub