Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web
Public Class WebCustomControl1 : Inherits Control : Implements INamingContainer
Protected Overrides Sub CreateChildControls()
Dim table1 As New Table
Dim src As String
src = "C:/11.jpg"
Dim x As String
Dim s As Integer
s = 200 '根据s的值确定图片与左边的距离
Me.Controls.Add(table1)
table1.Attributes.Add("background", src)
table1.Attributes.Add("width", "1000")
Dim row1 As New TableRow
table1.Rows.Add(row1)
Dim cell1 As New TableCell
row1.Cells.Add(cell1)
Dim img As New Image
cell1.Controls.Add(img)
img.ImageUrl = "http://www.csdn.net/images/csdn.gif"
'img.Style = "position:relative;left:100;"
x = "position:relative;left:" & s & ";"
img.Attributes.Add("style", x)
End Sub
End Class