如何往 DHTMLEdit 控件中插入 FLASH 文件。

Question

建立过程：Public Function AddControls(HTML_Src As String, Ctrl_Src As String) As String
HTML_Src = FilteSpace(HTML_Src)
Dim Pos As Integer
Pos = InStr(LCase(HTML_Src), "<body")
If Pos = 0 Then AddControls = HTML_Src: Exit Function
Pos = InStr(Pos + 1, HTML_Src, ">") + 1
AddControls = Mid(HTML_Src, 1, Pos - 1) + Ctrl_Src + Mid(HTML_Src, Pos)
End Function另一下内容放入道资源文件中
<OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
 CODEBASE="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
 ID="Logo" WIDTH="299" HEIGHT="100">
 <PARAM NAME=movie VALUE="%file%">
 <PARAM NAME=quality VALUE=high>
 <PARAM NAME=bgcolor VALUE=#ffffff>
<EMBED SRC="Logo.swf" QUALITY=high BGCOLOR=#ffffff WIDTH="299" HEIGHT="100" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"> </EMBED>
</OBJECT>
一下过程添加Ｆｌａｓｈ
function add_flash(filename as string,html_source as string) as string
dim str as string
str=loadresstring(101)
str=replace(str,"%file%",filename)
str=AddControls(html_source,str)
add_flash=str
end function
addflash的返回值就是修改过的ＨＴＭＬ源代码，用法ａｄｄ＿ｆｌａｓｈ（文件名，ＨＴＭＬ源）
可以给分了吧

Answer 1

对不起刚才的程序有一点问题Public Function AddControls(HTML_Src As String, Ctrl_Src As String) As String
HTML_Src = FilteSpace(HTML_Src)
Dim Pos As Integer
Pos = InStr(LCase(HTML_Src), "<body")
If Pos = 0 Then AddControls = HTML_Src: Exit Function
Pos = InStr(Pos + 1, HTML_Src, ">") + 1
AddControls = Mid(HTML_Src, 1, Pos - 1) + Ctrl_Src + Mid(HTML_Src, Pos)
End Function另一下内容放入道资源文件中
<OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
CODEBASE="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
ID="Logo" WIDTH="299" HEIGHT="100">
<PARAM NAME=movie VALUE="%file%">
<PARAM NAME=quality VALUE=high>
<PARAM NAME=bgcolor VALUE=#ffffff>
<EMBED SRC="%file%" QUALITY=high BGCOLOR=#ffffff WIDTH="299" HEIGHT="100" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"> </EMBED>
</OBJECT>
一下过程添加Ｆｌａｓｈ
function add_flash(filename as string,html_source as string) as string
dim str as string
str=loadresstring(101)
do while instr(str,"%file%")
str=replace(str,"%file%",filename)
loop
str=AddControls(html_source,str)
add_flash=str
end function
addflash的返回值就是修改过的ＨＴＭＬ源代码，用法ａｄｄ＿ｆｌａｓｈ（文件名，ＨＴＭＬ源）
可以给分了吧