30-01-21, 09:11 PM
السلام عليكم
ممكن اخواني احدكم يضبط لي لوب الكود التالي ؟
Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
NumericUpDown2.Minimum = 0
i = NumericUpDown2.Value
If NumericUpDown2.Value = 0 Then
i = 0
End If
Do
i += 1
Loop While NumericUpDown2.Value = 300
Bouton(i).Select()
Bouton(i).PerformClick()
' Timer1.Enabled = True
End Sub
وشكرا مسبقا
ممكن اخواني احدكم يضبط لي لوب الكود التالي ؟
Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
NumericUpDown2.Minimum = 0
i = NumericUpDown2.Value
If NumericUpDown2.Value = 0 Then
i = 0
End If
Do
i += 1
Loop While NumericUpDown2.Value = 300
Bouton(i).Select()
Bouton(i).PerformClick()
' Timer1.Enabled = True
End Sub
وشكرا مسبقا