المشاركات : 298
المواضيع 87
الإنتساب : Sep 2013
السمعة :
9
الشكر: 970
تم شكره 391 مرات في 78 مشاركات
السلام عليكم ورحمة الله وبركاته ،،،
إخواني لدي ListBox وفيها مجموعة قيم تم إحضارها من قاعدة بيانات ..
وجعلت قيمة SelectionMode = MultiSimple
بحيث استطيع ان احدد اكثر من خيار ومنها إلغاء كذلك أي خيار ، في النهاية وضعت Button الهدف منه هو معرفة الخيارات المحددة وتخزينها في مصفوفة.
في خيار الضغط على الزر وضعت حلقة For وفي داخلها شرط IF أريده ان يتحقق هل الخيار الأول محدد أم لا ومن ثم يتم تخزين القيمة ..
الذي أريده وهو السؤال كيف أكتب صيغة الشرط ( يعني كيف أكتب شفرة هل هذا محدد ..؟ ).
أتمنى يكون سؤالي واضح ، وشكراً.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
المشاركات : 298
المواضيع 87
الإنتساب : Sep 2013
السمعة :
9
الشكر: 970
تم شكره 391 مرات في 78 مشاركات
14-12-12, 03:08 PM
(آخر تعديل لهذه المشاركة : 14-12-12, 03:10 PM {2} بواسطة mero farahat.)
السلام عليكم ورحمة الله وبركاته
اشكرك أخي
[b]Aly El-Haddad[/b] على تجاوبك معي ولكن ما أردت ولله الحمد وصلت له وهذا هو الحل لسؤالي بعد بحث :
كود :
Dim qa(80) As String ' مصفوف برقم أكبر من الحاجة بقليل
Dim cc As Integer = 0 ' عدد عناصر المصفوفة
كود :
cc = 0
For q As Integer = 0 To Me.ListBox1.Items.Count - 1 ' تكون الحلقة بعدد العناصر في القائمة
If ListBox1.GetSelected(q) = True Then ' اذا كان العنصر الأول محدد يطبق الشرط
qa(cc) = Me.ListBox1.SelectedValue.ToString ' تخزين القيمة المحددة في المصفوفة وهي أول قيمة محددة بالقائمة
ListBox1.SetSelected(q, False) ' حتى اضمن عدم تكرار القيمة وضعت أمر إلغاء التحديد عن القيمة الأولى
cc = cc + 1 ' ومنها يتم زيادة العدد +1 لتخزين القيمة القادمة إن وجدت
End If
Next
وبذلك تم المطلوب وإن كانت هنالك حلول أخرى فياليت يتم طرحها إن وجدت.
وفق الله الجميع للخير.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
المشاركات : 298
المواضيع 87
الإنتساب : Sep 2013
السمعة :
9
الشكر: 970
تم شكره 391 مرات في 78 مشاركات
وعليكم السلام ورحمة الله وبركاته ، يا أهلاً بأخواني الأعزاء ..
أخي
sooriaty03 :
بخصوص الشفرة التي وضعتها فهي تظهر لي هذا الخطأ بسطر النسخ وهو الثاني :
Object cannot be stored in an array of this type.
أخي
@@أبورائد@@ :
بخصوص الشفرة فأنه يظهر لي هذا الخطأ في السطر الثالث :
Conversion from type 'DataRowView' to type 'String' is not valid.
وشاكر لكم حسن التجاوب معي ، وأتمنى أخرج بشفرة أسهل وأفضل من شفرتي الأساسية.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
المشاركات : 298
المواضيع 87
الإنتساب : Sep 2013
السمعة :
9
الشكر: 970
تم شكره 391 مرات في 78 مشاركات
وعليكم السلام ورحمة الله وبركاته
ليس صحيح أخي أبورائد ، وأنما أريد استخدامه مع أداة ListBox .. وتظهر لي الأخطاء السابقة.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
المشاركات : 298
المواضيع 87
الإنتساب : Sep 2013
السمعة :
9
الشكر: 970
تم شكره 391 مرات في 78 مشاركات
وعليكم السلام ورحمة الله وبركاته
الإصدار هو : 2010 Express
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.