?? htmltable.aspx
字號:
<html>
<head>
<script language="VB" runat="server">
'頁面下載到客戶端所執行的程序Page_Load
Sub Page_Load(sender As Object,e As EventArgs)
'聲明變量
Dim numrows As Integer
Dim numcells As Integer
Dim i As Integer=0
Dim j As Integer=0
Dim Row As Integer=0
Dim r As HtmlTableRow
Dim c As HtmlTableCell
'根據客戶提交的數據創建表格
numrows=CInt(Select1.Value)
numcells=CInt(Select2.Value)
For j=0 To numrows-1
r=new HtmlTableRow()
If (row Mod 2<>0)Then
r.BgColor="Gainsboro"
End If
row+=1
For i=0 To numcells-1
c=new HtmlTableCell()
c.Controls.Add(new LiteralControl("行數" & j & "，列數" & j))
r.Cells.Add(c)
Next
Table1.Rows.Add(r)
Next j
End Sub
</script>
<title>HtmlTable舉例
</title>
</head>
<body>
<h3>
<font face="宋體">HtmlTable舉例
</font>
</h3>
<form runat=server>
<font face="宋體"size="-1">
<p>
<!--布置一個表格控件-->
<table id="Table1"
CellPadding=5
CellSpacing=0
Border="1"
runat="server"
/>
<p> 選擇表格的行數：
<!--布置一個下拉選單確定表格的行數-->
<select id="Select1" runat="server">
<option Value="1">1</option>
<option Value="2">2</option>
<option Value="3">3</option>
<option Value="4">4</option>
<option Value="5">5</option>
</select>
<br>
選擇表格的列數：
<!--布置一個下拉選單確定表格的行數-->
<select id="Select2" runat="server">
<option Value="1">1</option>
<option Value="2">2</option>
<option Value="3">3</option>
<option Value="4">4</option>
<option Value="5">5</option>
</select>
<!--布置一個按鈕-->
<input type="submit"
value="創建表格"
runat="server"
>
</font>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -