تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تقسيم مصفوفة الى قسمين
#11
واضح من المشكلة ان المدخلات عندك فيها خطأ لكن عملية الحفظ و القراءة تحدث بشكل جيد
عموم اصبر ثواني سوف اقوم بالتعديل علي المثال بسرعة و احعله يقرأ 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 ObjectAs EventArgsHandles MyBase.Load
        CreateAssetList
()
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles 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
#12
الله يفتح عليك اخي الكريم silverlight الاقتراح الاول جد ممتاز نجح الكود

شكرا لك اخي الله يرحم والديك وان يرزقك في كل خطوة الف الف حسنة
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة: silverlight , silverlight
#13
ممكن اضافة اخرى اخي الكريم   للموضوع
لنفترظ ان المصفوفة بها عدة روابط مثلا 20 رابط ويتم عرظ الروابط في ListBox1
ولديا 20 زر اريد ربط كل زر برابط اي الرابط الاول بالزر الاول والرابط الثاني بالزر الثاني وهكذا........
وان كانت طريقة اخرى اسهل لا مشكل
وشكراا
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#14
(20-01-17, 03:46 AM)bidaya كتب : الله يفتح عليك اخي الكريم silverlight   الاقتراح الاول جد ممتاز نجح الكود

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

(21-01-17, 04:29 PM)bidaya كتب : ممكن اضافة اخرى اخي الكريم   للموضوع
لنفترظ ان المصفوفة بها عدة روابط مثلا 20 رابط ويتم عرظ الروابط في ListBox1
ولديا 20 زر اريد ربط كل زر برابط اي الرابط الاول بالزر الاول والرابط الثاني بالزر الثاني وهكذا........
وان كانت طريقة اخرى اسهل لا مشكل
وشكرا
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#15
هل تحتاج عند الضغط علي الباتون او عند اختيار اللينك أن يتم فتح صفحة نت لهذا اللينك؟
ايضا 20 باتون كتيير فلماذا لا يتم اختيار اللينك من الليست بوكس مباشرة
الرد
تم الشكر بواسطة:
#16
(23-01-17, 01:00 PM)silverlight كتب : هل تحتاج عند الضغط علي الباتون او عند اختيار اللينك أن يتم فتح صفحة  نت  لهذا اللينك؟
ايضا 20 باتون كتيير فلماذا لا يتم اختيار اللينك من الليست بوكس مباشرة

اولا اشكرك اخي الكريم على كل ماتقدمه
نعم اخي اريد عند الظغط على البوتن يتم فتح اللينك في صفحة نت
اما عن لمذا لا يتم فتح الراوابط من الليست بوكس  لانني عامل بالبرنامج ازرار Big Grin
وشكرا اخي
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#17
المشروع هذا يحتاج الي اعادة صياغة فلو سمحت اكتب طلباتك كلها مرة واحدة حتي استطيع اعطاؤك اجابة كاملة و من ثم يتم إغلاق هذا الموضوع
الرد
تم الشكر بواسطة:
#18
(23-01-17, 10:29 PM)silverlight كتب : المشروع هذا يحتاج الي اعادة صياغة فلو سمحت اكتب طلباتك كلها مرة واحدة حتي استطيع اعطاؤك اجابة كاملة و من ثم يتم إغلاق هذا الموضوع

شكرا لك اخي
الموضوع كله لحماية الروابط
عندي روابط لموقعي اردت ان اضعها في برنامج بعد تشفيرها وهذا تم طبعا بمساعدتك لي
الان ابحث على طريقة فتح الروابط في ويب براوزر داخل البرنامج وعن طريق ازرار ليس من الليست بوكس
لو فيه طريقة اخرى اسهل يتم فيها تشفير الروابط وفتحها عن طريق الازرار لا مانع اخي
 احتراماتي لك اخي silverlight على مجهودك الكبير واعذرني على الاطالة Wink Wink
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#19
Blush Blush
(24-01-17, 01:13 AM)bidaya كتب :
(23-01-17, 10:29 PM)silverlight كتب : المشروع هذا يحتاج الي اعادة صياغة فلو سمحت اكتب طلباتك كلها مرة واحدة حتي استطيع اعطاؤك اجابة كاملة و من ثم يتم إغلاق هذا الموضوع

شكرا لك اخي
الموضوع كله لحماية الروابط
عندي روابط لموقعي اردت ان اضعها في برنامج بعد تشفيرها وهذا تم طبعا بمساعدتك لي
الان ابحث على طريقة فتح الروابط في ويب براوزر داخل البرنامج وعن طريق ازرار ليس من الليست بوكس
لو فيه طريقة اخرى اسهل يتم فيها تشفير الروابط وفتحها عن طريق الازرار لا مانع اخي
 احتراماتي لك اخي silverlight على مجهودك الكبير واعذرني على الاطالة Wink Wink
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#20
تفضل التعديل


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 ObjectAs EventArgsHandles 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 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [VB.NET] تقسيم النص الى مجموعات كل واحده 1000 حرف DK-x 1 267 26-11-18, 06:19 PM
آخر رد: حريف برمجة
  كيف ابحث عن قيمة متغيرة في مصفوفة سعود 13 2,890 15-10-18, 10:17 PM
آخر رد: سعود
  [سؤال] ضبط وتعديل معادلة تقسيم ساعات عمل الورديات herofox 8 562 03-09-18, 04:38 PM
آخر رد: herofox
  [VB.NET] تحويل كود الفجوال بيسيك 6 الى الدوت نت (كود التنقل بين مصفوفة تكست بوكس) larbihamri 6 457 05-08-18, 07:26 PM
آخر رد: larbihamri
  [كود] احتاج فكرة لعمل تقسيم الصنف الى حبة شدة كرتون فراس الغزي 2 348 20-07-18, 02:44 AM
آخر رد: sendbad100
  [سؤال] طريقة دمج مصفوفة saad mahyoub 3 403 14-02-18, 10:27 PM
آخر رد: saad mahyoub
  [VB.NET] تقسيم وتوزيع متغير علي لاينات بتيكست بوكس محمد اسماعيل 2 419 17-01-18, 01:46 AM
آخر رد: محمد اسماعيل
  [سؤال] كيف يمكنني تسجيل مصفوفة ذات بعدين في ملف خارجي؟ أحمد إبراهيم سعد 0 336 01-01-18, 07:25 AM
آخر رد: أحمد إبراهيم سعد
  تقسيم الطلاب الي مجموعات atefkhalf2004 2 435 16-09-17, 09:06 PM
آخر رد: أبو نوره
  تقسيم الحروف و اظهارهن في مسج بزك على التوالي Basil Abdallah 4 663 01-03-17, 12:30 PM
آخر رد: Basil Abdallah

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم