كيفيه تضمين خدمه جوجل مابس لبرنامجك

[iMido]

بسمـ اللهـ الرحمنـ الرحيمـ

" ' كيفيهـ تضمينـ خدمهـ جوجلـ مابسـ لبرنامجكـ ' "

حطـ فى الفورمـ 4 تكيستـ بوكسـ و غير الخاصيهـ name فى كلـ واحد الى
Textbox1=> TStreet
Textbox2 => TZIP
Textbox3 => TCity
Textbox4 => TState
و حطـ 1 بوتونـ و 1 web browser

و استدعى System.Text

Imports System.Text

و الكود اهو معـ الشرحـ منـ خلالـ كومنتاتـ الكود

'جميع المتغيرات هنا فى غايه الاهميه لانها ستحمل الاشياء والاماكن التى سنبحث فيها         Dim State As String = String.Empty         Dim City As String = String.Empty         Dim Street As String = String.Empty         Dim ZIP As String = String.Empty         Dim Link As New StringBuilder         '  هذا هو دور السترينج بيلدر          ' تكوين لينك البحث         ' (الموجود فيها بالفعل ) Q و الوظيفه ابيند تدخل اليها نص بتنسيق معين دون انا تحذف النص الحالى         Link.Append("http://maps.google.com/maps?q=")         Try             'هنا نخبر المترجم اذا كان التكست بوكس يحتوى على نصوص انتقل للسظر التالى              If TState.Text <> String.Empty Then                 'هنا نعدل النص المدخل بحذف الفواصل والمسافات و التعويض عنها بعلامه + لتناسب نسق البحث فى جوجل                  State = TState.Text.Replace(" ", "+")                 'هنا ندخل النص بعد التعديل عليه الى السترينج بيلدر                 Link.Append(State + "," & "+")             End If             'نفس السابق لكن بتغير اسم التكيست بوكس والمتغير             If TCity.Text <> String.Empty Then                 City = TCity.Text.Replace(" ", "+")                 Link.Append(City + "," & "+")             End If             If TStreet.Text <> String.Empty Then                 Street = TStreet.Text.Replace(" ", "+")                 Link.Append(Street + "," & "+")             End If             If TZIP.Text <> String.Empty Then                 ZIP = TZIP.Text.Replace(" ", "+")                 Link.Append(ZIP + "," & "+")             End If             ' هنا نكون قد انتهينا من اعداد جمله او لينك البحث              ' باقى فقط ان نجعل ال ويب بروسر يعرضه             WebBrowser1.Navigate(Link.ToString)             ' استخدمنا داله التحويل تو سترينح لتحويل الاشياء الموجوده ب المتغير لينك الى نصوص ليتم عرضها          Catch ex As Exception             ' وظيفه الحمله التاليه فى حاله اقتناص خطا تقوم بعرض رساله فيها سبب الخطا و وصفه              MessageBox.Show(ex.Message, Err.Description.ToString())         End Try

اى خدمهـ انا موجود

كلمهـ شكر واحدهـ كفايهـ تفرحنى وترفعـ منـ روحى المعنويهـ

مع تحيات : ى

سمو عليكو

[CHeeToS]

تسلم

[iMido]

المشاركة الأصلية كتبت بواسطة cheetos عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] تسلم

الله يخليك

و استنو التحفه Pro Searcher V 1.00

[kastel]

تمام ومستنيين التحفه

[iMido]

المشاركة الأصلية كتبت بواسطة Kastel تمام ومستنيين التحفه

ان شاء الله

[MR ! HЄRO]

شكرا

[iMido]

U R Welcome

[DeMooN_Hell]

تشكر

[ALEX_MOON]

Thank You

[iMido]

اى خدمهـ يل رجالهـ