主题：[求助]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

老师，假如项目里需要多组上述窗口，窗口和表的事件相应更改后，自定义函数  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

有点色大师，有点问题：

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

大师，仍然存在下列问题：
1、在div中可以分段了，但是数据表的单元格中出现了分段符号<p>,</p>；
2、第二个问题没有变化：目录树定位div后，在WebBrowser窗口不能切换div，就是点击目录树节点后，右侧对应的div焦点被固定了，点击其他div，都会马上回到目录树节点确定的div上；

因此，能否让div出现焦点框的代码，不与目录树节点关联，而与当前单元格关联。（现在的情况是：div与单元格是关联的，但点击单元格，对应的div并不出现焦点框）