主题：[求助]div模拟textarea文本域

参考：http://www.zhangxinxu.com/wordpress/2010/12/div-textarea-height-auto/

存在问题：

1、怎样把网页中不同的div标签绑定到表A的不同列；
2、网页文件在360、火狐等浏览器中可以显示div焦点框，在狐表的WebBrowser控件、ie浏览器中不能显示div焦点框；见下图（360浏览器显示有焦点框）
3、文本行高代码 line-height:30px 没起作用；

请有点色大师帮助！谢谢！

此主题相关图片如下：image 4.jpg

附件：

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

点击浏览该文件:div模拟textarea文本域.rar

mark js交互

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

点击浏览该文件:div模拟textarea文本域.zip

老师，假如项目里需要多组上述窗口，窗口和表的事件相应更改后，自定义函数  setCurrentValue，直接这样增加行不行？

另外，当打开的窗口和对应的表不一致时（比如，打开窗口后切换了当前表），容易出错，是不是与自定义函数没改对有关？怎样避免？

Dim str As String = args(0)

Dim cname As String = args(1)

Tables("表A").Current(cname) = str

Tables("表B").Current(cname) = str

Tables("表C").Current(cname) = str

附件：

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

点击浏览该文件:div模拟textarea文本域11.zip

 你可以把表名也传递进来。

 看懂例子的意思，自行修改，就是简单的相互调用。

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

点击浏览该文件:js与webbrowser交互.rar

有点色大师，有点问题：

1、在窗口WebBrowser控件中回车不能分段，在浏览器中可以。

2、点击左边的目录树定位列，DIV希望出现焦点框；

3、另外，我设置了两个窗口，对应打开1.htm、2.htm、3.htm以及表A、表B;

4、自定义函数如下，不知道怎样把表名、窗口名传递，请指教：

Dim str As String = args(0)
Dim cname As String = args(1)
'Dim tname As String = args(2)    '表名
'Dim fname As String = args(3)    '窗口名
'Tables("表A").Current(cname) = str

Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
Dim fname As String = frm.Name

Select Case fname
    Case "窗口A"
        Tables("表A").Current(cname) = str
    Case "窗口B"
        Tables("表B").Current(cname) = str
    Case "窗口C"
        Tables("表C").Current(cname) = str
End Select
End If

 
此主题相关图片如下：gif.gif

附件：

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

点击浏览该文件:div模拟textarea文本域0.rar

谢谢大师！

还有两个小问题：

1、在窗口WebBrowser控件中回车不能分段，在浏览器中可以，不知哪里的原因。见上楼图

2、点击左边的目录树定位列，DIV希望出现焦点框；

 
此主题相关图片如下：gif.gif

附件：

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

点击浏览该文件:div模拟textarea文本域0.rar

大师，仍然存在下列问题：
1、回车分行时，多产生一个空行，并且产生的新段落不能缩进2个字符；
2、目录树定位div后，在WebBrowser窗口不能切换div。能否div的焦点框与当前单元格关联，不与目录树节点关联。

此主题相关图片如下：gif.gif

附件：

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

点击浏览该文件:div模拟textarea文本域01.rar