62,046
社区成员
发帖
与我相关
我的任务
分享
Dim icatbtn As Button = New Button()
icatbtn.CssClass = "icatitem"
icatbtn.Text = oRs.Rows(iCtr).Item("Caption")
icatbtn.ID = oRs.Rows(iCtr).Item("ID")
categorybutton.Controls.Add(icatbtn)
AddHandler icatbtn.Click, AddressOf btnCat_Click
<input type="submit" name="1" value="清银幕 CLEAR" id="1" class="icatitem" style="color:#000000;background-color:#FFFFFF;" />
sbtnID = "btnCat" & oRs.Rows(iCtr).Item("ID")
sCmd = "<asp:Button ID=""" & sbtnID & """"
'sCmd = " <div "
sCmd = sCmd & " class=""icatitem"" "
sCmd = sCmd & " style="""
If oRs.Rows(iCtr).Item("ButtonVisible") = 0 Then
sCmd = sCmd & " visibility:hidden;"
End If
sCmd = sCmd & "font-size:" & oRs.Rows(iCtr).Item("fontsize") & "px;"
sCmd = sCmd & "font-family:" & oRs.Rows(iCtr).Item("fontname") & ";"
sCmd = sCmd & "color:#" & Color.FromArgb(oRs.Rows(iCtr).Item("forecolor")).Name & ";"
sCmd = sCmd & "background-color:#"
sCmd = sCmd & Color.FromArgb(oRs.Rows(iCtr).Item("backcolor")).Name & ";"
sCmd = sCmd & "box-shadow:3px 3px 3px #"
sCmd = sCmd & Color.FromArgb(oRs.Rows(iCtr).Item("GradientColor")).Name & ";"
sCmd = sCmd & """ runat=""server"" /> """
'sCmd = sCmd & oRs.Rows(iCtr).Item("Caption")
'sCmd = sCmd & " </asp:button>"
Dim div_cat As HtmlGenericControl = New HtmlGenericControl("div")
div_cat.InnerHtml = sCmd
categorybutton.Controls.Add(div_cat)
这样拼接字符,没有ONCLICK事件