مشکل با progressbar در VB

[Bithiah]

ببخشپن یه سوال داشتم:
وقتی روی یه فرم progressbar می ذاریم و مرتب مقدارش رو تغییر می دیم، اگه یه لحظه اون فرم focus رو از دست بده، فرم انگار قفل می کنه. خود progressbar که مقدارش ثابت می مونه که هیچ، بقیه کنترلهای روی فرم هم یا سفید می شن و یا گیر می کنن. خیلی وقته متوجه این مشکل شدم و همه جام دنبال راه حل گشتم اما چیزی پیدا نکردم.
اگه جوابمو بدین ممنون می شم. :لبخندساده

[حامد مصافی]

سلام
اگه در یک حلقه For مقدار ProgressBar رو تغییر میدی بعد از دستور تغییر مقدار ProgressBar یک خط جدید اضافه کن و بنویس DoEvents

[Bithiah]

ممنون. اصلا یاد دستور DoEvents نبودم که امتحانش کنم. اما اگه از حلقه استفاده نمی کنم چی؟

[حامد مصافی]

در اون صورت دقیقاً باید بگی چی کار می کنی تا راهنماییت کنیم
در صورت امکان یک شبه کد (یا خود کد برنامتو) بذار اینجا

[Bithiah]

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

[vbstar]

برای فعال کردن از تایمر استفاده کردم.

Private Sub Timer2_Timer()
DoEvents
If ProgressBar1.Value >= 100 Then
'frmConnectDB.Image1.Picture = LoadPicture(App.Path + "\Cnn.ico")
Timer2.Enabled = False
Unload Me
frmEnterProgram.Show
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub

[mostafa304]

آقا به نظر من هیچوقت از Loadpicture استفاده نکنید . هم سرعتش پایینه هم ممکنه توی آدرسدهی مشکل پیش بیاد