السلام عليكم ورحمة الله وبركاته
أولا أرجوا أن تقبلوني عضوا جديدا في فريقكم حيث سمعن عنكم الكثير من بعض الاصدقاء
ثانيا عندي مشكلة في تحويل كود قد كتبته سابقا بالـ vb6 والآن اريد كتابته بالدوت نت وجدت ان هناك مشكلة في Controls array حيث لم يعد لها وجود في الدوت نت
لقد ارفقت الكود بالدوت نت وعملت كومنت لل Function المكتوب بالفيجوال بيسك 6
Private Function NumberOfAnswers() As Integer
Dim i, Count As Integer
Count = 0
For i = 0 To 5
If (Len(Multiple(i).Text) = 0) And (Icons(i).Picture = 0) Then
Else
Count = Count + 1
End If
Next
NumberOfAnswers = Count
Exit Function
End Function
ولكم جزيل الشكر