📄 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 + -