28-08-20, 06:14 PM
' add reference Google earth 1.0 type library le logitiel google earth est déja instalé'
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ge As EARTHLib.ApplicationGE
ge = New EARTHLib.ApplicationGE
ge.SetCameraParams(lat:=36.731499, lon:=3.501545, alt:=150, altMode:=1, Range:=1, Tilt:=70, Azimuth:=360 - 15, speed:=5)
End Sub
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ge As EARTHLib.ApplicationGE
ge = New EARTHLib.ApplicationGE
ge.SetCameraParams(lat:=36.731499, lon:=3.501545, alt:=150, altMode:=1, Range:=1, Tilt:=70, Azimuth:=360 - 15, speed:=5)
End Sub