你好
我们这边刚得到厂商的回复,该问题是 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
页:
1
[2]