以文本方式查看主题 - 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
|