VB6 升级到 VB.NET

引言

我目前在一家公司工作，需要将 50 多个 VB6 程序升级到 VB.NET 2008。到目前为止，我已完成一半，并学到了一些能显著提高 VB.NET 应用程序性能的技巧。

由于有许多程序员将进行此迁移，因此我想分享这些信息。我确信这些信息对面临此任务的人来说非常有价值。

首先要考虑的是，您希望将 VB6 程序升级到 VB.NET 2008 Windows Forms 应用程序还是 VB.NET 2008 Windows Presentation Foundation (WPF) 应用程序。如果您升级到 VB.NET 2005，则没有 WPF 选项，但如果您升级到 VB.NET 2008，则可以选择使用它。

为什么要将 VB6 Windows Forms 应用程序升级到 WPF？因为这是 Windows 编程的未来。Windows Forms 已经使用了 15 年以上相同的技术，现在正处于其生命周期的开始阶段。Windows Forms 应用程序使用 User32 (User before 32-bit) 和 GDI/GDI+ 进行 GUI 渲染，而 WPF 应用程序使用 DirectX 进行 GUI 渲染，这更加强大。此外，WPF 使用可扩展应用程序标记语言 (XAML) 来定义界面的布局，并实例化 .NET 对象。

迄今为止，最简单的选择是将 VB6 Windows Forms 应用程序升级到 VB.NET 2008 Windows Forms 应用程序。由于 Windows Forms 将在相当长一段时间内存在，我们将重点关注这一点。

以下是将 VB6 Windows Forms 应用程序升级到 VB.NET 2008 Windows Forms 应用程序的一些步骤和技巧：

     1.  使用 VS 2008 的升级向导
     2.  更改目标框架
     3.  删除升级报告
     4.  修正所有错误
     5.  更新代码
     6.  添加 API 以提高 DoEvents 性能。

执行升级

Instr(myString, "search for this string")     'Old way
myString.IndexOf("search for this string")    'New way

- **Mid** - 不要使用 Mid() 方法来获取字符串的一部分，而应使用 SubString() 方法。

Mid(myString, 14)         'Old way
myString.SubString(13)    'New way

- **Trim** - 不要使用 Trim()、LTrim() 和 RTrim()，而应使用 .Trim()、.TrimStart()、.TrimEnd()

Trim(myString), LTrim(myString), RTrim(myString)             'Old way
myString.Trim(), myString.TrimStart(), mystring.TrimEnd()    'New way

- **Len** - 不要使用 Len() 方法，而应使用 .Length() 来获取字符串的长度。

Len(myString)        'Old way
myString.Length()    'New way

- 将“**And**”运算符替换为“AndAlso”。 （在任何非位运算比较中执行此操作）。

If 1 = 1 And 2 = 2 And 3 = 3 Then            'And Old way
If 1 = 1 AndAlso 2 = 2 AndAlso 3 = 3 Then    'And New way

- 将“**Or**”运算符替换为“OrElse”。 （在任何非位运算比较中执行此操作）。

If 1 = 1 Or 2 = 2 Or 3 = 3 Then            'Or old way
If 1 = 1 OrElse 2 = 2 OrElse 3 = 3 Then    'Or new way

- 将所有 VB6 **文件 I/O 类**替换为新的 .NET 文件 I/O 类。它们比 VB6 的快，所以一定要使用它们！

Dim myFile As String = "C:\Temp\myfile.txt"
Dim instring As String = String.Empty

'** VB6 File I/O:
FileOpen(1, myFile, OpenMode.Input)
Do Until EOF(1)
    instring = LineInput(1) 'Read 1 line from a file
Loop
FileClose(1)

'** VB.Net File I/O:
Dim reader As New System.IO.StreamReader(myFile)
Do Until reader.EndOfStream = True
    instring = reader.ReadLine()   'Read 1 line from a file
Loop
reader.Close()
reader.Dispose()

如果您遵循本文中的步骤和技巧，那么您的升级应该会相当顺利，并且您的应用程序在 VB.NET 中的性能应该会比在 VB6 中快很多。

祝您好运！

VBRocks