主题：求救·~~

以下设置的HTML，只要到审核阶段，审核人一审批，HTML就锁定，导致不能看全全部的文字内容，请老师给予解决~~

 

例子以上，请查看~~

此主题相关图片如下：360截图20140430151548812.jpg


此主题相关图片如下：360截图20140430151543359.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目106.rar

密码是000054

 老师，很急啊，市场人员都在用了~~发现这个问题，他们都查看不了自己写的内容，我这次，问题大了~~

谢谢老师，我已经完成了~~感谢，感谢~~

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

现在TIMECLICK代码是：

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

 

 

 

 

 

现在改成:

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

 

If ClipBoard.ContainsText Then
    Dim s As String = ClipBoard.GetText()
    Clear

End If

 

 

以上代码是否正确吖~~

老师在不，这事情很急，能否帮我处理一下线~~

老师是这样吗？？

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
ClipBoard.Clear

老师，这次问题大了，软件出现一个文件，就是如果清空剪切板，录入人员就无法从WORD复制文件过来了~~

 

操作此项任务的角色是ROLES 日常事务，那代码应该如何改？？

 

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
ClipBoard.Clear

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

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

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

 

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