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)这是一个办法,等我在告诉你第二个办法

解决方案 »

  1.   

    a.onclick += ....(编译器会给你提示,按tab就生成了,c#是这样,你试一下)
      

  2.   

    Dim btnDelete As ImageButton = New ImageButton 
    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是你老早以前就寫好的...