Linking textbox to Progress Bar

Hi
Can anyone show me how to link a value in a text box to a progress bar so as if the value changes in the text box so does the progress bar.  Also is it possible to display the % as displayed text inside the progress bar?.

Many Thanks
Andy
samandrewAsked:
Who is Participating?
 
Nash3181Connect With a Mentor Commented:
try this one:

Private Sub txttotal_Change()
on error goto errhandler
    Dim i as double
    i = cdbl(txttotal.Text)
    if i <= Pbar1.Max Then
        Pbar1.Value = cdbl(txttotal.Text)
    Else
        Pbar1.Value = Pbar1.Max
    End If
errhandler:
End Sub
0
 
JR2003Commented:
Just put code in the text_changed event to update the progress bar to what you want.
0
 
samandrewAuthor Commented:
Hi

You mean like

If txttotal = >0 Then
txttotal.text = Pbar1.Value
Else
Pbar1.Value = Pbar1.Max

??

Thanks
Andy
0
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

 
JR2003Commented:

Private Sub TextBox1_Change()
    Dim i as Long
    i = Val(Pbar1.Text)
    if i <= Pbar1.Max Then
        Pbar1.Value = Val(Pbar1.Text)
    Else
        Pbar1.Value = Pbar1.Max
    End If
End Sub
0
 
samandrewAuthor Commented:
Hi
Sorry I need the progress bar to go down as i enter the number into my txtbox. Also do you know how i can display the % as text?

Many Thanks
Andy
0
 
JR2003Commented:
Private Sub TextBox1_Change()
    Dim i as Long
    i = Val(txttotal.Text)
    if i <= Pbar1.Max Then
        Pbar1.Value = Val(txttotal.Text)
    Else
        Pbar1.Value = Pbar1.Max
    End If
End Sub
0
 
samandrewAuthor Commented:
Hi

This doesnt seem to work for me!, firstly the progress bar seems to be adding the numbers, secondly I cannot display the percentage which is left. Please can you relook at the code.

Many Thanks
Andy
0
 
samandrewAuthor Commented:
Hi Nash

Can you please give an example of how I can use this code on 2 progressbars, so if when the value reaches 0 in progressbar1 the value is deducted from progressbar2.

Many Thanks
Andy
0
 
Nash3181Commented:
On what event will the 2 progressbars decrease it's value?
You can try this as a guide:
1 Command Button
2 ProgressBar

Situation: everytime i press the command button the value in progressbar1 will decrease and whenever the value of progressbar reached 0, it will deduct value from progressbar2 and progressbar1 will start again with its max value.


Private sub command1_click()
On error goto errhandler
if progressbar2.value = 0 then
   exit sub
end if

progressbar1.value = progressbar1.value -1
if progressbar1.value <= 0 then
   progressbar2.value =  progressbar2.value - 1
   progressbar1.value = progressbar1.max
end if

errhandler:
End Sub

Hope this code can help you....
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.