想要在一个 TX 文本控件中收集所有字段的数据并在 VB6 中保存到文件答案

【问题标题】：Want to collect data from all fields in one TX Text Control and save to file in VB6想要在一个 TX 文本控件中收集所有字段的数据并在 VB6 中保存到文件
【发布时间】：2014-03-31 14:41:45
【问题描述】：

我正在使用这样的代码将 TX 的内容存储到数据库中：

Dim ba() As Byte
Dim FlValue As String

ba = MyTX001.SaveToMemory(5, 0)
FlValue = StrConv(ba, vbUnicode)
MyRS.Fields("mtd001").Value = FlValue

ba = MyTX002.SaveToMemory(5, 0)
FlValue = StrConv(ba, vbUnicode)
MyRS.Fields("mtd002").Value = FlValue

现在我想将存储在不同字段中的所有数据检索到一个单独的 TX 控件（在一个两列表中），然后将其保存到文件中。我使用的代码是这样的：

Dim ba() As Byte
Dim RowNum As Long

txTemp.ResetContents
ba = StrConv(MyRS.Fields("mtd001").Value, vbFromUnicode)
txTemp.LoadFromMemory ba, 5, 0
txTemp.SelStart = 0
txTemp.SelLength = -1 'Select all contents

txFinalOutput.TableCellText(CurTableID, RowNum, 2) = txTemp.RTFSelText

txFinalOutput.TableInsertLines txTableInsertAfter, 1  'Add a new Row
RowNum = RowNum + 1


txTemp.ResetContents
ba = StrConv(MyRS.Fields("mtd002").Value, vbFromUnicode)
txTemp.LoadFromMemory ba, 5, 0
txTemp.SelStart = 0
txTemp.SelLength = -1 'Select all contents

txFinalOutput.TableCellText(CurTableID, RowNum, 2) = txTemp.RTFSelText

但这是从 DB 插入内容作为 RTF 文本/符号而不是实际内容。

Link to file that TX TextControl is outputting.

请帮忙解决这个问题。

【问题讨论】：

标签： vb6

【解决方案1】：

A.你应该告诉我们什么是 tx。是 RichEdit 控件吗？属性与 TOM 或 RTF 控件不匹配。

如果是这样，它看起来像。查看您指定 rtf 的最后一行。

【讨论】：

TX 是 TX 文本控制第三方 ActiveX

【解决方案2】：

对于 RichTextBox 控件，您可以指定数据是纯文本还是包含 rtf 控制字符

RichTextBox1.LoadFile strFile, rtfRTF

看看MSDN documentation

【讨论】：

这不是一个简单的 RTF 控件。它是一个专门的文字处理控件，称为 TX TextControl。我不是从文件中加载文本，而是从 DB 表中的字段加载文本。
啊，抱歉我不知道那个控件。恐怕我帮不了你。对不起。