divani
یک شنبه 26 اردیبهشت 1389, 20:26 عصر
مبتدی هستم و چیزی در مورد حلقه ها نمیدونم یک حلقه میخوام که یکسره کار کنه کد یک حلقه رو دارم در پایین گذاشتم و میخوام یکسره کار کنه
این حلقه رو در یک تایمر گذاشتم و حوب کار کرد ولی من از تایمر نمیخوام استفاده کنم ممنون راهنمایی کنید
Dim cancel As Boolean
Private Sub Command1_Click()
For i = 1 To 10
If cancel = False Then
RTF1.Text = RTF1.Text + "t"
i = i + 1
Else
Exit For
End If
Next i
End Sub
Private Sub Command2_Click()
cancel = True
End Sub
Private Sub Command3_Click()
cancel = False
End Sub
این حلقه رو در یک تایمر گذاشتم و حوب کار کرد ولی من از تایمر نمیخوام استفاده کنم ممنون راهنمایی کنید
Dim cancel As Boolean
Private Sub Command1_Click()
For i = 1 To 10
If cancel = False Then
RTF1.Text = RTF1.Text + "t"
i = i + 1
Else
Exit For
End If
Next i
End Sub
Private Sub Command2_Click()
cancel = True
End Sub
Private Sub Command3_Click()
cancel = False
End Sub