|
Ejemplo 2: Inserción de filas y celdas en un control HTMLTable a través de codigo
Ademas de definir las filas y celdas de un control HTMLTable directamente obre el formulario de la página, se puede añadir filas y celdas directamente desde este código.
Código: Hola Mundo en ASP
<%@ Page Language="VB" ContentType="text/html"
ResponseEncoding="iso-8859-1" %>
<script runat="server">
Sub Page_Load(ByVal Sender as Object, E as EventArgs)
Dim MIFila as new HTMLTableRow
Dim MiCelda as new HTMLTableCell
Dim i as integer
Dim j as integer
Tabla1.BGcolor="Ivory"
Tabla1.Border=2
Tabla1.BorderColor="LawGreen"
Tabla1.CellPadding=4
Tabla1.CellSpacing=3
Tabla1.Align="Center"
MiCelda.InnerText = "Columna 1"
MiFila.Cells.Add(MiCelda)
MiCelda =New HTMLTableCell
MiCelda.InnerText =" Columna 2"
MiFila.Cells.Add(MiCelda)
Tabla1.Rows.Add(MiFila)
For i =2 to 6
MiFila = New HTMLTableRow
For j=1 to 2
Next
MiCelda = New HTMLTableCell
MiCelda.InnerText="Celda "& i & " ," &
j
MiFila.Cells.Add(MiCelda)
Next
End Sub
</script>
<html>
<head>
<title>Documento sin título</title>
</head>
<body bgcolor="#FFFFFF">
<form runat="server">
<table id="Tabla1" runat="server"></table>
<table id="TableCell" runat="server"></table>
</form>
</body>
</html>
