Progress Bar

[شاپرک]

RetVal = SysCmd(acSysCmdInitMeter, "در حال انجام محاسبه...", Count)

RetVal = SysCmd(acSysCmdUpdateMeter, Progress_Amount)

RetVal = SysCmd(acSysCmdRemoveMeter)

خط اول برای مقدار دهی اولیه به Progress Bar
خط دوم Update نمودن مقدار پیشرفت (Progress_Amount متغیر است)
خط آخر از اسمش معلومه

[Ali_Fallah]

با تشکر
نحوه بکار گیری اون رو هم توضیح بده...

[سنبله کار]

با تشکر
نحوه بکار گیری اون رو هم توضیح بده...

با اجازه خانم شاپرک

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

------------------------------------

Private Sub Command0_Click()

Dim count, Progress_Amount

count = 20

RetVal = SysCmd(acSysCmdInitMeter, "در حال انجام محاسبه...",  count)

For Progress_Amount = 1 To count

Sleep (100)

RetVal = SysCmd(acSysCmdUpdateMeter,Progress_Amount)

Next

RetVal = SysCmd(acSysCmdRemoveMeter)



End Sub

[شاپرک]

http://support.microsoft.com/Default.aspx?kbid=210474

[انگوران]

اگر اشتباه نکنم از toolbox شی more control را انتخاب و گزینه microsoft progresbar control را انتخاب کرده و نوار را رسم نموده و از کد جناب شاپرک و سنبله کار استفاده می نمائیم ولی من نتونستم از کد استفاده نمایم یعنی نمی دونستم کجای کد مربوطه را تغییر بدم تا نوار پروگرس بار اجرا بشه .

[شاپرک]

نه چیزی رو لازم نیست انتخاب کنید . فقط قبل از شروع محاسبات بوسیله خط اول مقدار دهی اولیه کنید . سپس در حین محاسبه یک مقدار متغیری رو برای آرگومان خط دوم در نظر بگیرید . و در پایان مقدار رو Remove کنید .

[سنبله کار]

اینم نمونه

[esmaeil110]

با عرض سلام و خسته نباشید:
می خواستم بدانم وقتی که موس تغییر شکل می دهد(به شکل ساعت شنی) چگونه می توان در این حالت نوار پیشرفت را تعریف کرد تا روند محاسبات را تا زمانی که موس به حالت اولیه بر می گردد را نشان دهد. با تشکر