تمت الإجابة التنقل بين صفحات الموقع

تم تحميل الصفحة في 0,3551326 ثانية
التنقل بين صفحات الموقع
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
19 يونيو 2015
المشاركات
376
الإعجابات
505
النقاط
113
الإقامة
غزة
السلام عليكم ورحمة الله وبركاته
شباب لدي طلب على هذا الكود :

كود:
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using X As New Net.WebClient
            X.Encoding = Encoding.UTF8
            AddHandler X.DownloadDataCompleted, AddressOf complete
            X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & txtkey.Text))
        End Using
    End Sub

    Private Sub complete(sender As Object, e As DownloadDataCompletedEventArgs)
        Dim RS As String = (New UTF8Encoding).GetString(e.Result)
        Dim M As MatchCollection = Regex.Matches(RS, "(https:\/\/pastebin.com\/\w+)")
        For i = 0 To M.Count - 1
            Result.AppendText(M(i).Value & vbNewLine)
        Next
    End Sub
    End class
هذا الكود هنا يقوم بجلب نتائج البحث من bing ووضعها كروابط في RichTextBox1 ولاكن يبلغ عددها 10 فقط
أنا أريد أن ينقل من الصفحة الأولى للبحث إلى الصفحة الثانية و يبقى يبنتقل لحين ما أضغط على زر Stop
ياريت إلي يفيدني لانوا ما زبط معي ,,, + زر Stop وشكرا
 
إنضم
19 يونيو 2015
المشاركات
376
الإعجابات
505
النقاط
113
الإقامة
غزة

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,773
الإعجابات
1,545
النقاط
123
الإقامة
iraq
فاهم هاي الخطوة أخي لاكن هذه الخطوة تحتاج أكثر من Button1 فمثلاً الصفحة 1 لها Button1
والصفحة 2 لها Button2 ... ألا يوجد طريقة لجعله Button1 فقط ؟
عليك بتعلم اساسات البرمجه اخي
اولا عليك عمل لوب لتكرار العمليه
ثانيه تعرف متغير integer وبكل لوب تخلي يزيد 10
وتجعل الركويست بهذه الطريقه

كود:
dim a as integer = 1 'هذي تعرفها تحت الفورم
for ' هنا تعمل لوب باي طريقه تحب
"https://www.bing.com/search?q=site:pastebin.com&first=" & a
a +=10
 
إنضم
19 يونيو 2015
المشاركات
376
الإعجابات
505
النقاط
113
الإقامة
غزة
عليك بتعلم اساسات البرمجه اخي
اولا عليك عمل لوب لتكرار العمليه
ثانيه تعرف متغير integer وبكل لوب تخلي يزيد 10
وتجعل الركويست بهذه الطريقه

كود:
dim a as integer = 1 'هذي تعرفها تحت الفورم
for ' هنا تعمل لوب باي طريقه تحب
"https://www.bing.com/search?q=site:pastebin.com&first=" & a
a +=10
شكراً لك أخي :) حليتها .. مشكور مرة أخرى
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل