openaccess/test/source/modules/Internet.bas

Option Compare Database

Public Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Internet(Adresse As String)
    ShellExecute 0, "", Adresse, "", "", 0
End Sub

Public Function DistanceInternet(ByVal Depart As String, ByVal arrivee As String)
Dim lien As String

Depart = UCase(Left(Depart, 1)) & LCase(Right(Depart, Len(Depart) - 1))
arrivee = UCase(Left(arrivee, 1)) & LCase(Right(arrivee, Len(arrivee) - 1))

'lien = "http://fr.distancevilles.net/distance-" & depart & "-et-" & arrivee

lien = "http://maps.google.fr/maps?saddr=" & Depart & "&daddr=" & arrivee

Call Internet(lien)


End Function