对窗体分屏,并对目标窗体中的控件实现导航显示操作(简单用法).

实现环境:VB.NET 2003 首先分成3个窗体,BasicForm,MenuForm,TargetForm. 以下为实现简单代码: BasicForm的BasicForm.aspx文件: <%@ Page Language="vb" AutoEventWireup="false" Codebehind="TargetForm.aspx.vb" Inherits="WebApplication1.TargetForm"%>

MenuForm的MenuForm.aspx文件: <%@ Page Language="vb" AutoEventWireup="false" Codebehind="MenuForm.aspx.vb" Inherits="WebApplication1.MenuForm"%> <script language="javascript" type="text/javascript"> function __doPostBack(eventTarget, eventArgument) { var theform; if (window.navigator.appName.toLowerCase().indexOf("microsoft") > -1) { theform = document.Form2; } else { theform = document.forms["Form2"]; } theform.__EventTarget.value = eventTarget.split("$").join(":"); theform.__EventArgument.value = eventArgument; theform.submit(); } </script>

reara

MenuForm的MenuForm.aspx.vb文件: Protected WithEvents __EventTarget As System.Web.UI.HtmlControls.HtmlInputHidden Protected WithEvents __EventArgument As System.Web.UI.HtmlControls.HtmlInputHidden Dim gstrScript As String Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load gstrScript = "<script language=javascript> " gstrScript &= "parent.main.location.href = '" & "TargetForm.aspx" & "#" & __EventTarget.Value.ToString() & "'; " gstrScript &= "</script>" RegisterStartupScript("link", gstrScript) End Sub TargetForm的TargetForm.aspx文件: <%@ Page Language="vb" AutoEventWireup="false" Codebehind="TargetForm.aspx.vb" Inherits="WebApplication1.TargetForm"%>

注:希望以后碰到类似问题,直接COPY,为了方便起见.