ASP.Net/HTML Control/Table

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

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">
<a 

   id="Anchor2"
   OnServerClick="Anchor2_Click" 
   runat=server

>Click here to remove Table 1 </a>

Cell 1 Cell 2 Cell 3
The second row 
           Disabled Cell
Cell 3 
           Should not see this cell

           The text of a long cell that spans all three columns.






</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">

</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">

</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">

</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">

</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">

Cell 1 Cell 2 Cell 3
The second row 
           Disabled Cell
Cell 3 
           Should not see this cell

           The text of a long cell that spans all three columns.

</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"> <a 

   id="Anchor1"
   OnServerClick="Anchor1_Click" 
   runat=server

>Click for Row Count </a>

Cell 1 Cell 2 Cell 3
The second row 
           Disabled Cell
Cell 3 
           Should not see this cell

           The text of a long cell that spans all three columns.






</Form> </BODY> </HTML> 


      </source>
Источник — «http://nfex.ru/index.php?title=ASP.Net/HTML_Control/Table&oldid=2382»