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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=15511)



مشكلة فى كود خاص تخطى الاعلان - mostfa1995 - 17-04-16


المشكلة بعد ميفتح الموقع واجى اضغط على الاعلان مش بينقل على الفروم الثانى

الكود المستخدم
انا مستخدم GeckoWebBrowser عشان WebBrowser مش بيفتح الموقع صح فى غلط
كود :
Imports Gecko
Imports Microsoft
Imports System
Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       GeckoWebBrowser1.Navigate("http://ouo.io/ziobl")
   End Sub

   Private Sub GeckoWebBrowser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeckoWebBrowser1.Click
       If GeckoWebBrowser1.Url.AbsoluteUri = "https://www.google.com.eg/" Then
           Me.Hide()
           Form2.Show()
           MsgBox("مرحبا")
           Me.Close()
       End If
   End Sub
End Class




RE: مشكلة فى كود خاص تخطى الاعلان - hassan - 17-04-16

(17-04-16, 09:41 PM)mostfa1995 كتب :

المشكلة بعد ميفتح الموقع واجى اضغط على الاعلان مش بينقل على الفروم الثانى

الكود المستخدم
انا مستخدم GeckoWebBrowser عشان WebBrowser مش بيفتح الموقع صح فى غلط
كود :
Imports Gecko
Imports Microsoft
Imports System
Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       GeckoWebBrowser1.Navigate("http://ouo.io/ziobl")
   End Sub

   Private Sub GeckoWebBrowser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeckoWebBrowser1.Click
       If GeckoWebBrowser1.Url.AbsoluteUri = "https://www.google.com.eg/" Then
           Me.Hide()
           Form2.Show()
           MsgBox("مرحبا")
           Me.Close()
       End If
   End Sub
End Class


اخي الكود صحيح لاكن الحدث GeckoWebBrowser1.Click هو الخطا قم بتغييره الى حدث DocumentCompleted 

عندك وضعك على كود GeckoWebBrowser1.Click تسجد فوق خيارات الاحداث قم بتغييره الى DocumentCompleted 

اذا لم تعرف ارفقع المشروع


شكرا لك


RE: مشكلة فى كود خاص تخطى الاعلان - mostfa1995 - 17-04-16

(17-04-16, 11:37 PM)hassan كتب :
(17-04-16, 09:41 PM)mostfa1995 كتب :

المشكلة بعد ميفتح الموقع واجى اضغط على الاعلان مش بينقل على الفروم الثانى

الكود المستخدم
انا مستخدم GeckoWebBrowser عشان WebBrowser مش بيفتح الموقع صح فى غلط
كود :
Imports Gecko
Imports Microsoft
Imports System
Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       GeckoWebBrowser1.Navigate("http://ouo.io/ziobl")
   End Sub

   Private Sub GeckoWebBrowser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeckoWebBrowser1.Click
       If GeckoWebBrowser1.Url.AbsoluteUri = "https://www.google.com.eg/" Then
           Me.Hide()
           Form2.Show()
           MsgBox("مرحبا")
           Me.Close()
       End If
   End Sub
End Class


اخي الكود صحيح لاكن الحدث GeckoWebBrowser1.Click هو الخطا قم بتغييره الى حدث DocumentCompleted 

عندك وضعك على كود GeckoWebBrowser1.Click تسجد فوق خيارات الاحداث قم بتغييره الى DocumentCompleted 

اذا لم تعرف ارفقع المشروع


شكرا لك
شكراااااااااااا تمام انت فنان بمعنى الكلمة


RE: مشكلة فى كود خاص تخطى الاعلان - hassan - 17-04-16

(17-04-16, 11:40 PM)mostfa1995 كتب :
(17-04-16, 11:37 PM)hassan كتب :
(17-04-16, 09:41 PM)mostfa1995 كتب :

المشكلة بعد ميفتح الموقع واجى اضغط على الاعلان مش بينقل على الفروم الثانى

الكود المستخدم
انا مستخدم GeckoWebBrowser عشان WebBrowser مش بيفتح الموقع صح فى غلط
كود :
Imports Gecko
Imports Microsoft
Imports System
Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       GeckoWebBrowser1.Navigate("http://ouo.io/ziobl")
   End Sub

   Private Sub GeckoWebBrowser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeckoWebBrowser1.Click
       If GeckoWebBrowser1.Url.AbsoluteUri = "https://www.google.com.eg/" Then
           Me.Hide()
           Form2.Show()
           MsgBox("مرحبا")
           Me.Close()
       End If
   End Sub
End Class


اخي الكود صحيح لاكن الحدث GeckoWebBrowser1.Click هو الخطا قم بتغييره الى حدث DocumentCompleted 

عندك وضعك على كود GeckoWebBrowser1.Click تسجد فوق خيارات الاحداث قم بتغييره الى DocumentCompleted 

اذا لم تعرف ارفقع المشروع


شكرا لك
شكراااااااااااا تمام انت فنان بمعنى الكلمة
العفووووووو اخي بارك الله فيك