主题：求救·~~

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

 

例子以上，请查看~~

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


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

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

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

打不开, 开发者是哪个? 密码是多少?

密码是000054

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

以什么用户名登录？网页也没显示数据，把审核列清空了或者没清空，浏览器控件都没锁定啊。

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

 

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

For Each s As String In "Button1|Button3|Button4|Button6|Button7|Button8|Button9|Button10|Button11|DateTimePicker1|DateTimePicker2|DateTimePicker3|TextBox2|TextBox4|TextBox5|TextBox6|GroupBox5|GroupBox6|GroupBox7|TextBox3|DateTimePicker4|Button01|Button02|GroupBox2".Split("|")
    e.Form.Controls(s).Enabled = Tables("个案申请").current.IsNull("审核")

Next
For Each s As String In "Button1|Button3|Button4|TextBox4".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "区域主管")
Next
For Each s As String In "Button6|Button7|DateTimePicker2|TextBox5|GroupBox5".Split("|")
    e.Form.Controls(s).Enabled = (User.roles = "个案拆分")
Next
For Each s As String In "Button8|Button9|DateTimePicker3|TextBox6|GroupBox6".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "行销部主管")
Next
For Each s As String In "Button10|Button11|DateTimePicker1|TextBox2|GroupBox7".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "行销部经理")
Next
For Each s As String In "TextBox3|DateTimePicker4|Button01|Button02|GroupBox2".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "Boss")
Next

 

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

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

 

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

在浏览器控件上面，加一个多行文本框，停靠：Fill

浏览器不锁定。

 

如果审核为空，浏览器在上，显示内容；

如果审核不为空，文本框在上，显示内容，只读：BooleanEnum.True

 

这样，利用了多行文本框既能滚动，又不能编辑的特性。

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

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