[silverlight]

واضح من المشكلة ان المدخلات عندك فيها خطأ لكن عملية الحفظ و القراءة تحدث بشكل جيد
عموم اصبر ثواني سوف اقوم بالتعديل علي المثال بسرعة و احعله يقرأ String فقط

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 كود :

فقط عليك الغاء السطر الي  يتأكد من أن المدخلات عبارة عن لينك لأي موقع علي النت 


[bidaya]

الله يفتح عليك اخي الكريم silverlight الاقتراح الاول جد ممتاز نجح الكود

شكرا لك اخي الله يرحم والديك وان يرزقك في كل خطوة الف الف حسنة

[bidaya]

ممكن اضافة اخرى اخي الكريم   للموضوع
لنفترظ ان المصفوفة بها عدة روابط مثلا 20 رابط ويتم عرظ الروابط في ListBox1
ولديا 20 زر اريد ربط كل زر برابط اي الرابط الاول بالزر الاول والرابط الثاني بالزر الثاني وهكذا........
وان كانت طريقة اخرى اسهل لا مشكل
وشكراا

[bidaya]

(20-01-17, 03:46 AM)bidaya كتب : الله يفتح عليك اخي الكريم silverlight   الاقتراح الاول جد ممتاز نجح الكود

شكرا لك اخي  الله يرحم والديك وان يرزقك في كل خطوة الف الف حسنة

(21-01-17, 04:29 PM)bidaya كتب : ممكن اضافة اخرى اخي الكريم   للموضوع
لنفترظ ان المصفوفة بها عدة روابط مثلا 20 رابط ويتم عرظ الروابط في ListBox1
ولديا 20 زر اريد ربط كل زر برابط اي الرابط الاول بالزر الاول والرابط الثاني بالزر الثاني وهكذا........
وان كانت طريقة اخرى اسهل لا مشكل
وشكرا

[silverlight]

هل تحتاج عند الضغط علي الباتون او عند اختيار اللينك أن يتم فتح صفحة نت لهذا اللينك؟
ايضا 20 باتون كتيير فلماذا لا يتم اختيار اللينك من الليست بوكس مباشرة

[bidaya]

(23-01-17, 01:00 PM)silverlight كتب : هل تحتاج عند الضغط علي الباتون او عند اختيار اللينك أن يتم فتح صفحة  نت  لهذا اللينك؟
ايضا 20 باتون كتيير فلماذا لا يتم اختيار اللينك من الليست بوكس مباشرة

اولا اشكرك اخي الكريم على كل ماتقدمه
نعم اخي اريد عند الظغط على البوتن يتم فتح اللينك في صفحة نت
اما عن لمذا لا يتم فتح الراوابط من الليست بوكس  لانني عامل بالبرنامج ازرار
وشكرا اخي

[silverlight]

المشروع هذا يحتاج الي اعادة صياغة فلو سمحت اكتب طلباتك كلها مرة واحدة حتي استطيع اعطاؤك اجابة كاملة و من ثم يتم إغلاق هذا الموضوع

[bidaya]

(23-01-17, 10:29 PM)silverlight كتب : المشروع هذا يحتاج الي اعادة صياغة فلو سمحت اكتب طلباتك كلها مرة واحدة حتي استطيع اعطاؤك اجابة كاملة و من ثم يتم إغلاق هذا الموضوع

شكرا لك اخي
الموضوع كله لحماية الروابط
عندي روابط لموقعي اردت ان اضعها في برنامج بعد تشفيرها وهذا تم طبعا بمساعدتك لي
الان ابحث على طريقة فتح الروابط في ويب براوزر داخل البرنامج وعن طريق ازرار ليس من الليست بوكس
لو فيه طريقة اخرى اسهل يتم فيها تشفير الروابط وفتحها عن طريق الازرار لا مانع اخي
 احتراماتي لك اخي silverlight على مجهودك الكبير واعذرني على الاطالة

[bidaya]

(24-01-17, 01:13 AM)bidaya كتب :

(23-01-17, 10:29 PM)silverlight كتب : المشروع هذا يحتاج الي اعادة صياغة فلو سمحت اكتب طلباتك كلها مرة واحدة حتي استطيع اعطاؤك اجابة كاملة و من ثم يتم إغلاق هذا الموضوع

شكرا لك اخي
الموضوع كله لحماية الروابط
عندي روابط لموقعي اردت ان اضعها في برنامج بعد تشفيرها وهذا تم طبعا بمساعدتك لي
الان ابحث على طريقة فتح الروابط في ويب براوزر داخل البرنامج وعن طريق ازرار ليس من الليست بوكس
لو فيه طريقة اخرى اسهل يتم فيها تشفير الروابط وفتحها عن طريق الازرار لا مانع اخي
 احتراماتي لك اخي silverlight على مجهودك الكبير واعذرني على الاطالة

[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