求救·~~ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

方案一：以个案申请为例子

afterload 代码

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
'web.OfficeToolBar = True
web.Address = ProjectPath & "kindeditor\e.html"
If Tables("个案申请").current IsNot Nothing Then
    If Tables("个案申请").current.IsNull("审核") = False Then
        Do until e.form.controls("WebBrowser1").basecontrol.ReadyState = 4
            Application.DoEvents
        Loop
        Dim editor As Object = e.form.controls("WebBrowser1").basecontrol.Document.GetElementsByTagName("div")(0)
        editor.InnerHtml = "<div id='mymask' style='position:absolute;width:100%;height:100%;z-index:99999'></div>" & editor.InnerHtml
    End If

    Vars("编辑器校验")=0
    e.Form.Controls("TextBox1").text = Tables("个案申请").current("内容")
    e.Form.TimerEnabled = True
    e.Form.TimerInterval = 500
End If

TimerTick代码

If e.form.ExistControl("WebBrowser1") Then
    If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
        If Vars("编辑器校验")=0 Then
            If Tables("个案申请").current IsNot Nothing Then
                e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")
            End If

            Vars("编辑器校验")=1
        Else If Vars("编辑器校验")=2 Then
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = ""
            Vars("编辑器校验")=1
        End If
        e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml
    End If
End If

[此贴子已经被作者于2014-4-30 18:54:54编辑过]

方案二：简单一点，注释掉一句代码就好。

If e.form.ExistControl("WebBrowser1") Then
    If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then
        If Vars("编辑器校验")=0 Then
            If Tables("个案申请").current IsNot Nothing Then
                'e.form.controls("WebBrowser1").Enabled = Tables("个案申请").current.IsNull("审核")
                e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("个案申请").current("内容")
            End If
            Vars("编辑器校验")=1
        Else If Vars("编辑器校验")=2 Then
            e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = ""
            Vars("编辑器校验")=1
        End If
        e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml
    End If
End If

以下是引用wealthwind在2014-5-5 19:48:00的发言：
老师这样的情况，已经实现录入HTML能否下拉看文件，但是用户可以复制里面的内容，我需要达到另外一个目的就是，禁止用户复制内容，那我要如何实现呢？？？

测试了一下，好像是无法控制的。如果要控制，改动代码过多。

你变通一下处理吧。打开这个窗口的时候，在计时器那里，定期把剪切板里面的内容清空，便可。

http://www.foxtable.com/help/topics/2069.htm

以下是引用wealthwind在2014-5-5 20:31:00的发言：
老师在不，这事情很急，能否帮我处理一下线~~

呃，得进步吧？

直接写就行 ClipBoard.Clear

嗯嗯，你测试便知

以下是引用wealthwind在2014-5-6 15:32:00的发言：

有没有方法，清空剪切板，仅限于项目本身，而不影响到其他软件；需要解决的问题是：

1.清空剪切板，仅限于非录入员；

2.全部用户，仅仅是在项目内清空剪切板，而不要影响到其他软件。。

现在问题是，只要项目打开，其他软件的剪切板就无法使用。。。。

呃.....自己变通一下吧。

计时器里面加入判断：如果是已经审核的行，就清空剪切板，其它情况不清空便可。

用类似代码，再加一句，你得学习和进步。

Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing AndAlso frm.Name = e.Form.name Then
    If Tables("xxx").Current IsNot Nothing AndAlso Tables("xxx").Current.Isnull("审核") = False Then
        ClipBoard.Clear
    End If
End If

回复21楼，用20楼的代码试一下，应该不会影响的。

测试不成功再发问。

以下是引用wealthwind在2014-5-6 16:47:00的发言：
老师还是老问题，有没一个现成的包，是kindeditor，可以插入图片的。。。。嘻嘻~~学生想拿来急用~~~~~

插入图片的问题，很简单的，你做一个按钮，写不多于10行代码就行。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=50376&skin=0

主题：求救·~~