Imports Subgurim.Controles

Partial Class AtcoMap
    Inherits System.Web.UI.Page
    Private Sub AtcoMap()
        Try
            Dim control As New GControl(GControl.preBuilt.GOverviewMapControl)
            Dim control2 As New GControl(GControl.preBuilt.MenuMapTypeControl, New GControlPosition(GControlPosition.position.Top_Right))

            GMap1.addControl(control)
            GMap1.addControl(control2)
            ''
            ' add Map Scale
            GMap1.addControl(New GControl(GControl.preBuilt.LargeMapControl, New GControlPosition(GControlPosition.position.Top_Left)))
            '

            'add marker and window for address
            Dim marker As New GMarker(New GLatLng(23.0375403301873R, 72.5658881664276R))
            Dim window As New GInfoWindow(marker, "<center style='font-family: Arial; font-size: 12px;'><b>Ahmedabad</b><br/>3rd Floor, Waghela House,<br />Besides Havmor Restaurant,<br />Navarangpura, Ahmedabad - 380 009<br />Gujarat (INDIA).<br />E-mail :<a href='mailto:contact@atcomaart.com' style='font-family: Arial; font-size: 12px; color: Blue; text-decoration:none;'>contact@atcomaart.com</a></center>", True)
            GMap1.addInfoWindow(window)

            GMap1.Height = 300
            GMap1.Width = 400
            GMap1.Version = "2.43"
            GMap1.enableDragging = True
            GMap1.enableGoogleBar = False
            GMap1.Language = "en"
            GMap1.GZoom = 3
            GMap1.enableContinuousZoom = True
            GMap1.enableDoubleClickZoom = True
            GMap1.enableHookMouseWheelToZoom = True
            GMap1.mapType = GMapType.GTypes.Physical
            GMap1.addMapType(GMapType.GTypes.Physical)
            GMap1.enableGKeyboardHandler = True

            Dim latlong As New GLatLng(23.0375403301873R, 72.5658881664276R)

            Dim maptype As GMapType.GTypes = GMapType.GTypes.Hybrid
            GMap1.setCenter(latlong)
            GMap1.setCenter(latlong, 17)
            GMap1.setCenter(latlong, 17, maptype)

            Dim customCursor As New GCustomCursor(cursor.hand, cursor.hand)
            GMap1.addCustomCursor(customCursor)

            GMap1.enablePostBackPersistence = True
            GMap1.enableGetGMapElementById = True


            ' Bombay Map
            'add menu for maptype
            Dim control1 As New GControl(GControl.preBuilt.GOverviewMapControl)
            Dim control3 As New GControl(GControl.preBuilt.MenuMapTypeControl, New GControlPosition(GControlPosition.position.Top_Right))

            GMap2.addControl(control1)
            GMap2.addControl(control3)
            ''
            ' add Map Scale
            GMap2.addControl(New GControl(GControl.preBuilt.LargeMapControl, New GControlPosition(GControlPosition.position.Top_Left)))
            '

            'add marker and window for address
            Dim marker1 As New GMarker(New GLatLng(19.0135376791938R, 72.8502881526947))
            Dim window1 As New GInfoWindow(marker1, "<center style='font-family: Arial; font-size: 12px;'><b>Mumbai (Corporate Office)</b><br />6, Lalwani Industrial Estate,<br />14, G.D.Ambedkar Road,<br />Wadala (West), Mumbai - 400 031<br />Maharashtra (INDIA).<br />E-mail :<a href='mailto:contact@atcomaart.com' style='font-family: Arial; font-size: 12px; color: Blue; text-decoration:none;'>contact@atcomaart.com</a></center>", True)
            GMap2.addInfoWindow(window1)
            '
            GMap2.Height = 300
            GMap2.Width = 400
            GMap2.enableDragging = True
            GMap2.enableGoogleBar = False
            GMap2.Language = "en"
            GMap2.GZoom = 3
            GMap2.enableContinuousZoom = True
            GMap2.enableDoubleClickZoom = True
            GMap2.enableHookMouseWheelToZoom = True
            GMap2.mapType = GMapType.GTypes.Physical
            GMap2.addMapType(GMapType.GTypes.Physical)

            GMap2.enableGKeyboardHandler = True

            Dim latlong1 As New GLatLng(19.0135376791938R, 72.8502881526947)

            Dim maptype1 As GMapType.GTypes = GMapType.GTypes.Hybrid
            GMap2.setCenter(latlong1)
            GMap2.setCenter(latlong1, 17)
            GMap2.setCenter(latlong1, 17, maptype1)

            Dim customCursor1 As New GCustomCursor(cursor.hand, cursor.hand)
            GMap2.addCustomCursor(customCursor1)

            GMap2.enablePostBackPersistence = True
            GMap2.enableGetGMapElementById = True
            'end Bombay
            ' Delhi Map
            'add menu for maptype
            Dim control4 As New GControl(GControl.preBuilt.GOverviewMapControl)
            Dim control5 As New GControl(GControl.preBuilt.MenuMapTypeControl, New GControlPosition(GControlPosition.position.Top_Right))

            GMap3.addControl(control4)
            GMap3.addControl(control5)
            ''
            ' add Map Scale
            GMap3.addControl(New GControl(GControl.preBuilt.LargeMapControl, New GControlPosition(GControlPosition.position.Top_Left)))
            '

            'add marker and window for address
            Dim marker2 As New GMarker(New GLatLng(28.6937499053187R, 77.1473693847656R))
            Dim window2 As New GInfoWindow(marker2, "<center style='font-family: Arial; font-size: 12px;'><b>Delhi</b><br />214, Agarwal Tower-2nd Floor,<br />Netaji Subhash Place,<br />Pitampura<br />New Delhi-110 035<br />E-mail :<a href='mailto:contact@atcomaart.com' style='font-family: Arial; font-size: 12px; color: Blue; text-decoration:none;'>contact@atcomaart.com</a></center>", True)
            GMap3.addInfoWindow(window2)
            '
            GMap3.Height = 300
            GMap3.Width = 400
            GMap3.enableDragging = True
            GMap3.enableGoogleBar = False
            GMap3.Language = "en"
            GMap3.GZoom = 3
            GMap3.enableContinuousZoom = True
            GMap3.enableDoubleClickZoom = True
            GMap3.enableHookMouseWheelToZoom = True
            GMap3.mapType = GMapType.GTypes.Physical
            GMap3.addMapType(GMapType.GTypes.Physical)

            GMap3.enableGKeyboardHandler = True

            Dim latlong2 As New GLatLng(28.6937499053187R, 77.1473693847656R)

            Dim maptype2 As GMapType.GTypes = GMapType.GTypes.Hybrid
            GMap3.setCenter(latlong2)
            GMap3.setCenter(latlong2, 17)
            GMap3.setCenter(latlong2, 17, maptype2)

            Dim customCursor2 As New GCustomCursor(cursor.hand, cursor.hand)
            GMap3.addCustomCursor(customCursor2)

            GMap3.enablePostBackPersistence = True
            GMap3.enableGetGMapElementById = True
            'end Delhi
        Catch ex As Exception

        End Try
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            AtcoMap()
        End If
    End Sub
End Class