منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

لو عندي لست بوكس بها عناصر كيف اضيف كل هذه العناصر في مصفوفه

(31-05-20, 02:08 AM)اليوم السابع كتب : [ -> ]لو عندي لست بوكس بها عناصر كيف اضيف كل هذه العناصر في مصفوفه

برجاء المساعده من الاخوه الافاضل

السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

  Dim SevenDay(ListBox1.Items.Count - 1) As String

        For i As Integer = 0 To ListBox1.Items.Count - 1

            SevenDay(i) = ListBox1.Items(i).ToString

        Next

(31-05-20, 02:54 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

Dim SevenDay(ListBox1.Items.Count - 1) As String For i As Integer = 0 To ListBox1.Items.Count - 1 SevenDay(i) = ListBox1.Items(i).ToString Next

ربنا ما يحرمنا منك يا كبير هجرب حالا واديك الرد

(31-05-20, 02:54 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

Dim SevenDay(ListBox1.Items.Count - 1) As String For i As Integer = 0 To ListBox1.Items.Count - 1 SevenDay(i) = ListBox1.Items(i).ToString Next

طيب معلش علشان انا اتلغبط شويه انا عندي هنا مصفوفه كيف اضع فيها قيم الليست بوكس علشان استعملها في فور

كود :

 Dim IDS() As String = {"100"}

(31-05-20, 02:54 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

Dim SevenDay(ListBox1.Items.Count - 1) As String For i As Integer = 0 To ListBox1.Items.Count - 1 SevenDay(i) = ListBox1.Items(i).ToString Next

انا الفكره كلها محتاج اعمل ريكوست بكل قيمه في الليست بوكس من خلال هذا الكود

كود :

 Dim IDS() As String = {"882", "10002", "1000237", "10002"}

        For x = 0 To IDS.Length - 1

            postReq = DirectCast(WebRequest.Create("http://eslameid.com/circle-api-master/check/id/data/" & (IDS(x)) + "), HttpWebRequest)

            postReq.Method = "GET"

            postReq.KeepAlive = True

            postReq.CookieContainer = tempCookies

            postReq.ContentType = "application/x-www-form-urlencoded"

            postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"

            postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)

            Dim postreqreader As New StreamReader(postresponse.GetResponseStream())

            Dim thepage1 As String = postreqreader.ReadToEnd

            thepage1 = thepage1.Replace("active", "private")

            Dim list As String = Regex.Unescape(thepage1)

            Application.DoEvents()

        Next

السلام عليكم
اخي بالنسبة للمصفوفة كونها فارغة يجب عند تعريفها ان نعين طولها بكول عناصر الليست بوكس ثم اسناد القيم لها من الليست
او على الاقل يجب ان يكون طول المصفوفة اكبر من عدد عناصر الليست بوكس ولكن الاول افضل تفاديا للاخطاء
وان اردت عرض عناصر المصفوفة بعد اسناد القيم لها اكتب التالي

كود :

For Each y As String In SevenDay

            MsgBox(y)

        Next

اخي بالنسبة للويب والانترنت ليس لي فيه نصيب حتى هذه اللحطة
اتمنى من الاخوة مساعدتك في الريكوست

(31-05-20, 03:05 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم
اخي بالنسبة للمصفوفة كونها فارغة يجب عند تعريفها ان نعين طولها بكول عناصر الليست بوكس ثم اسناد القيم لها من الليست
او على الاقل يجب ان يكون طول المصفوفة اكبر من عدد عناصر الليست بوكس ولكن الاول افضل تفاديا للاخطاء
وان اردت عرض عناصر المصفوفة بعد اسناد القيم لها اكتب التالي

كود :

For Each y As String In SevenDay MsgBox(y) Next
اخي بالنسبة للويب والانترنت ليس لي فيه نصيب حتى هذه اللحطة
اتمنى من الاخوة مساعدتك في الريكوست

تمام يا كبير كده فهمت ربنا ما يحرمنا منك ابدااا يا قائد

(31-05-20, 03:05 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم
اخي بالنسبة للمصفوفة كونها فارغة يجب عند تعريفها ان نعين طولها بكول عناصر الليست بوكس ثم اسناد القيم لها من الليست
او على الاقل يجب ان يكون طول المصفوفة اكبر من عدد عناصر الليست بوكس ولكن الاول افضل تفاديا للاخطاء
وان اردت عرض عناصر المصفوفة بعد اسناد القيم لها اكتب التالي

كود :

For Each y As String In SevenDay MsgBox(y) Next
اخي بالنسبة للويب والانترنت ليس لي فيه نصيب حتى هذه اللحطة
اتمنى من الاخوة مساعدتك في الريكوست

طيب يا كبير اخر سؤال معلش لو عاوز عند الانتهاء من الفور يظهر رساله يعني لما الفور يخلص خالص يكتب رساله تم الانتهاء كيف ذلك

السلام عليكم اخي الكريم
سنغير طريقة العرض الى جملة فور عادية ثم نتحقق من ان الرقم (i) اصبح بطول المصفوفة
وهذا يعني لم يبق عناصر للعرض عندها ستعرض الرسالة بانتهاء عرض العناصر

كود :

For i As Integer = 0 To SevenDay.Length - 1

            MsgBox(SevenDay(i))

            If i = SevenDay.Length - 1 Then

                MsgBox("تم الانتهاء")

            End If

        Next

(31-05-20, 03:29 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم اخي الكريم
سنغير طريقة العرض الى جملة فور عادية ثم نتحقق من ان الرقم (i) اصبح بطول المصفوفة
وهذا يعني لم يبق عناصر للعرض عندها ستعرض الرسالة بانتهاء عرض العناصر

كود :

For i As Integer = 0 To SevenDay.Length - 1 MsgBox(SevenDay(i)) If i = SevenDay.Length - 1 Then MsgBox("تم الانتهاء") End If Next

بجد انا مش عارف اشكرك ازاي انت يا قائد مش بس بتساعد بالكود انت بتشرح كمان وده اكتر من المساعده

الحمد لله والشكر لله

معا سنشكر الله العلي القدير الذي يعلمني ويسخرني لخدمة اخوتي في المنتدى

شكرا لك ايضا