<%@ Page Language="VB" debug=true ContentType="text/html" ResponseEncoding="gb2312" %>
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ttp-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>利用table动态生成表格并填充内容/和panel做一个可控制显示/隐藏的小玩意</title>
<script language="vb" runat="server">
sub tbn_click(sender as object,e as eventargs)
dim bt as string=cstr(tbn.text)
if bt="隐藏面板" then
pal.visible=false
tbn.text="显示面板"
else
pal.visible="true"
pal.BackImageUrl="img/leftbg.png"
tex.text="我试下看看"
tbn.text="隐藏面板"
'整个上面这些我想都不用解释了，其实大概意思就是说如果tbn的text值是“隐藏面板”的话，那就给ID为pal的面板控件增加一个visible属性，并设置为不可见，tbn的text属性值为“显示面板”；否则呢该属性的值就是可见，并且tbn的text属性值仍然变成“隐藏面板，给panel控件增加背景图片，把ID为tex的文字控件的text属性值改成“我试下看看”
creattable() '调用creattable过程
end if
end sub
sub creattable() '申明一个creattable子程序
dim introws as integer=3
dim intcell as integer=3
dim j as integer=0
dim i as integer=0
dim r as tablerow '申明tablerow（html中的tr-行）对象
dim c as tablecell '申明tablecell（html中的td-列）对象
dim g as literal '申明文字对象
dim img as image '申明图片的对象
for j=0 to introws-1
r=new tablerow() '创建一个tablerow对象
for i=0 to intcell-1
img=new image() '创建一个image对象
g=new literal() '创建一个literal对象
g.text=j+1 & "-" & i+1
img.imageurl="img/" & j+1 & "-" & i+1 & ".gif"
c=new tablecell()
c.controls.add(img) '向单元格中加入图像
c.controls.add(g) '向单元格中加入文字
r.cells.add(c) '向表格行中加入一个单元格
next
table1.rows.add(r) '向表格中增加一个表格行
next
end sub
</script>
</head>
<body>
<form runat="server">
<asp:Panel BorderColor="#0000FF" BorderStyle="dashed" BorderWidth="1" Height="200" HorizontalAlign="Center" ID="pal" runat="server" Width="300" Wrap="true">
<asp:Literal ID="tex" text="这里虽然设置了，但是哈哈…" runat="server"/>
<asp:Table ID="table1" runat="server" CellPadding="10" CellSpacing="2" border="1"/>
</asp:Panel>
<asp:Button Text="隐藏面板" ID="tbn" OnClick="tbn_click" runat="server"/>
</form>
还有半个小时了，我得赶快把今天的任务完成啊！滴答……滴答……滴答……滴答……滴答……滴答……滴答……滴答……滴答……滴答……滴答……<p>23.55 终于完成！！
</body>
</html>
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ttp-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>利用table动态生成表格并填充内容/和panel做一个可控制显示/隐藏的小玩意</title>
<script language="vb" runat="server">
sub tbn_click(sender as object,e as eventargs)
dim bt as string=cstr(tbn.text)
if bt="隐藏面板" then
pal.visible=false
tbn.text="显示面板"
else
pal.visible="true"
pal.BackImageUrl="img/leftbg.png"
tex.text="我试下看看"
tbn.text="隐藏面板"
'整个上面这些我想都不用解释了，其实大概意思就是说如果tbn的text值是“隐藏面板”的话，那就给ID为pal的面板控件增加一个visible属性，并设置为不可见，tbn的text属性值为“显示面板”；否则呢该属性的值就是可见，并且tbn的text属性值仍然变成“隐藏面板，给panel控件增加背景图片，把ID为tex的文字控件的text属性值改成“我试下看看”
creattable() '调用creattable过程
end if
end sub
sub creattable() '申明一个creattable子程序
dim introws as integer=3
dim intcell as integer=3
dim j as integer=0
dim i as integer=0
dim r as tablerow '申明tablerow（html中的tr-行）对象
dim c as tablecell '申明tablecell（html中的td-列）对象
dim g as literal '申明文字对象
dim img as image '申明图片的对象
for j=0 to introws-1
r=new tablerow() '创建一个tablerow对象
for i=0 to intcell-1
img=new image() '创建一个image对象
g=new literal() '创建一个literal对象
g.text=j+1 & "-" & i+1
img.imageurl="img/" & j+1 & "-" & i+1 & ".gif"
c=new tablecell()
c.controls.add(img) '向单元格中加入图像
c.controls.add(g) '向单元格中加入文字
r.cells.add(c) '向表格行中加入一个单元格
next
table1.rows.add(r) '向表格中增加一个表格行
next
end sub
</script>
</head>
<body>
<form runat="server">
<asp:Panel BorderColor="#0000FF" BorderStyle="dashed" BorderWidth="1" Height="200" HorizontalAlign="Center" ID="pal" runat="server" Width="300" Wrap="true">
<asp:Literal ID="tex" text="这里虽然设置了，但是哈哈…" runat="server"/>
<asp:Table ID="table1" runat="server" CellPadding="10" CellSpacing="2" border="1"/>
</asp:Panel>
<asp:Button Text="隐藏面板" ID="tbn" OnClick="tbn_click" runat="server"/>
</form>
还有半个小时了，我得赶快把今天的任务完成啊！滴答……滴答……滴答……滴答……滴答……滴答……滴答……滴答……滴答……滴答……滴答……<p>23.55 终于完成！！
</body>
</html>
