[Taha Okla]

(09-10-24, 08:55 AM)أبو خالد الشكري كتب : وعليكم السلام ورحمة الله وبركاته

نعم يمكن ذلك !

جرب الكود التالي :

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ListBox1.DrawMode = DrawMode.OwnerDrawFixed
       ListBox1.Items.Add("سماء" & vbTab & "Sky")
       ListBox1.Items.Add("شمس" & vbTab & "Sun")
       ListBox1.Items.Add("قمر" & vbTab & "Moon")
   End Sub
   Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem
       If e.Index < 0 Then Exit Sub

       Dim text As String = ListBox1.Items(e.Index).ToString()
       Dim columns() As String = text.Split(vbTab)
       Dim brush As New SolidBrush(e.ForeColor)

       e.DrawBackground()
       e.Graphics.DrawString(columns(0), e.Font, brush, e.Bounds.Left, e.Bounds.Top)
       e.Graphics.DrawString(columns(1), e.Font, brush, e.Bounds.Left + 100, e.Bounds.Top)
       e.DrawFocusRectangle()

       brush.Dispose()
   End Sub

لو المسألة أنه فقط يشاهد هذه المعلومات ،، ممكن,,
ولكن لو أراد استخدامها ،، هل يستطيع الاعتماد على رقم المرجع لاعادة أي قيمة من سطر وعمود محددين؟!!!

الأفضل أن يعتمد على أداة أخرى ،، 
مثلاً GridView ..
أو ListView
كأدوات من نفس بيئة لغة البرمجة.. أفضل وأبسط له..
وبإمكانه الاعتماد على أدوات من مكتبات خارجية (وهذا ليس بالخيار الجيد - إلا إذا كانت كود مصدري (يمكنه من صنعها في مشروعه) وليست أداة جاهزة).