в 15:30, 26 мая 2010

2010-05-26T15:30:47Z

Admin: 1 версия

2010-05-26T11:53:48Z

1 версия

Новая страница

==Hide a table (VB.net)==



<source lang="csharp">
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim MyRow as new HTMLTableRow
Dim MyCell as new HTMLTableCell
Dim i as Integer
Dim j as Integer
Table2.BGColor="Ivory"
Table2.Border=2
Table2.BorderColor="LawnGreen"
Table2.CellPadding=4
Table2.CellSpacing=3
Table2.Align="Center"
MyCell.InnerText = "Column 1"
MyRow.Cells.Add(MyCell)
MyCell = New HTMLTableCell
MyCell.InnerText = "Column 2"
MyRow.Cells.Add(MyCell)
Table2.Rows.Add(MyRow)
For i = 2 to 6
MyRow = New HTMLTableRow
For j = 1 to 2
MyCell = New HTMLTableCell
MyCell.InnerText = "Cell " & i & ", " & j
MyRow.Cells.Add(MyCell)
Next
Table2.Rows.Add(MyRow)
Next
End Sub
Sub Anchor2_Click(Source As Object, E as EventArgs)
Table1.Rows.Clear
Anchor2.Visible = False
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Table Sample Page</TITLE>
</HEAD>
<BODY>
<form runat="server">
<Font Face="Tahoma" Size="+1">
<BR>
<a
id="Anchor2"
OnServerClick="Anchor2_Click"
runat=server
>Click here to remove Table 1
</a>
<BR><BR>
<Table
id="Table1"
runat=server
>
<TR
id="Row11"
runat=server
>
<TD id="Cell111" runat=Server>Cell 1</TD>
<TD id="Cell112" runat=Server BGColor="Pink">Cell 2</TD>
<TD id="Cell113" runat=Server>Cell 3</TD>
</TR>
<TR
id="Row12"
runat=server
>
<TD id="Cell121" runat=Server>The second row</TD>
<TD id="Cell122" runat=Server Disabled=True>
Disabled Cell
</TD>
<TD id="Cell123" runat=Server>Cell 3</TD>
<TD id="Cell124" runat=Server Visible=False>
Should not see this cell
</TD>
</TR>
<TR
id="Row13"
runat=server
>
<TD id="Cell131" runat=Server ColSpan=3>
The text of a long cell that spans all three columns.
</TD>
</TR>
</Table>
<BR><BR><BR><BR><BR>
<Table
id="Table2"
runat=server
>
</Table>
</Font>
</Form>
</BODY>
</HTML>

</source>

==HTML Table: add row (VB.net)==



<source lang="csharp">
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim MyRow as new HTMLTableRow
Dim MyCell as new HTMLTableCell
Dim i as Integer
Dim j as Integer
Table1.BGColor="Ivory"
Table1.Border=2
Table1.BorderColor="LawnGreen"
Table1.CellPadding=4
Table1.CellSpacing=3
Table1.Align="Center"
MyCell.InnerText = "Column 1"
MyRow.Cells.Add(MyCell)
MyCell = New HTMLTableCell
MyCell.InnerText = "Column 2"
MyRow.Cells.Add(MyCell)
Table1.Rows.Add(MyRow)
For i = 2 to 6
MyRow = New HTMLTableRow
For j = 1 to 2
MyCell = New HTMLTableCell
MyCell.InnerText = "Cell " & i & ", " & j
MyRow.Cells.Add(MyCell)
Next
Table1.Rows.Add(MyRow)
Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Adding Rows and Cells to an HTMLTable Control through Code</TITLE>
</HEAD>
<BODY>
<form runat="server">
<Table
id="Table1"
runat=server
>
</Table>
</Form>
</BODY>
</HTML>

</source>

==HTML Table: change background (VB.net)==



<source lang="csharp">
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim MyRow as new HTMLTableRow
Dim MyCell as new HTMLTableCell
Dim i as Integer
Dim j as Integer
Table1.BGColor="Ivory"
Table1.Border=2
Table1.BorderColor="LawnGreen"
Table1.CellPadding=4
Table1.CellSpacing=3
Table1.Align="Center"
MyCell.InnerText = "Column 1"
MyRow.Cells.Add(MyCell)
MyCell = New HTMLTableCell
MyCell.InnerText = "Column 2"
MyRow.Cells.Add(MyCell)
Table1.Rows.Add(MyRow)
For i = 2 to 6
MyRow = New HTMLTableRow
For j = 1 to 2
MyCell = New HTMLTableCell
MyCell.InnerText = "Cell " & i & ", " & j
MyRow.Cells.Add(MyCell)
Next
Table1.Rows.Add(MyRow)
Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Adding Rows and Cells to an HTMLTable Control through Code</TITLE>
</HEAD>
<BODY LEFTMARGIN="40" TOPMARGIN="40">
<form runat="server">
<Table
id="Table1"
runat=server
>
</Table>
</Form>
</BODY>
</HTML>

</source>

==HTML Table: change border (VB.net)==



<source lang="csharp">
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim MyRow as new HTMLTableRow
Dim MyCell as new HTMLTableCell
Dim i as Integer
Dim j as Integer
Table1.BGColor="Ivory"
Table1.Border=2
Table1.BorderColor="LawnGreen"
Table1.CellPadding=4
Table1.CellSpacing=3
Table1.Align="Center"
MyCell.InnerText = "Column 1"
MyRow.Cells.Add(MyCell)
MyCell = New HTMLTableCell
MyCell.InnerText = "Column 2"
MyRow.Cells.Add(MyCell)
Table1.Rows.Add(MyRow)
For i = 2 to 6
MyRow = New HTMLTableRow
For j = 1 to 2
MyCell = New HTMLTableCell
MyCell.InnerText = "Cell " & i & ", " & j
MyRow.Cells.Add(MyCell)
Next
Table1.Rows.Add(MyRow)
Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Adding Rows and Cells to an HTMLTable Control through Code</TITLE>
</HEAD>
<BODY LEFTMARGIN="40" TOPMARGIN="40">
<form runat="server">
<Table
id="Table1"
runat=server
>
</Table>
</Form>
</BODY>
</HTML>

