以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  现在多行文本框可以设定行间距吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83495)

--  作者:lhlh
--  发布时间:2016/4/11 10:16:00
--  现在多行文本框可以设定行间距吗?
现在多行文本框可以设定行间距吗?如果不行有什么变通方法吗?
--  作者:大红袍
--  发布时间:2016/4/11 10:19:00
--  

 不行,要用第三方控件

 

下载信息  [文件大小:336.0 KB  下载次数:7]
图片点击可在新窗口打开查看点击浏览该文件:设置控件间距例子.table


--  作者:lhlh
--  发布时间:2016/4/11 10:27:00
--  
好,一会看看,谢谢
--  作者:lhlh
--  发布时间:2016/4/13 18:53:00
--  

这个第三方控件可以设置边框样式和滚动条样式吗?

[此贴子已经被作者于2016/4/13 19:06:06编辑过]

--  作者:大红袍
--  发布时间:2016/4/13 19:36:00
--  

可以,如

 

rtxt.ScrollBars = 0 \'0、1、2


--  作者:lhlh
--  发布时间:2016/4/13 20:17:00
--  

控件的事件代码在什么地方写?直接在Panel1事件写代码不起作用。


--  作者:大红袍
--  发布时间:2016/4/13 20:19:00
--  
以下是引用lhlh在2016/4/13 20:17:00的发言:

控件的事件代码在什么地方写?直接在Panel1事件写代码不起作用。

 

要动态绑定事件了。2楼的例子,就动态绑定了一个TextChanged事件,代码写在【全局代码】【内部函数】那里。


--  作者:lhlh
--  发布时间:2016/4/13 20:53:00
--  

觉得深奥了,真的不会弄。

 

比如我在窗口AfterLoad事件中加了以下代码,隐藏了滚动条和边框:

rtxt.ScrollBars = 0

rtxt.BorderStyle = 0

 

现在想实现鼠标点击控件后,显示滚动条和边框,光标移开后又隐藏滚动条和边框,能帮改一下2楼的例子吗,谢谢

 

[此贴子已经被作者于2016/4/13 20:53:45编辑过]

--  作者:大红袍
--  发布时间:2016/4/13 20:58:00
--  

Dim mytxt = e.Form.Controls("Panel1").basecontrol.controls("mytxt")
mytxt.ScrollBars = 0
mytxt.BorderStyle = 0

 


--  作者:lhlh
--  发布时间:2016/4/14 2:49:00
--  

学习了教程中的”为第三方控件定义事件过程“,总算明白了一些。还有个问题,用第三方多行控件,边框用mytxt.BorderStyle = 0 为None,mytxt.BorderStyle = 1、2 都是 Fixed3D,我想单实线显示(FixedSingle),怎么设置?