- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- RichTextBox控件问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80313)
-- 发布时间：2016/1/20 15:51:00
-- RichTextBox控件问题
更加灵活的文本编辑我想加入到软件中，这就会用到象RichTextBox这样的控件，目前的2016版本好象还没有集成进去，记得论坛中看到过狐爸说下一步要更新软件中的控件，不知道是不是正在将这样的控件集成进去，如果有的话，我就再等一等，
-- 发布时间：2016/1/20 16:36:00
--
还是自食其力吧，下次更新还不知道是什么时候呢。
Dim rtxt As New Windows.Forms.RichTextBox
rtxt.Name = "myTextBox"
e.Form.Controls("Panel1").BaseControl.Controls.Add(rtxt)
-- 发布时间：2016/2/22 15:50:00
--
想请教老师：
1、创建的控件，用rtxt.LoadFile("C:\\111.rtf")调用rtf文件后，字体等格式显示不出来，不知道是何原因？
2、想用这个控件做一件文字编辑工作，当然相对word要简单一些，有关对这个控件的属性及方法文档，可以帮助发一个链接吗？
-- 发布时间：2016/2/22 15:54:00
--
1、http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=79585&skin=0
2、https://msdn.microsoft.com/zh-cn/library/system.windows.forms.richtextbox(v=vs.110).aspx
-- 发布时间：2016/2/22 16:05:00
--
rtxt.LoadFile("C:\\111.rtf",System.Windows.Forms.RichTextBoxStreamType.RichText)
这样吗？但是依然如故呀！
-- 发布时间：2016/2/22 16:22:00
--
测试，没问题，字体等格式可以弄进来。
-- 发布时间：2016/2/22 17:49:00
--
\'\'增加RichTextBox控件
Dim rtxt As New Windows.Forms.RichTextBox
rtxt.Name = "rtBox"
Forms("主窗体").Controls("审计说明").Visible=False
rtxt.Dock = Windows.Forms.DockStyle.Fill
rtxt.LoadFile("C:\\111.rtf",System.Windows.Forms.RichTextBoxStreamType.RichText)
Forms("主窗体").Controls("审计说明面板").Panel1.BaseControl.Controls.Add(rtxt)
以上是代码，确实字体字号未能显示出来，可能是哪方面的原因呢？
[此贴子已经被作者于2016/2/22 17:50:34编辑过]
-- 发布时间：2016/2/22 18:44:00
--
把rtf文件和做个例子发上来测试，代码我测试确实没问题。
-- 发布时间：2016/2/23 1:23:00
--
此主题相关图片如下：qq图片20160223012030.png
Dim ct As Windows.Forms.RichTextBox
ct = e.Form.Controls("SplitContainer2").Panel1.BaseControl.Controls("Ric")
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
ct.LoadFile(dlg.FileName,System.Windows.Forms.RichTextBoxStreamType.RichText) \'保存原格式
End If
我测试这句话代码是没问题的
[此贴子已经被作者于2016/2/23 1:28:24编辑过]
-- 发布时间：2016/2/23 10:22:00
--
打开文件后，文本的格式都与第一个字符的格式一个样，而不是各自的格式。