منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تصحيح كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تصحيح كود (/showthread.php?tid=22938)

تصحيح كود - anes - 15-12-17

 
السلام عليكم ورحمة الله
اريد تصحيح الكود التالي يا اهل الخبرة وجزاكم الله خيرا
كود :
​
كود :
       If (handler2 Is Nothing) Then
           handler2 = (sender, e) => Me.method_1(sender, e)
       End If
       AddHandler Me.WebBrowser1.DocumentCompleted, handler2


RE: تصحيح كود - طالب برمجة - 15-12-17

الكود خاص بلغة #C

جزء If غير مفهوم

أما حدث DocumentCompleted الخاص ب WebBrowser1 في لغة VB.NET فتستطيع أن تجده عند الضغط مرتين على الأداة WebBrowser1 دون الحاجة لكتابة كود AddHandler

RE: تصحيح كود - عبدالله الدوسري - 18-12-17

(18-12-17, 01:27 AM)anes كتب : للرفـــــــــــــــــع

السلام عليكم 

بصراحة غير مفهوم المطلوب من الكود

يمكن تقصد :
كود :
   Public Sub New(Optional ByVal object_1 As Object = Nothing, Optional ByVal int_0 As Integer = 6)
       AddHandler Me.WebBrowser1.DocumentCompleted, AddressOf method_1
   End Sub



أو استخدم الهاندل مباشرة الخاص بالمتصفح
كود :
   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

   End Sub