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

(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

(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 

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


شكرا لك

(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 

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


شكرا لك

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