[ad_1]
أهلاً!
يوم جيد للجميع.
أحاول فتح خرائط جوجل باستخدام التحكم WebBrowser في VB.Net في Visual Studio 2017.
هنا هو رمز بسيط.
Private Sub txtSearc_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSearch.KeyDown If e.KeyCode = Keys.Enter Then Try Dim queryaddress As New System.Text.StringBuilder queryaddress.Append("https://www.google.com/maps?q=") If txtSearch.Text <> "" Then queryaddress.Append(txtSearch.Text + "," & "+") End If browser_.ScriptErrorsSuppressed = True browser_.Navigate(queryaddress.ToString()) Catch ex As Exception Exit Sub End Try End If End Sub
ولكن عندما أقوم بتحميل الموقع، يعرض عنصر تحكم WebBrowser الصفحة لبضع ثوانٍ ثم يختفي الموقع، ويظهر عنصر التحكم خطأ “قم بتحديث متصفحك لاستخدام خرائط Google”
إذا كان أي شخص يستطيع أن يساعدني في الخطأ الذي أفعله هنا، سأكون ممتنًا.
مع الشكر و التقدير:
Muhammad Asim Mughal
ما حاولت:
Private Sub txtSearc_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSearch.KeyDown If e.KeyCode = Keys.Enter Then Try Dim queryaddress As New System.Text.StringBuilder queryaddress.Append("https://www.google.com/maps?q=") If txtSearch.Text <> "" Then queryaddress.Append(txtSearch.Text + "," & "+") End If browser_.ScriptErrorsSuppressed = True browser_.Navigate(queryaddress.ToString()) Catch ex As Exception Exit Sub End Try End If End Sub
الحل 1
ال WebBrowser
التحكم في تضمين مثيل لبرنامج Internet Explorer الذي توقف منذ فترة طويلة في التطبيق الخاص بك.
والأسوأ من ذلك، ما لم تقم بتعديل السجل على كل جهاز يتم تشغيل تطبيقك عليه، فإن هذا المثيل سيكون عالقًا في وضع العرض IE7، مما يعني أن جميع مواقع الويب الحديثة تقريبًا ستفشل في التحميل.
تحتاج إلى تحديث التعليمات البرمجية الخاصة بك لاستخدام عنصر تحكم متصفح حديث بدلاً من ذلك – على سبيل المثال، عرض الويب2[^] أو سيفشارب[^].
[ad_2]
コメント