VFP ile Google Maps

oForm = Createobject([vfp_gmaps])

oForm.Show(1)

&&*************************************************

&&-- Class:        vfp_gmaps (d:\soykan\mysoftware\my_experiments\vfp_gmaps.vcx)

&&-- ParentClass:  form

&&-- BaseClass:    form

&&-- Time Stamp:   08/07/07 03:19:07 AM

&&

DEFINE CLASS vfp_gmaps AS form

 

 

    Height = 367

    Width = 628

    DoCreate = .T.

    AutoCenter = .T.

    Caption = "VFP le Google Maps Örneği"

    Name = "Form1"

 

 

    ADD OBJECT text1 AS textbox WITH ;

        Height = 25, ;

        Left = 4, ;

        Top = 9, ;

        Width = 265, ;

        Name = "Text1"

 

 

    ADD OBJECT command1 AS commandbutton WITH ;

        Top = 8, ;

        Left = 270, ;

        Height = 27, ;

        Width = 84, ;

        Caption = "Git", ;

        Default = .T., ;

        Name = "Command1"

 

 

    ADD OBJECT OIE AS olecontrol WITH ;

        Top = 40, ;

        Left = 2, ;

        Height = 325, ;

        Width = 627, ;

        Name = "OIE"

 

 

    PROCEDURE command1.Click

        Local lcPrefix,lcSearcString

                lcPrefix=[http://maps.google.ca/maps?ie=UTF-8&oe=UTF-8&hl=en&tab=wl&q=]

        lcSearcString = Alltrim(Thisform.text1.Value) &&[Tekirdag,Malkara]

        

 

        If Empty(Thisform.text1.Value)

            Messagebox([Bir Şey Girmedinizki...],16,[Hata])

            Return

        Endif

 

        With Thisform.OIE

            .Navigate(m.lcPrefix+m.lcSearcString)

            Do While .ReadyState # 4 && Wait for ready state

            Enddo

        Endwith

    ENDPROC

 

 

ENDDEFINE

&&

&&-- EndDefine: vfp_gmaps

&&*************************************************