Konu: VFP ile Google Maps
VFP formu üzerinde google maps uygulamasi denemesi ,başka bir şey araştırırken boyle birsey yaptim
harita uygulamalari için kullanabilecek arkadaşlar olabilir düşüncesi ile yayinlayayim dedim.
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
&&*************************************************
Not : biraz acele bir ornek oldu Insert kontrol hatasi alirsaniz Activex kontrollerden MS Web browser kontrolu işaret edin calisacaktir. form haline dönştürürseniz zaten sorun yok ....