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

[iMido]

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

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

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

و استدعى System.Text

كود PHP:

Imports System.Text 


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

كود PHP:

  'جميع المتغيرات هنا فى غايه الاهميه لانها ستحمل الاشياء والاماكن التى سنبحث فيها
        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]

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