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

نسخة كاملة : حل لهذا الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم لدي مشكل في هذا الكود اريد حل له وشكرا
السلام عليكم و رحمة الله و بركاته
الكلمة Await ترتبط مع Async
تاكد من كتابتها مع بداية تعريف الدالة او الاجراء
حيث الكود الضاهر في الصورة مقطوع و جسم الدالة غير مرئي
هذه الاكواد كما تري اخي الكريم
PHP كود :
Public Async Sub SendToUrl 

ضع الكلمة Async في المكان المحدد و جرب
(01-07-17, 01:42 AM)ابو ليلى كتب : [ -> ]
PHP كود :
Public Async Sub SendToUrl 

ضع الكلمة Async في المكان المحدد و جرب

ظهرت مشاكل كبيره اخري

PHP كود :
Public Async Sub SendToUrl
            stopProcess 
False
            Try
        Dim _fullResult 
As String Await.getContentsTask(New WebClient()).DownloadStringTaskAsync(globalLink(Setinfo.Days))

 
       Dim rg As New Regex(_pastebinPatternRegexOptions.Multiline)
 
               For Each matchString As Match In rg.Matches(_fullResult)
 
                   concatResult.Add(matchString.Value.Replace(changeLink(0), changeLink(1)))
 
                   Setinfo.CountLinks.Text concatResult.Count.ToString()

 
                   If stopProcess Then
                        Exit 
For
 
                   End If
 
               Next matchString

                For Each item In concatResult

        Dim _secondResults 
As String Await(New WebClient()).DownloadStringTaskAsync(item)
 
       Dim _info As New Regex(Setinfo.regexPatternRegexOptions.Multiline)

 
                   For Each matchString As Match In _info.Matches(_secondResults)
 
                       Application.DoEvents()

 
                       Setinfo.Result.Items.Add(matchString.Value)
 
                       Setinfo.CountTotalItems.Text Setinfo.Result.Items.Count.ToString()

 
                       If stopProcess Then
                            Exit 
For
 
                       End If
 
                   Next matchString
                    If stopProcess Then
                        Exit 
For
 
                   End If
 
               Next item

              AddHandler _callback
Setinfo.processEnd
end sub 
ضع صورة للاخطاء حتى نتعرف عليها
(01-07-17, 01:54 AM)ابو ليلى كتب : [ -> ]ضع صورة للاخطاء حتى نتعرف عليها

هاهي
Framework 4.5 +
(01-07-17, 01:57 AM)J427 كتب : [ -> ]Framework 4.5 +

انا استخدم vb10 ليس به 4.5 اخر شي 4
حاول اعادة بناء المشروع لتقلص عدد الاخطاء لان اغلب الاخطاء غير صحيحة
وعمل Clean اذا ما نجح في التقليص
و بعدها نشوف باقي الاخطاء

اتوقع انك غير قادر على استخدام هذا الاسلوب مع النسخة 4.0
الصفحات : 1 2