Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim mybutton As ToolbarButton = New ToolbarButton("笑脸:)", "01", "FTB_Verse")
FreeTextBox1.Toolbars.Add(boolbar1)
End Sub
Public Function freescr(ByVal descript As String, ByVal image As String, ByVal script As String) As ToolbarButton
Dim mybutton As ToolbarButton = New ToolbarButton(descript, image, script)
Dim s As String
s = "<script language=""JavaScript"">" + vbCrLf + _
"function " & script & "(editor,htmlmode) {" + vbCrLf + _
" editor.focus();" + vbCrLf + _
" sel = editor.document.selection.createRange();" + vbCrLf + _
" sel.pasteHTML(""<img src=../face/" & image & ".gif> "");" + vbCrLf + _
"}" + vbCrLf + _
"</script>"
mybutton.ScriptBlock = s
Return mybutton
End Function