學習中就在善于總結，在VB.NET中有很多常用的代碼，在這里給大家總結了一點關于VB.NET常用代碼的實例，如果對大家有用的話，希望大家記下來，方便以后使用。

1. 打開新的窗口并傳送參數：

傳送參數：

response.write("＜script＞window.open(’*.aspx?id="+this.DropDownList1.SelectIndex+"&id1="+...+"’)＜/script＞") 

接收參數：

string a = Request.QueryString("id");  
string b = Request.QueryString("id1"); 

2.為按鈕添加對話框

Button1.Attributes.Add("onclick","return confirm(’確認?’)");  
button.attributes.add("onclick","if(confirm(’are you sure...?’)){return true;}else{return false;}")  

3.刪除表格選定記錄

int intEmpID = (int)MyDataGrid.DataKeys[e.Item.ItemIndex];  
string deleteCmd = "DELETE from Employee where emp_id = " + intEmpID.ToString() 

4.刪除表格記錄警告

private void DataGrid_ItemCreated(Object sender,DataGridItemEventArgs e)  
{  
switch(e.Item.ItemType)  
{  
case ListItemType.Item :  
case ListItemType.AlternatingItem :  
case ListItemType.EditItem:  
TableCell myTableCell;  
myTableCell = e.Item.Cells[14];  
LinkButton myDeleteButton ;  
myDeleteButton = (LinkButton)myTableCell.Controls[0];  
myDeleteButton.Attributes.Add("onclick","return confirm(’您是否確定要刪除這條信息’);");  
break;  
default:  
break;  
}  
} 

5.點擊表格行鏈接另一頁

private void grdCustomer_ItemDataBound(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e)  
{  
//點擊表格打開  
if (e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem)  
e.Item.Attributes.Add("onclick","window.open(’Default.aspx?id=" + e.Item.Cells[0].Text + "’);");  
}  
//雙擊表格連接到另一頁  
//在itemDataBind事件中  
if(e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem)  
{  
string OrderItemID =e.item.cells[1].Text;  
...  
e.item.Attributes.Add("ondblclick", "location.href=’../ShippedGrid.aspx?id=" + OrderItemID + "’");  
}  
//雙擊表格打開新一頁  
if(e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem)  
{  
string OrderItemID =e.item.cells[1].Text;  
...  
e.item.Attributes.Add("ondblclick", "open(’../ShippedGrid.aspx?id=" + OrderItemID + "’)");  
} 

6.表格超連接列傳遞參數

＜asp:HyperLinkColumn Target="_blank" headertext="ID號" DataTextField="id" NavigateUrl="aaa.aspx?id=’  
＜%# DataBinder.Eval(Container.DataItem, "數據字段1")%＞’ & name=’＜%# DataBinder.Eval(Container.DataItem, "數據字段2")%＞’ /＞ 

7.表格點擊改變顏色

if (e.Item.ItemType == ListItemType.Item ||e.Item.ItemType == ListItemType.AlternatingItem)  
{  
e.Item.Attributes.Add("onclick","this.style.backgroundColor=’#99cc00’;  
this.style.color=’buttontext’;this.style.cursor=’default’;");  
}   
//寫在DataGrid的_ItemDataBound里  
if (e.Item.ItemType == ListItemType.Item ||e.Item.ItemType == ListItemType.AlternatingItem)  
{  
e.Item.Attributes.Add("onmouseover","this.style.backgroundColor=’#99cc00’;  
this.style.color=’buttontext’;this.style.cursor=’default’;");  
e.Item.Attributes.Add("onmouseout","this.style.backgroundColor=’’;this.style.color=’’;");  
} 

8.VB.NET常用代碼關于日期格式

日期格式設定

DataFormatString="{0:yyyy-MM-dd}" 

我覺得應該在itembound事件中

e.items.cell["你的列"].text=DateTime.Parse(e.items.cell["你的列"].text.ToString("yyyy-MM-dd"))  

9.獲取錯誤信息并到指定頁面

不要使用Response.Redirect,而應該使用Server.Transfer

e.g  
// in global.asax  
protected void Application_Error(Object sender, EventArgs e) {  
if (Server.GetLastError() is HttpUnhandledException)  
Server.Transfer("MyErrorPage.aspx");  
//其余的非HttpUnhandledException異常交給ASP.NET自己處理就okay了 :)  
} 

Redirect會導致post－back的產生從而丟失了錯誤信息，所以頁面導向應該直接在服務器端執行，這樣就可以在錯誤處理頁面得到出錯信息并進行相應的處理

10.VB.NET常用代碼清空Cookie

Cookie.Expires=[DateTime];  
Response.Cookies("UserName").Expires = 0 

【編輯推薦】

1. 剖析VB.NET平臺調用是如何執行操作
2. 分享個人總結VB.NET多線程
3. 詳細說明VB.NET變量中四點
4. 三類十二種VB.NET數據類型全面介紹
5. VB.NET初步知識，初學者必看