Timer

[fshadh1]

سلام دوستان میشه ی نفر کمک کنه
توی ی تایمر این کدو برای اجرای پروگرس استفاده کردم ولی مشکلی که هس اینکه زمانی پروگرس بار به انتها میرسه بازم هستش می خواستم نمایش داده نشه و دستورات از اول اجرا بشه.
بازم با اینکه نمایش داده میشه زمانی دوباره دستورات اجرا میشه ارور میده برنامه
Private Sub Timer1_Timer()
Static a As Integer
pb1.Visible = True
a = a + 1
pb1.Value = a
pb1.Text = "ÏÑÍÇá ÓÇÎÊ ˜ÇÑÈÑ ÌÏíÏ"
If a = 100 Then
MsgBox "˜ÇÑÈÑ ÌÏíÏ ÓÇÎÊå ÔÏ"
pb1.Visible = False
End If
End Sub

[roo.row]

با سلام

با visible کردن یک شئی اون از بین نمیره و از دید کاربر حذف میشه برای تصحیح کدتون بجای ویزیبل کردن اینیبل اون رو فالس کنید (enabled)
به این صورت اون شئی کلا خاموش میشه

با تشکر

Private Sub Timer1_Timer()
Static a As Integer
pb1.Enabled = True
a = a + 1
pb1.Value = a
pb1.Text = "ÏÑÍÇá ÓÇÎÊ ˜ÇÑÈÑ ÌÏíÏ"
If a = 100 Then
MsgBox "˜ÇÑÈÑ ÌÏíÏ ÓÇÎÊå ÔÏ"
pb1.Enabled = False
End If
End Sub

[fshadh1]

ولی فالسم کردم بازم نمیره . مشکل اینجاس که نمیره هیچ یه مشکل دیگه هم داره اینکه باز روی باتن کلیک می منی ارور میده .
من ی صفحه ساخت کاربر درس کردم میخوام روی باتن ک کلیک می کنم پروگرس بار پر بشه و ی پیغام بده که کاربر جدید ساخته شد . وبرای بار دوم که باتن کلیک میکنم بازم پروگرس پر بشه از اول .
ولی مال من ارور میده کدشم بالا گذاشتم . بنظر شما با حلقه for ساختن بهتر یا با static ؟؟؟

[ایلیا آخوندزاده]

اینو ببینین