Sub Process_Globals
Dim Lat as Double
End Sub
What do you mean with 'several variables through the same routine' ?I want to use Dim because I have several variables through the same routine.
Sub SelectSite(Site As String)
Select Site
Case "Parnasse"
main.FotoUrl="http://maps.google.nl/maps.19"
main.MapNaam="Cimetière du Montparnasse"
main.lat = 48.8381
main.lon= 2.3260
main.pic="begmontparnasse.jpg"
main.textpage="begmontparnasse"
main.textpage2="begmontparnasse2"
main.ster ="3"
main.wijk="Montparnasse"
Case "pontdesarts"
main.FotoUrl="http://maps.google.nl,,0,4.93"
main.MapNaam="Pont des Arts"
main.lat = 48.858468
main.lon= 2.337556
main.pic="pontdesarts.jpg"
main.textpage="pontdesarts"
main.textpage2="pontdesarts2"
main.ster ="3"
main.wijk="Saint Germain"
Case "pierredemontmartre"
main.FotoUrl="http://maps.google.nl/ &cbp=12,77.96,,0,-1.68"
main.MapNaam="St. Pierre de Montmartre"
main.lat = 48.886616
main.lon= 2.341585
main.pic="pierredemontmartre.jpg"
main.textpage="pierredemontmartre"
main.textpage2="pierredemontmartre2"
main.ster ="3"
main.wijk="Montmartre"
End Select
End Sub
MyModule.SelectSite("Parnasse")
MyModule.SelectSite("pierredemontmartre")
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?