26-01-16, 05:04 AM
(آخر تعديل لهذه المشاركة : 26-01-16, 05:37 AM {2} بواسطة الماجيك مسعد.)
(24-01-16, 04:54 AM)khodor1985 كتب :PHP كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
x += 1
If x > listip.Items.Count - 1 Then
Timer1.Stop()
btncheckinfo.Text = "Start"
MsgBox("تم الانتهاء بنجاح")
listip.SelectedIndex = 0
x = 0
btnsaveipyes.Show()
btnsaveipno.Hide()
btnclearno.Hide()
btnclearyes.Show()
Else
For ip = 0 To listip.SelectedIndex.Count - 1
listip.SelectedIndex += 1
ProgressBar1.Increment(1)
lblProgressBar1value.Text = (ProgressBar1.Value * 100 / ProgressBar1.Maximum).ToString("00") & "%"
'(مجموع الدرجات ) ×100 ÷ (الدرجات الكلية للمادة الدراسية)
checkIP(listip.SelectedItem)
Next
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
الكود بعد التعديل
جرب وأفدنا يرحمكم الله
السلام عليكم
بعد ما اضفت كودك المعدل لم استطع التجربة
لان ظهر خطأ فى
listip.SelectedIndex.Count - 1
كود الخطأ
Error 1 'Count' is not a member of 'Integer'.
يريت تعدل الكود
لانى معرفتش احل المشكلة
بالنتظارك يا غالى
السلام عليكم
وهذا رابط تحميل المشروع
لكى تجرب وتشوف المشكلة بنفسك
وتستطيع التعديل عليه
اتفضل
http://elmagek.net/up/do.php?id=86
بانتظاركم

