تقسيم مصفوفة الى قسمين - نسخة قابلة للطباعة

PHP كود :

Public Class Form1


    Private Sub CreateAssetList()

        Dim list As List(Of AssetInfo) = New List(Of AssetInfo)()
        list.Add(New AssetInfo With {.Index = "1", .UriString = "http://vb4arb.com/vb/thread-14947.html"})
        list.Add(New AssetInfo With {.Index = "2", .UriString = "http://vb4arb.com/vb/thread-14947.html"})
        list.Add(New AssetInfo With {.Index = "3", .UriString = "http://vb4arb.com/vb/thread-14947.html"})

        If AssetContextWriter.Instance.Write(list) Then
            MessageBox.Show("Data has been Saved to file")
        Else
            MessageBox.Show("Do Not know how to Save Data to file")
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CreateAssetList()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For Each current As AssetInfo In AssetContextReader.Instance.Read
            ' فقط عليك الغاء السطر الي  يتأكد من أن المدخلات عبارة عن لينك لأي موقع علي النت
            'If AssetsValidator.IsValidHttpOrNull(New Uri(current.UriString)) Then
            ListBox1.Items.Add(current.UriString)
            ListBox2.Items.Add(current.Index)
            'End If
        Next

        ' OR
        Dim list1 As New List(Of String)()
        Dim list2 As New List(Of String)()

        For Each current As AssetInfo In AssetContextReader.Instance.Read
            ' فقط عليك الغاء السطر الي  يتأكد من أن المدخلات عبارة عن لينك لأي موقع علي النت
            'If AssetsValidator.IsValidHttpOrNull(New Uri(current.UriString)) Then
            list1.Add(current.UriString)
            list2.Add(current.Index)
            ''End If
        Next


    End Sub

End Class

PHP كود :

Public Class Form1

    Private list As List(Of AssetInfo) = New List(Of AssetInfo)()
    Private assetListCreated As Boolean = False
    Private buttons As List(Of Button) = New List(Of Button)()
    Private Sub CreateAssetList()
        list.Add(New AssetInfo With {.Index = "1", .UriString = "http://vb4arb.com/vb/thread-14947.html"})
        list.Add(New AssetInfo With {.Index = "2", .UriString = "http://vb4arb.com/vb/thread-14947.html"})
        list.Add(New AssetInfo With {.Index = "3", .UriString = "http://vb4arb.com/vb/thread-14947.html"})
        assetListCreated = AssetContextWriter.Instance.Write(list)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CreateAssetList()
        ' عرض النتائج في الليست بوكس
        For Each current As AssetInfo In AssetContextReader.Instance.Read
            ListBox1.Items.Add(current.UriString)
            ListBox2.Items.Add(current.Index)
        Next

        For Each c As Control In Me.Controls
            If TypeOf c Is Button Then
                buttons.Add(c)
            End If
        Next
        For Each b As Button In buttons
            AddHandler b.Click, AddressOf AnyButton_Click
        Next
    End Sub

    Private Sub AnyButton_Click(sender As Object, e As EventArgs)
        If assetListCreated Then

            Dim current As Button = CType(sender, Button)
            Select Case current.Text
                Case "Button1"
                    ' يجب هنا التأكد من الرابط عبارة عن لينك لصفحة علي النت
                    If AssetsValidator.IsValidHttpOrNull(New Uri(list(0).UriString)) Then
                        ' افتح المتصفح و تأكد من أنك متصل بالنت و اربط المتصفح مع الرابط الي تختاره
                        ' الرابط الأول في مصفوفة الروابط
                        Dim link0 As Uri = New Uri(list(0).UriString)

                    End If
                Case "Button2"

                    If AssetsValidator.IsValidHttpOrNull(New Uri(list(1).UriString)) Then
                        ' افتح المتصفح و تأكد من أنك متصل بالنت و اربط المتصفح مع الرابط الي تختاره
                        ' الرابط اللثاني في مصفوفة الروابط
                        Dim link1 As Uri = New Uri(list(1).UriString)

                    End If

                Case "Button3"
                    If AssetsValidator.IsValidHttpOrNull(New Uri(list(2).UriString)) Then
                        ' افتح المتصفح و تأكد من أنك متصل بالنت و اربط المتصفح مع الرابط الي تختاره
                        ' الرابط الثاللث في مصفوفة الروابط
                        Dim link2 As Uri = New Uri(list(2).UriString)

                    End If

                    ' أكمل علي نفس المنوال
            End Select
        End If

    End Sub

End Class