- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求救·~~ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50183)
-- 发布时间：2014/4/30 17:52:00
-- 求救·~~
以下设置的HTML，只要到审核阶段，审核人一审批，HTML就锁定，导致不能看全全部的文字内容，请老师给予解决~~
例子以上，请查看~~
此主题相关图片如下：360截图20140430151548812.jpg
此主题相关图片如下：360截图20140430151543359.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目106.rar |
-- 发布时间：2014/4/30 17:56:00
--
打不开, 开发者是哪个? 密码是多少?
-- 发布时间：2014/4/30 18:06:00
--
密码是000054
-- 发布时间：2014/4/30 18:09:00
--
老师，很急啊，市场人员都在用了~~发现这个问题，他们都查看不了自己写的内容，我这次，问题大了~~
-- 发布时间：2014/4/30 18:31:00
--
以什么用户名登录？网页也没显示数据，把审核列清空了或者没清空，浏览器控件都没锁定啊。
-- 发布时间：2014/4/30 18:50:00
--
方案一：以 个案申请 为例子
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
-- 发布时间：2014/4/30 18:53:00
--
方案二：简单一点，注释掉一句代码就好。
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
-- 发布时间：2014/4/30 19:13:00
--
在浏览器控件上面，加一个多行文本框，停靠：Fill
浏览器不锁定。
如果审核为空，浏览器在上，显示内容；
如果审核不为空，文本框在上，显示内容，只读：BooleanEnum.True
这样，利用了多行文本框既能滚动，又不能编辑的特性。
-- 发布时间：2014/4/30 22:32:00
--
谢谢老师，我已经完成了~~感谢，感谢~~
-- 发布时间：2014/5/5 19:48:00
--
老师这样的情况，已经实现录入HTML能否下拉看文件，但是用户可以复制里面的内容，我需要达到另外一个目的就是，禁止用户复制内容，那我要如何实现呢？？？