VB.NET編程語言實(shí)現(xiàn)方式比較靈活，能幫助開發(fā)人員提高編程效率。我們在這里可以通過對VB.NET訪問Iframe的實(shí)現(xiàn)技巧，來體驗(yàn)一下這門語言的功能，并從中了解到它為開發(fā)人員帶來的好處。

最近在做一個(gè)郵件系統(tǒng)!運(yùn)用了toolbar+iframe布局!其中toolbar有這樣兩個(gè)按鈕:刪除郵件和清空郵件夾!同時(shí),在郵件夾里面也有這樣兩個(gè)按鈕!其實(shí).這里涉及到的問題就是JS訪問iframe內(nèi)button控件,并執(zhí)行button的click事件的問題!由于我運(yùn)用的大部分是服務(wù)器控件,而且,toolbar一般比iframe早加載.所以出現(xiàn)JS訪問不到控件的結(jié)果!起初我想動態(tài)加載toolbar控件,但考慮到上面的按鈕比較復(fù)雜,所以我就另外想了個(gè)辦法,在頁面末尾加了個(gè)兩鈕:delbt1跟clearbt1,我們只能執(zhí)行這兩個(gè)按鈕的事件就能訪問到iframe里面的內(nèi)容了!!
廢話少說!把代碼共享給大家吧!!希望大家有用:

VB.NET訪問Iframe前臺頁面:

< %@ Page Language="VB" AutoEventWireup="false" 
CodeFile="mailindex.aspx.vb" Inherits="mailindex" %> 
< %@ Register Assembly="Microsoft.Web.UI.WebControls, 
Version=1.0.2.226, Culture=neutral, PublicKeyToken=31bf3856ad364e35" 
Namespace="Microsoft.Web.UI.WebControls" TagPrefix="iewc" %> 
< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//
EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
< html xmlns="http://www.w3.org/1999/xhtml" > 
< head runat="server"> 
< title>供應(yīng)商郵件管理< /title> 
< link href ="body.css" rel ="Stylesheet" type ="text/css" /> 
< script language ="javascript" type ="text/javascript" > 

觸發(fā)iframe中刪除按鈕的事件

function get_delbt()  
{  
var info=window.confirm('確定要刪除該郵件嗎?');  
if (info==true)  
{  
//這句很關(guān)鍵,通過找到mainframe,運(yùn)用dom訪問其中的控件btdel
(刪除按鈕),執(zhí)行服務(wù)器操作click  
document.getElementById("mainframe").contentWindow.document.
getElementById("btdel").click();  
}  
}  

觸發(fā)iframe中清空按鈕的事件

function get_delallbt()  
{  
var info=window.confirm('確定要清空該郵件夾嗎?');  
if (info==true)  
{  
document.getElementById("mainframe").contentWindow.document.
getElementById("btalldel").click();  
}  
}   
< /script> 
< /head> 
< body> 
< form id="form1" runat="server"> 
< !--#include virtual="head.inc"--> 
< div align ="center" > 
< table width ="750px" background="images/back.gif">   
< thead > 
< tr> 
< th colspan ="5" align ="left" > 
< iewc:Toolbar ID="Toolbar1" Width ="400px" 
DefaultStyle ="background-image:url(images/BackgroundT.bmp)" 
ToolTip ="工具欄" OnButtonClick ="toolbarbt_click" runat="server"> 
< iewc:ToolbarButton ID="inputbt" 
ImageUrl="TreeLineImages/inbox.bmp" Text ="接收郵件"/> 
< iewc:ToolbarButton ID="newbt" 
ImageUrl="TreeLineImages/unreader.bmp" Text ="撰寫郵件" /> 
< iewc:ToolbarSeparator /> 
< iewc:ToolbarButton ID="delbt" 
ImageUrl="TreeLineImages/unout.bmp" Text= "刪除郵件" /> 
< iewc:ToolbarSeparator /> 
< iewc:ToolbarButton ID="clearbt" 
ImageUrl="TreeLineImages/reback.bmp" Text ="清空郵件" /> 
< iewc:ToolbarSeparator /> 
< iewc:ToolbarButton ID="infobt" 
ImageUrl="TreeLineImages/hold.bmp" Text= "信息統(tǒng)計(jì)" /> 
< iewc:ToolbarSeparator /> 
< iewc:ToolbarButton ID="addressbt" 
ImageUrl="TreeLineImages/mailbox.bmp" Text ="地址薄" />   
< /iewc:Toolbar> 
< /th> 
< /tr> 
< /thead> 
< tbody > 
< tr> 
< td colspan="4" valign ="top" rowspan="2"> 
< iframe id="mainframe" name ="mainframe" runat ="server" 
scrolling="auto" width ="600px" height ="400px" >< /iframe> 
< /td>   
< /tr> 
< tr> 
< /tr>   
< /tbody> 
< tfoot > 
< tr> 
< /tr> 
< /tfoot> 
< /table> 
< /div> 
< input id="delbt1" type="button" runat ="server" value="delete" /> 
< input id="clearbt1" type="button" runat ="server" value="clear" />   
< /form> 
< /body> 
< /html> 

Sub toolbarbt_click(ByVal sender As Object, ByVal e As EventArgs)  
Select Case sender.id.ToString  
Case "inputbt"  
inputmail()  
Return  
Case "newbt"  
Response.Write("< script>javascript:window.showModelessDialog
('sendmail.aspx',window,'dialogWidth:800px;resizable:yes;');
< /script>")  
Return  
Case "delbt"  
Me.delbt1_ServerClick(delbt1, New EventArgs) '觸發(fā)delbt1的click事件  
Case "clearbt"   
Me.clearbt1_ServerClick(clearbt1, New EventArgs) 
'觸發(fā)clearbt1的click事件,下面紅色部分  
Case "infobt"  
Response.Write("< script>javascript:window.showModelessDialog
('mailinfo.aspx',window,'dialogWidth:800px;resizable:yes;');
< /script>")  
Return  
Case "addressbt"  
Response.Write("< script>javascript:window.showModelessDialog
('mailbook.aspx',window,'dialogWidth:800px;resizable:yes;');
< /script>")  
Return  
Case Else  
Response.Write("請選擇按鈕")  
End Select  
End Sub  
Protected Sub delbt1_ServerClick(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles delbt1.ServerClick  
'調(diào)用JS方法:get_delbt().執(zhí)行iframe中刪除按鈕的事件!  
Page.ClientScript.RegisterStartupScript(GetType(String), "", 
"< script>javascript:get_delbt();< /script")  
End Sub  
Protected Sub clearbt1_ServerClick(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles clearbt1.ServerClick  
'調(diào)用JS方法:get_delallbt().執(zhí)行iframe中清空按鈕的事件!  
Page.ClientScript.RegisterStartupScript(GetType(String), "", 
"< script>javascript:get_delallbt();< /script")  
End Sub 

VB.NET訪問Iframe相關(guān)代碼示例就為大家介紹到這里。

【編輯推薦】

1. VB.NET調(diào)用SQL Server存儲過程
2. VB.NET添加自動查詢功能實(shí)現(xiàn)技巧概述
3. VB.NET關(guān)于對話框制作技巧分享
4. VB.NET Mid函數(shù)相關(guān)應(yīng)用方法解析
5. VB.NET獲取當(dāng)前URL方法淺談