登录/注册

首页 › 其他产品专区 › TX TextControl › 查看内容

2750
金币
24
主题
89
帖子

最新发帖

[已处理] TX ActiveX 加载内容过长报错

ZenosZeng
超级版主 / 发表于：2013-7-25 11:45:00 11^#

回复 1楼好难注册的帖子

你好

我们这边刚得到厂商的回复，该问题是 TX Text Control ActiveX 产品的一个使用限制，现在能够提供的解决方案是在每次加载完一个文件之后插入一个空行，并在文件加载完成之后设置插入空行的行高为 1

代码如下:

Private lines(60) As Long
Private Sub mnuInsertFile_Click()
TXTextControl1.ResetContents
Dim index As Long
For i = 1 To 59 Step 1
FileName = App.Path + "\data\" + CStr(i) + ".txw"
Me.TXTextControl1.Load FileName, 2, 3, True
// 插入空行
Me.TXTextControl1.SectionInsert txBeginAtNewLine, -1
// 纪录空行的位置
lines(i) = Me.TXTextControl1.SelStart
Next
// 调整空行的高度
For i = 1 To 60 Step 1
Me.TXTextControl1.SelStart = lines(i) - 1
Me.TXTextControl1.SelLength = 1
Me.TXTextControl1.FormatSelection = True
Me.TXTextControl1.FontSize = 1
Next
Me.TXTextControl1.Save App.Path + "\data\" + "\combine.tx", 0, 8
End Sub

复制代码

回复 使用道具举报

12 / 2 页