asked on
Dim m_htmltable As New HtmlTable
Dim m_htmlRow As New HtmlTableRow
Dim m_htmlcell As New HtmlTableCell
m_htmltable.Rows.Add(m_htmlRow)
m_htmlRow.Cells.Add(m_htmlcell)
m_htmlcell.Attributes.Add("width", "auto")
m_htmlcell.Attributes.Add("height", "22px")
m_htmlcell.Attributes.Add("white-space", "nowrap")
m_htmlcell.Attributes.Add("class", "textBoxStyle_NoBorder")
m_htmlcell.Attributes.Add("text-align", "center")
m_htmlcell.BgColor = "#ECF5FF"
Dim createDiv As New System.Web.UI.HtmlControls.HtmlGenericControl("DIV") 'create div element with the below styles:Style = "display: inline-block ; white-space: nowrap;"
createDiv.ID = "createDiv"
createDiv.Style("display") = "inline-block"
createDiv.Style("white-space") = "nowrap"
Dim img As New ImageButton()
img.ImageUrl = "../../Images/NewIcons/deleteline_Dis_Icon.png"
img.CommandName = "image_clicked"
img.CommandArgument = m_htmlcell & ";" & FileNat & ";" & FileNumber & ";" & FileName
img.Width = "15"
img.Height = "15"
img.Attributes("display") = "inline"
img.Attributes("vertical-align") = "middle"
img.Attributes("cursor") = "pointer"
img.Attributes("vertical-align") = "middle"
AddHandler img.Command, AddressOf img_Click
Dim CellNbre As String = m_htmlRow.Cells.Count
Dim File_Link As New HyperLink
File_Link.Target = "_blank"
File_Link.ForeColor = System.Drawing.Color.Black
File_Link.Text = FileName.Replace(" ", "")
File_Link.NavigateUrl = FileLink
m_htmlcell.Controls.Add(img) '// append DIV to the table cell
m_htmlcell.Controls.Add(File_Link)
createDiv.Controls.Add(m_htmltable)
Protected Sub img_Click(ByVal sender As Object, ByVal e As CommandEventArgs)
m_htmlcell.Style("display") = "none"