or


01.<script type="text/javascript">02. var geocoder;03. var layers = [];04. 05. layers[0] = new google.maps.KmlLayer('OfficeLocations.kml',06. { preserveViewport: true });07. 08. layers[1] = new google.maps.KmlLayer('http://www.geocodezip.com/geoxml3_test/utah-hunt_com_DeerSouthern_kml.xml',09. { preserveViewport: true });10. 11. layers[2] = new google.maps.KmlLayer('police.kml',12. { preserveViewport: true });13. 14. layers[3] = new google.maps.KmlLayer('waste.kml',15. { preserveViewport: true });16. var map;17. 18. function initialize() {19. geocoder = new google.maps.Geocoder();20. var mapOptions = {21. center: { lat: 44.0527524, lng: -80.1875065 },22. zoom: 1123. };24. map = new google.maps.Map(document.getElementById('map-canvas'),25. mapOptions);26. }27. 28. function toggleLayers(i) {29. 30. if (layers[i].getMap() == null) {31. layers[i].setMap(map);32. }33. else {34. layers[i].setMap(null);35. }36. document.getElementById('status').innerHTML += "toggleLayers(" + i + ") [setMap(" + layers[i].getMap() + "] returns status: " + layers[i].getStatus() + "<br>";37. }38. 39. function codeAddress() {40. var address = document.getElementById("address").value;41. geocoder.geocode({ 'address': address }, function (results, status) {42. if (status == google.maps.GeocoderStatus.OK) {43. map.setCenter(results[0].geometry.location);44. marker.setPosition(results[0].geometry.location);45. map.setZoom(14);46. }47. else {48. alert("Geocode was not successful for the following reason: " + status);49. }50. });51. }52. 53. google.maps.event.addDomListener(window, 'load', initialize);54. 55. </script>56.<script>57. function OnClientItemClicked(sender, args) {58. var item = args.get_item(); 59. if (item.get_level() == 0) { 60. toggleLayers(0); } 61. }62. </script>63. <telerik:RadPanelBar ID="RadPanelBar1" runat="server" Width="300px" Skin="Silk" OnClientItemClicked="OnClientItemClicked">64. <Items>65. <telerik:RadPanelItem runat="server" Text="Government Services" Expanded="true" ImageUrl="images/icons/information.gif">66. <Items>67. <telerik:RadPanelItem runat="server" Text="Office Locations" ImageUrl="images/icons/building.gif">68. </telerik:RadPanelItem>69. <telerik:RadPanelItem runat="server" Text="Police Stations" ImageUrl="images/icons/shield.gif">70. </telerik:RadPanelItem>71. <telerik:RadPanelItem runat="server" Text="Waste Disposal" ImageUrl="images/icons/lorry.gif">72. </telerik:RadPanelItem>73. </Items>74. </telerik:RadPanelItem>75. </telerik:RadPanelBar>'***************************************' Clear The Controls Collection'***************************************Me.Controls.Clear()'***************************************' Create Container Panel(s)'***************************************Me._panelContainer = New PanelWith Me._panelContainer .ID = "panelMainContainer"End With'***************************************' Create Message PlaceHolder'***************************************Me._phPlaceHolder = New PlaceHolderWith Me._phPlaceHolder .ID = "phPlaceHolder"End With'***************************************' Add Controls Directly To Container'***************************************With Me._panelContainer.Controls '*************************************** ' Add Message Placeholder '*************************************** .Add(Me._phPlaceHolder) '*************************************** ' Create AJAX Controls '*************************************** If (Me.UseAjax) Then '*************************************** ' Define RADAJAXLoadingPanel '*************************************** Me._panelRADAjaxLoading = New RadAjaxLoadingPanel With Me._panelRADAjaxLoading .ID = "panelRADAjaxLoading" .Skin = "Default" .EnableSkinTransparency = True .BackgroundPosition = AjaxLoadingPanelBackgroundPosition.Center End With '*************************************** ' Add Loading Panel '*************************************** .Add(Me._panelRADAjaxLoading) End If '*************************************** ' Add Control Design To Panel '*************************************** .Add(Me.CreateControlDesign())End With'***************************************' Add Main Panel Container To Base Control'***************************************Me.Controls.Add(Me._panelContainer)'***************************************' Call Base Class Method'***************************************MyBase.CreateChildControls()Private Function CreateControlDesign() As Control '*************************************** ' Initialize Variables '*************************************** Dim objTable_Main As CodeLibrary.HTMLTableBuilder '*************************************** ' Default Values '*************************************** Me._cboRoleGroups = New DropDownList Me._chkRoles = New CheckBoxList Me._cmdClearSelection = New LinkButton Me._lblTotalSelectedRoles = New Label '*************************************** ' Initialize Controls '*************************************** With Me._cboRoleGroups .ID = "cboRoleGroups" .AutoPostBack = True End With With Me._chkRoles .ID = "chkRoles" .AutoPostBack = True End With With Me._cmdClearSelection .ID = "cmdClearSelectedRoles" .Text = "Clear Selected Roles" End With With Me._lblTotalSelectedRoles .ID = "lblTotalSelectedRoles" .Text = "{0} Roles Selected" End With '*************************************** ' Main Container Table '*************************************** objTable_Main = New CodeLibrary.HTMLTableBuilder With objTable_Main '*************************************** ' Set Table Properties '*************************************** .Table.ID = "tblMain" If (Me.UseDNNFormItemClass) Then .Table.CssClass = "dnnFormItems" '*************************************** ' Row: 01 (Role Group Selector) '*************************************** .NewRow() With .CurrentRow '*************************************** ' Cell 01: cboRoleGroups '*************************************** objTable_Main.NewCell() With objTable_Main.CurrentCell '*************************************** ' Set Cell Properties '*************************************** If (Me.UseDNNFormItemClass) Then .CssClass = "dnnFormItem" .Width = New Unit(0, UnitType.Pixel) '*************************************** ' Add Control(s) To Cell '*************************************** .Controls.Add(Me._cboRoleGroups) End With objTable_Main.CommitCell() '*************************************** ' Cell 02: Spacer '*************************************** objTable_Main.NewCell() With objTable_Main.CurrentCell .Width = New Unit(10, UnitType.Pixel) End With objTable_Main.CommitCell() '*************************************** ' Cell 03: lblTotalSelectedRoles '*************************************** objTable_Main.NewCell() With objTable_Main.CurrentCell '*************************************** ' Set Cell Properties '*************************************** .Width = New Unit(100, UnitType.Percentage) '*************************************** ' Add Control(s) To Cell '*************************************** .Controls.Add(Me._lblTotalSelectedRoles) End With objTable_Main.CommitCell() End With .CommitRow() '*************************************** ' Row: 02 (Clear Selection Button) '*************************************** .NewRow() With .CurrentRow '*************************************** ' Cell 01: Data Entry Control '*************************************** objTable_Main.NewCell() With objTable_Main.CurrentCell '*************************************** ' Set Cell Properties '*************************************** If (Me.UseDNNFormItemClass) Then .CssClass = "dnnFormItem" .ColumnSpan = 3 '*************************************** ' Add Control(s) To Cell '*************************************** .Controls.Add(Me._cmdClearSelection) End With objTable_Main.CommitCell() End With .CommitRow() '*************************************** ' Row: 03 (Role Selector) '*************************************** .NewRow() With .CurrentRow '*************************************** ' Cell 01: Data Entry Control '*************************************** objTable_Main.NewCell() With objTable_Main.CurrentCell '*************************************** ' Set Cell Properties '*************************************** If (Me.UseDNNFormItemClass) Then .CssClass = "dnnFormItem DCCRemoveLabelContraints" .ColumnSpan = 3 '*************************************** ' Add Control(s) To Cell '*************************************** .Controls.Add(Me._chkRoles) End With objTable_Main.CommitCell() End With .CommitRow() End With '*************************************** ' Return Final Value '*************************************** Return objTable_Main.TableEnd Function'***************************************' Register Controls w/ RADAJAXManager'***************************************If (Me.UseAjax) Then Dim objRADAjaxManager As RadAjaxManager = Me.RADAjaxManager If ((objRADAjaxManager IsNot Nothing) AndAlso (Me.Visible)) Then With objRADAjaxManager.AjaxSettings '*************************************** ' Set AJAX Update Triggers '*************************************** .AddAjaxSetting(Me._cboRoleGroups, Me._panelContainer, Me._panelRADAjaxLoading) .AddAjaxSetting(Me._cmdClearSelection, Me._panelContainer, Me._panelRADAjaxLoading) .AddAjaxSetting(Me._chkRoles, Me._panelContainer, Me._panelRADAjaxLoading) .AddAjaxSetting(Me._chkRoles, Me._chkRoles) .AddAjaxSetting(Me._chkRoles, Me._lblTotalSelectedRoles) End With End IfEnd If