bahsettiğiniz talebinize yönelik olarak;
eklediğiniz örnek uygulamayı incelemek için imkan ve zaman olmaması nedeni ile sadece hem bir fikir verebilmesi hem de alternatif olması adına,aşağıdaki açıklamaların yapılması uygun görülmüştür.
1) Earth 1.0 Type Library dosyasını kod sayfasında TOOLS - REFERENCES penceresinde işaretleyiniz.
2) aşağıdaki kodları yeni bir Modül oluşturup kaydediniz.
Kod:
Option Compare Database
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub kmlcalistir()
Dim appGoogleEarth As EARTHLib.ApplicationGE
Set appGoogleEarth = New EARTHLib.ApplicationGE
Sleep 5000
Call appGoogleEarth.OpenKmlFile(CurrentProject.Path & "\" & "kml_dosyasi_adi.kml", 1)
End Sub
CurrentProject.Path ifadesi;(şüphesiz bilginiz mevcuttur fakat tekrarlamak adına),
uygulamanın bulunduğu klasörün yeri olarak geçerlidir.dolayısı ile de,.kml uzantılı dosyanın da uygulamanın olduğu klasörde yer almasını sağlayınız.
3) yukarıdaki kodları çalıştırmak üzere,bir butonun TIKLANDIĞINDA olay yordamı içerisine
Kod:
Call kmlcalistir