rezaiy.ali
چهارشنبه 13 شهریور 1387, 08:41 صبح
با سلام
Counter.Text = Convert.ToString(Convert.ToInt16(Counter.Text) + 1)
r = Ra.Next(2, Convert.ToInt16(GridView1.Rows(0).Cells(0).Text))
SqlDataSource1.SelectParameters("Id").DefaultValue = r.ToString()
DataList1.DataBind()
OK_tb.Enabled = True
Timer()
کد تایمر
Function Timer() As String
nexttime = 0
DataList1.DataBind()
While TF = True
If time = DateTime.Now.Second() Then
Else
If nexttime = 5 Then
OK_tb.Enabled = False
Start_BTN.Enabled = False
Return ""
Else
time = DateTime.Now.Second()
nexttime += 1
End If
End If
End While
Return ""
End Function
این کد را برای این نوشتم که ابتدا یک سوال به کاربر نمایش داده بشه و بعد در تابع timer به مدت 10 ثانیه برنامه صبر می کنه بعد مرحله بعدی صورت می گیرد.
اما مشکل اینجاست که ابتدا timer شروع به کار می کند بعد دیتالیس بایند می شود.
چطور می تونم این مشکل را رفع کنم
باتشکر
Counter.Text = Convert.ToString(Convert.ToInt16(Counter.Text) + 1)
r = Ra.Next(2, Convert.ToInt16(GridView1.Rows(0).Cells(0).Text))
SqlDataSource1.SelectParameters("Id").DefaultValue = r.ToString()
DataList1.DataBind()
OK_tb.Enabled = True
Timer()
کد تایمر
Function Timer() As String
nexttime = 0
DataList1.DataBind()
While TF = True
If time = DateTime.Now.Second() Then
Else
If nexttime = 5 Then
OK_tb.Enabled = False
Start_BTN.Enabled = False
Return ""
Else
time = DateTime.Now.Second()
nexttime += 1
End If
End If
End While
Return ""
End Function
این کد را برای این نوشتم که ابتدا یک سوال به کاربر نمایش داده بشه و بعد در تابع timer به مدت 10 ثانیه برنامه صبر می کنه بعد مرحله بعدی صورت می گیرد.
اما مشکل اینجاست که ابتدا timer شروع به کار می کند بعد دیتالیس بایند می شود.
چطور می تونم این مشکل را رفع کنم
باتشکر