fshadh1
پنج شنبه 17 دی 1394, 17:50 عصر
سلام دوستان میشه ی نفر کمک کنه
توی ی تایمر این کدو برای اجرای پروگرس استفاده کردم ولی مشکلی که هس اینکه زمانی پروگرس بار به انتها میرسه بازم هستش می خواستم نمایش داده نشه و دستورات از اول اجرا بشه.
بازم با اینکه نمایش داده میشه زمانی دوباره دستورات اجرا میشه ارور میده برنامه
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
توی ی تایمر این کدو برای اجرای پروگرس استفاده کردم ولی مشکلی که هس اینکه زمانی پروگرس بار به انتها میرسه بازم هستش می خواستم نمایش داده نشه و دستورات از اول اجرا بشه.
بازم با اینکه نمایش داده میشه زمانی دوباره دستورات اجرا میشه ارور میده برنامه
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