</source>

==HTML Table: change cell padding (VB.net)==



<source lang="csharp">
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim MyRow as new HTMLTableRow
Dim MyCell as new HTMLTableCell
Dim i as Integer
Dim j as Integer
Table1.BGColor="Ivory"
Table1.Border=2
Table1.BorderColor="LawnGreen"
Table1.CellPadding=4
Table1.CellSpacing=3
Table1.Align="Center"
MyCell.InnerText = "Column 1"
MyRow.Cells.Add(MyCell)
MyCell = New HTMLTableCell
MyCell.InnerText = "Column 2"
MyRow.Cells.Add(MyCell)
Table1.Rows.Add(MyRow)
For i = 2 to 6
MyRow = New HTMLTableRow
For j = 1 to 2
MyCell = New HTMLTableCell
MyCell.InnerText = "Cell " & i & ", " & j
MyRow.Cells.Add(MyCell)
Next
Table1.Rows.Add(MyRow)
Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Adding Rows and Cells to an HTMLTable Control through Code</TITLE>
</HEAD>
<BODY LEFTMARGIN="40" TOPMARGIN="40">
<form runat="server">
<Table
id="Table1"
runat=server
>
</Table>
</Form>
</BODY>
</HTML>

</source>

==HTML Table Control (VB.net)==



<source lang="csharp">
<%@ Page Language=VB Debug=true %>
<script runat=server>
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Displaying Information through the HTMLTable Control</TITLE>
</HEAD>
<BODY>
<form runat="server">
<BR><BR>
<table
id="Table1"
runat=server
bgcolor="Gray"
border=1
bordercolor="Red"
cellpadding=2
cellspacing=2
align="Left"
>
<tr
id="Row11"
runat=server
bgcolor="Yellow"
valign="Top"
>
<TD id="Cell111" runat=Server>Cell 1</TD>
<TD id="Cell112" runat=Server
bgcolor="Pink">Cell 2</TD>
<TD id="Cell113" runat=Server>Cell 3</TD>
</tr>
<tr
id="Row12"
runat=server
valign="Bottom"
>
<TD id="Cell121" runat=Server>The second row</TD>
<TD id="Cell122" runat=Server
BGColor="Pink" Disabled=True>
Disabled Cell
</TD>
<TD id="Cell123" runat=Server>Cell 3</TD>
<TD id="Cell124" runat=Server Visible=False>
Should not see this cell
</TD>
</tr>
<tr
id="Row13"
runat=server
valign="Bottom"
>
<TD id="Cell131" runat=Server ColSpan=3>
The text of a long cell that spans all three columns.
</TD>
</tr>
</table>
</Font>
</Form>
</BODY>
</HTML>

</source>

==Table Row and Column Count (VB.net)==



<source lang="csharp">
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim MyRow as new HTMLTableRow
Dim MyCell as new HTMLTableCell
Dim i as Integer
Dim j as Integer
Table2.BGColor="Ivory"
Table2.Border=2
Table2.BorderColor="LawnGreen"
Table2.CellPadding=4
Table2.CellSpacing=3
Table2.Align="Center"
MyCell.InnerText = "Column 1"
MyRow.Cells.Add(MyCell)
MyCell = New HTMLTableCell
MyCell.InnerText = "Column 2"
MyRow.Cells.Add(MyCell)
Table2.Rows.Add(MyRow)
For i = 2 to 6
MyRow = New HTMLTableRow
For j = 1 to 2
MyCell = New HTMLTableCell
MyCell.InnerText = "Cell " & i & ", " & j
MyRow.Cells.Add(MyCell)
Next
Table2.Rows.Add(MyRow)
Next
End Sub
Sub Anchor1_Click(Source As Object, E as EventArgs)
Anchor1.InnerHtml = "Table 1: " & Table1.Rows.Count _
& " rows - Table 2: " & Table2.Rows.Count & " rows"
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Table Sample Page</TITLE>
</HEAD>
<BODY>
<form runat="server">
<Font Face="Tahoma" Size="+1">
<a
id="Anchor1"
OnServerClick="Anchor1_Click"
runat=server
>Click for Row Count
</a>
<BR><BR>
<Table
id="Table1"
runat=server
>
<TR
id="Row11"
runat=server
>
<TD id="Cell111" runat=Server>Cell 1</TD>
<TD id="Cell112" runat=Server BGColor="Pink">Cell 2</TD>
<TD id="Cell113" runat=Server>Cell 3</TD>
</TR>
<TR
id="Row12"
runat=server
>
<TD id="Cell121" runat=Server>The second row</TD>
<TD id="Cell122" runat=Server Disabled=True>
Disabled Cell
</TD>
<TD id="Cell123" runat=Server>Cell 3</TD>
<TD id="Cell124" runat=Server Visible=False>
Should not see this cell
</TD>
</TR>
<TR
id="Row13"
runat=server
>
<TD id="Cell131" runat=Server ColSpan=3>
The text of a long cell that spans all three columns.
</TD>
</TR>
</Table>

<BR><BR><BR><BR><BR>
<Table
id="Table2"
runat=server
>
</Table>
</Font>
</Form>
</BODY>
</HTML>

</source>

← Предыдущая	Версия 15:30, 26 мая 2010
(нет различий)

ASP.Net/HTML Control/Table - История изменений

в 15:30, 26 мая 2010

Admin: 1 версия