[silverlight]

تفضل التعديل

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