Asp.net中动态移动图片的自定义控件代码

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