主题：[求助]如何实现像word一样文字图片混编

现在客户希望做一个备忘录，内容输入时要求能写文字还要能插入本地图片，请大神给点提示，如何实现？

这个例子中的图片，如何增加本地图片？现在这个都是网络图片。

图片上传窗口调出来后，在哪里改上传位置，比如我的ftp服务器是ftp://192.168.1.123/excel/ft/grbq/用户名kkk,密码555端品669

此主题相关图片如下：qq截图20161213102421.png

在哪里可以设置点上传后，图片复制到本地E:\temp文件夹下，并让这里显示，我在最后保存时把临时文件夹里的图片传ftp，点击预览时，把需要的图片从ftp取到E:\temp下。

整了一天了，也没有整明白了，希望论坛大神能给个例子学习下。

我就是想用2楼这个例子，但2楼这个例子用的图片都是网络图片，我这里要本地上传图片。希望版主能配置一下KindEditor，让点上传时，传到本地固定的一个文件夹，最好是项目文件夹下建一个temp中，到这里后，后面都可以用狐表的知识来解决了（狐表还能自己搞搞，前面是抓瞎啊）。或者能教一下，“窗口做个按钮，先把图片复制到本地E:\temp文件夹下，然后再在网页里添加图片 ”，这里往网页里添加图片是如何实现的，这个网页还是刚KindEditor下的网页哪，还是又建的啥东西？

直接这样输入后面没办法管理了。每行数据是一个文件夹存放图片附件等信息的。KindEditor会把图片路径名称等写进去，如果是一个固定的临时文件夹，每次我只需要把文件下载到这个临时文件夹就可以了，选择其它时，把这个临时文件夹清空，这样不会造成图片太多的问题。

总算是实现了吧。，“窗口做个按钮，先把图片复制到本地E:\temp文件夹下，然后再在网页里添加图片 ”

此主题相关图片如下：qq图片20161214150221.png


此主题相关图片如下：qq图片20161214150229.png

插入本地图片代码如下

Tables(e.Form.TableName).current("说明") = EditorHelper.BodyHtml
'******复制新文件*********
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图片文件|*.bmp;*.jpg;*.gif;*.png;*.jpeg;*.tiff" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    '*****判断ftbqtemp临时目录是否存在
    If FileSys.DirectoryExists(ProjectPath & "\FTbqtemp") = False Then '如果目录不存在
        FileSys.CreateDirectory(ProjectPath & "\FTbqtemp")  '则创建
    End If
    '**********复制并重命名文件*********
    Dim wjm As String = "WYT" & CStr(Tables(e.Form.TableName).current.DataRow("_Identify"))
    wjm = wjm & CStr(FileSys.GetFiles(ProjectPath & "\FTbqtemp").Count + 1)
    Dim ifo As new FileInfo(dlg.FileName)
    Dim xdlj As String = "../FTbqtemp/" & wjm & ifo.Extension
    wjm = ProjectPath & "FTbqtemp\" & wjm & ifo.Extension
    FileSys.CopyFile(dlg.FileName,wjm,True)
    '********调用html编辑器***********
    Dim webBrowser As Object = e.Form.Controls("WebBrowser1").basecontrol
    webBrowser.Url = new System.Uri(ProjectPath & "kindeditor\e.html", System.UriKind.Absolute)
    EditorHelper = new ObjectForScriptingHelper
    webBrowser.ObjectForScripting = EditorHelper
    '修改html内容
    With Tables(e.Form.TableName)
        .Current("说明") = .Current("说明") & "<img alt="""" src=""" & xdlj & """ /><p>"
        EditorHelper.RequestContent( .current("说明"))
        e.Form.Controls("titles").value=.current("标题")
    End With
End If

其它的就是FTP操作了。上传下载。