ASP.Net/HTML Control/Table

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Hide a table (VB.net)

<%@ 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>



HTML Table: add row (VB.net)

<%@ 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>



HTML Table: change background (VB.net)

<%@ 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>



HTML Table: change border (VB.net)

<%@ 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>



HTML Table: change cell padding (VB.net)

<%@ 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>



HTML Table Control (VB.net)

<%@ 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>



Table Row and Column Count (VB.net)

<%@ 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>
Источник — «http://nfex.ru/index.php?title=ASP.Net/HTML_Control/Table&oldid=2382»