Solved

progress bar

Posted on 1998-06-16
3
171 Views
Last Modified: 2012-05-04
id like to know how to use the progress bar with this
for i = 1 to 1000
list1.additem i
next i
i've tryed this
for i = 1 to text1.text
list1.additem i
progressbar1.value = text1.text
next i
but get an error if text1 is over 100
0
Comment
Question by:p400
3 Comments
 
LVL 9

Accepted Solution

by:
Dalin earned 20 total points
ID: 1463465
Try
Dim lPercent as Integer
lPercent = Cint(i*100/cint(text1.Text))
Progressbar1.Value = lPercent
0
 
LVL 6

Expert Comment

by:clifABB
ID: 1463466
While Dalin's answer is the preferred solution, you can just set the progress bar's Max property to whatever the highest number you will be using.

Progressbar1.Max = 1000
0
 

Author Comment

by:p400
ID: 1463467
got it working thanks
0

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now