السلام عليكم ورحمة الله وبركاته
أخي الكريم
تفضل هذا الكود قد يفيدك إن شاء الله
ففيه طلبك ولكن أسهل بكثير
بالتوفيق
أخي الكريم
تفضل هذا الكود قد يفيدك إن شاء الله
ففيه طلبك ولكن أسهل بكثير
كود :
'تعريف مصفوفة من نوع نص غير محددة العناصر
Dim qa() As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'هنا يتم تعريف عدد عناصر المصفوفة بحسب عدد الاختيارات
ReDim qa(ListBox1.SelectedItems.Count - 1)
'نسخ العناصر المختارة إلى المصفوفة بدءا من بدايتها أي صفر
ListBox1.SelectedItems.CopyTo(qa, 0)
'إظهار عناصر المصفوفة
MsgBox(Strings.Join(qa, vbNewLine))
End Subبالتوفيق
