将要在点矩阵打印机上打印的VB6代码迁移到VB.Net

Question

我有要在点矩阵打印机上打印的VB6代码。它工作得很好，但是现在我想升级到VB.net。如何使相同的打印代码适应VB.net？

Answer 1

您将不得不修改一些代码，但是其中很大一部分应该可以在VB.net中轻松地工作。

首先要替换您要打开的StreamWriter文件：

Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("output.txt", True)

然后，将所有在Print #1之后的所有内容放入Print #1,中，而不是所有这些file.WriteLine( )语句：

file.WriteLine(Mid(salinvrs(17), 1, 5))

写完文件后，使用：

file.Close()

就您的Recordset而言，为使事情变得简单，您可以继续使用ADO（您需要在COM选项卡中添加对Microsoft ActiveX数据对象的引用）。您应该考虑升级代码以使用ADO.NET。有许多关于如何读取数据集的示例，这是一个示例：

Create a simple data application by using ADO.NET

Using the ADO and Recordset in VB.NET