<%@ Register TagPrefix="Title" TagName="TitleShow" Src="/aspnetdata/Title.ascx" %>
<html>
<head>
	<script language="VB" runat="server">
	Sub Page_load(sender As Object, e As EventArgs) 
	dim i as integer
	For i=0 to Page.Controls.Item(0).Controls.Count-1
		if Left(Page.Controls.Item(0).Controls(i).ID,3)="Acc" or Left(Page.Controls.Item(0).Controls(i).ID,3)="VBA" Then
			Page.Controls.Item(0).Controls(i).Visible=False
		End if
	Next
	end sub
	Sub Imagelick(sender As Object, e As ImageClickEventArgs) 
	label1.text="按下左键的X坐标为：" & e.x & "，Y坐标为：" & e.Y
	If Sender.CommandArgument="access" Then
		AccessLink1.Visible=True
		AccessLink2.Visible=True
		VBALink1.Visible=False
		VBALink2.Visible=False
	elseIf Sender.CommandArgument="vba" Then
		AccessLink1.Visible=False
		AccessLink2.Visible=False
		VBALink1.Visible=True
		VBALink2.Visible=True
	end if
	end sub
	</script>
</head>
<body background="/aspnetdata/images/winback.gif">
<Title:TitleShow id="BookT" Runat="server" />
<form id="nform" runat="server">
<asp:ImageButton id=Button1 ImageUrl="ACSMA.GIF" BorderWidth="0" commandargument="access" onclick="Imagelick" runat="server"/>
<asp:ImageButton id=Button2 ImageUrl="VBASMA.GIF" BorderWidth="0" commandargument="vba" onclick="Imagelick" runat="server"/>
<p><asp:hyperlink id=AccessLink1 NavigateUrl="http://access.winwalk.com.tw/faq/4.htm" runat="server">更改类型时，显示字段数过多之信息，应如何处理?</asp:hyperlink>
<p><asp:hyperlink id=VBALink1 NavigateUrl="http://access.winwalk.com.tw/faq/protect.htm" runat="server">如何在Office各软件保护VBA程序代码，不允许用户查看程序</asp:hyperlink>
<p><asp:hyperlink id=VBALink2 NavigateUrl="http://access.winwalk.com.tw/faq/vba4.htm" runat="server">如何在VBA程序代码寻找错误?</asp:hyperlink>
<p><asp:Label id=Label1 align="left" runat="server" />
    </form>
</body>
</html>