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
博客展示了一段ASP.NET代码,创建了一个自定义控件。代码中导入相关命名空间,定义了一个继承自Control的类。在CreateChildControls方法里,创建了一个表格,设置其背景图片和宽度,添加行和单元格,最后在单元格中添加图片并设置样式。
2370

被折叠的 条评论
为什么被折叠?



