Dim a As New Button
a.id="aa"
a.Visible = True
a.Text = "asdfasdf"
a.Attributes("onclick") = "javascript:alert('Hello! Focus lost from ‘)“
Panel1.Controls.Add(a)这是一个办法,等我在告诉你第二个办法
a.id="aa"
a.Visible = True
a.Text = "asdfasdf"
a.Attributes("onclick") = "javascript:alert('Hello! Focus lost from ‘)“
Panel1.Controls.Add(a)这是一个办法,等我在告诉你第二个办法
btnDelete.ID = "delete_" & sDocName
btnDelete.ToolTip = "刪除"
btnDelete.ImageUrl = "image/imgDelete.bmp"
btnDelete.Attributes.Add("docpath", oResult(i, 0))
btnDelete.Attributes.Add("status", oResult(i, 1))
AddHandler btnDelete.Click, AddressOf linkDelete_ClicklinkDelete_Click Events是你老早以前就寫好的...