progressbar با تا زمانی که دکمه پایین نگه داشته شده [بایگانی]

ramsess

چهارشنبه 23 آذر 1390, 12:20 عصر

سلام دوستان من روی فرمم یک دکمه دارم و می خوام وقتی اون کلیک کردم تا زمانی که کلیک رو رها نکردم
یک progressbar شروع به تکمیل شده با سرعت پایین بکنه که بشه رشد اون رو مشاهده کرد. ممنون

Hybrid

چهارشنبه 23 آذر 1390, 12:46 عصر

سلام دوست عزیز به ترتیب مراحل زیر رو انجام بده تا به جوابتون برسید..

)ابتدا یک Timer رو بر روی فرم قرار بدین و مقدار خصوصیت Interval اونو برابر 1000 (یا همو 1 ثانیه) قرار بدین..

2)یه Progressbar و یه دکمه را روی فرم قرار بدین...

3)در رویداد MouseDown دکمه کد زیر رو قرار بدین..

Timer1.Enabled = True

4)در رویداد FormLoad کد زیر رو قرار بدین.

ProgressBar1.Maximum = 1000
ProgressBar1.Minimum = 0

5)در رویداد Tick تایمر کد زیر رو قرار بدین..

If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer1.Enabled = False

MsgBox("برنامه با موفقیت ذخیره شد!")
Else
ProgressBar1.Value = ProgressBar1.Value + 5
End If

6)و سرانجام در رویداد MouseUP دکمه کد زیر رو بنویس.

Timer1.Enabled = False

موفق باشین