يا جماعة اين الخطاء في هذا الكود
يعطيني انه الاكس الثاني اللي بعد يساوي تحتها خط اخضر
هذا الكود
x =x & .CheckedItems(i) & ";"
و هذا الكود كاملا
dim x as string
With ch
If .CheckedItems.Count > 0 Then
For i As Integer = .CheckedItems.Count - 1 To 0 Step -1
x =x & .CheckedItems(i) & ";"
Next
End If
End Withتم تعديل هذه المشاركة بواسطة master22 في 21 يناير 2011 في 17:44
الخط الأخضر لا يعنى أن هناك خطأ وإنما يعنى تحذير وهذا سببه أنك قمت باستخدام المتغير x قبل إسناد قيمة له
يمكنك التخلص من هذا التحذير بإسناد قيمة للمتغير x عند تعريفه
Dim x As String = ""
أو إلغاء هذا التحذير من خصائص المشروع لكن لا أنصحك بهذا الحل
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
السلام عليكم اخي الفاضل
اتوقع الخطاء في جملة الدوران بما انها عكسية يجب انت تكون step 1 وليس -1 لانك بدأت من -1
بالتوفيق
بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم