washington2.aspx Top
<%@ Page Language="VB" Debug="True" %>
<%@ Register TagPrefix="ttkGIS" Namespace="TatukGIS.IS" Assembly="TatukGIS.IS" %>
<script runat="server">
Sub GIS_FullExtent_Click(sender As Object, e As ImageClickEventArgs)
GIS.FullExtent
End Sub
Sub GIS_ZoomIn_Click(sender As Object, e As ImageClickEventArgs)
GIS.ZoomIn
End Sub
Sub GIS_ZoomOut_Click(sender As Object, e As ImageClickEventArgs)
GIS.ZoomOut
End Sub
Sub GIS_Smaller_Click(sender As Object, e As ImageClickEventArgs)
GIS.Width = Unit.Pixel( GIS.Width.Value - 54 )
GIS.Height = Unit.Pixel( GIS.Height.Value - 40 )
End Sub
Sub GIS_Larger_Click(sender As Object, e As ImageClickEventArgs)
GIS.Width = Unit.Pixel( GIS.Width.Value + 54 )
GIS.Height = Unit.Pixel( GIS.Height.Value + 40 )
End Sub
Sub GIS_Load(sender As Object, e As EventArgs)
GIS.Open( Page.MapPath( "data/washington2.ttkgp" ) )
End Sub
Sub GIS_BeforePaint(sender As Object, e As PaintEventArgs)
GIS.SetLayerActive("photo", False)
GIS.SetLayerActive("water", False)
GIS.SetLayerActive("lines", False)
GIS.SetLayerActive("water_labels", False)
if RadioButtonDOQQ.Checked then
GIS.SetLayerActive("photo", True)
end if
if RadioButtonTiger.Checked then
GIS.SetLayerActive("water", True)
GIS.SetLayerActive("lines", True)
GIS.SetLayerActive("water_labels", True)
end if
if RadioButtonBoth.Checked then
GIS.SetLayerActive("photo", True)
GIS.SetLayerActive("water", True)
GIS.SetLayerActive("lines", True)
GIS.SetLayerActive("water_labels", True)
end if
End Sub
</script>
<html>
<head>
<link href="style.css" type="text/css" rel="stylesheet" />
</head>
<body>
<a name="top">
<h1>Choice of visible layers
</h1>
<h2 class="comment">TatukGIS IS LITE Sample
</h2>
<form runat="server">
<p>
<asp:Table id="Table1" runat="server" Width="360px" BackColor="#E9E9E9">
<asp:TableRow>
<asp:TableCell ColumnSpan="3">
<asp:Label runat="server" id="Label1" cssclass="bold">Choose visible layers: </asp:Label>
</asp:TableCell>
</asp:TableRow>
<asp:TableRow>
<asp:TableCell Width="120px">
<asp:RadioButton runat="server" GroupName="Map" AutoPostBack="True" Text="DOQQ photos" ID="RadioButtonDOQQ"></asp:RadioButton>
</asp:TableCell>
<asp:TableCell Width="120px">
<asp:RadioButton runat="server" GroupName="Map" AutoPostBack="True" Text="TIGER vectors" ID="RadioButtonTiger"></asp:RadioButton>
</asp:TableCell>
<asp:TableCell Width="120px">
<asp:RadioButton runat="server" GroupName="Map" AutoPostBack="True" Text="Both" Checked="True" ID="RadioButtonBoth"></asp:RadioButton>
</asp:TableCell>
</asp:TableRow>
</asp:Table>
</p>
<p>
<table cellspacing="0" cellpadding="0" border="0">
<tbody>
<tr>
<td>
<asp:ImageButton id="GIS_FullExtent" onclick="GIS_FullExtent_Click" runat="server" ImageUrl="/TatukGIS_IS8/img/fullextent.gif"></asp:ImageButton>
<asp:ImageButton id="GIS_ZoomIn" onclick="GIS_ZoomIn_Click" runat="server" ImageUrl="/TatukGIS_IS8/img/zoomin.gif"></asp:ImageButton>
<asp:ImageButton id="GIS_ZoomOut" onclick="GIS_ZoomOut_Click" runat="server" ImageUrl="/TatukGIS_IS8/img/zoomout.gif"></asp:ImageButton>
</td>
<td align="right">
<asp:ImageButton id="GIS_Smaller" onclick="GIS_Smaller_Click" runat="server" ImageUrl="/TatukGIS_IS8/img/smaller.gif"></asp:ImageButton>
<asp:ImageButton id="GIS_Larger" onclick="GIS_Larger_Click" runat="server" ImageUrl="/TatukGIS_IS8/img/larger.gif"></asp:ImageButton>
</td>
</tr>
<tr>
<td colspan="2">
<p>
<ttkGIS:XGIS_VIEWERIS id="GIS" runat="server" Width="360px" BorderWidth="1px" BorderColor="CornflowerBlue" OnLoad="GIS_Load"></ttkGIS:XGIS_VIEWERIS>
</p>
</td>
</tr>
</tbody>
</table>
</p>
<p>
</p>
</form>
</a>
</body>
</html>