Sub ImageButtonViewMap_Click
' la visualizzazione della mappa avviene tramite il servizio
' web 'Virtual Heart' di Microsoft č quindi necessario dispor-
' re di un'accesso ad internet...
Dim hFile
If MapMode > 0 Then
' elimina la pagina html se questa giā esiste:
If FileExist(AppPath & "\map.html") = True Then
FileDel(AppPath & "\map.html")
End If
' genera il file che conterrā la pagina html per la visualizzazione della mappa:
FileOpen(hFile,AppPath & "\map.html",cWrite,,cASCII)
End If
Select MapMode
Case 0
' apre un'altro form e, tramite il componente WebBrowser svilup-
' pato da Andrew Graham (agraham), procede a richiamare una pagi-
' na ASP ospitata su un sito web la quale si occupa di effettua-
' re le richieste necessarie per la visualizzazione della mappa:
frmMAP.Show
WebBrowser.URL = "http://www.db2000web.net/GLIP/maps/map-viewer.asp?LAT=" & LOCATION.LAT & "&LON=" & LOCATION.LON & "&W=640&H=480"
Case 1
' viene generata una pagina html che effettua il "redirect" ad
' un'altra pagina che risiede su un sito web e che a sua volta
' si occupa di effettuare le richieste necessarie per la visua-
' lizzazione della mappa:
FileWrite(hFile, "")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, "
wait please...")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, "")
Case 2
' viene generata una pagina html che si occupa in locale di
' procedere direttamente ad effettuare le richieste necessa-
' rie per la visualizzazione della mappa:
FileWrite(hFile, "")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, " ")
FileWrite(hFile, "")
End Select
If MapMode > 0 Then
FileClose(hFile) ' chiude il file e visualizza
Shell(AppPath & "\map.html", "") ' la mappa nel browser...
End If
End Sub