以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何设置成制度  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178074)

--  作者:min-fox
--  发布时间:2022/6/16 17:32:00
--  如何设置成制度
蓝老师:这段代码是在论坛里找到的,目的是能自动行间距。把显示的内容,限制成只读的?
Dim rtxt As New System.Windows.Forms.RichTextBox
UtilsSetLineSpace.SetLineSpace(rtxt, 400)
rtxt.name = "mytxt"
rtxt.Dock = 5
e.Form.Controls("Panel1").BaseControl.Controls.Add(rtxt)
rtxt.Multiline = True
rtxt.Text = Tables("表A").Current("第一列")
addhandler rtxt.TextChanged, addressof mytxt_TextChanged

--  作者:有点蓝
--  发布时间:2022/6/16 17:35:00
--  
rtxt.ReadOnly=true

https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.textboxbase.readonly?view=netframework-4.0