VB6迁移至VB.NET时Chr/Chr$函数返回值不一致如何保留原有行为

差异原因 #

VB6的Chr函数默认基于系统ANSI编码处理输入的字符码，而VB.NET内置的Chr函数基于Unicode编码处理，二者编码逻辑不同导致Chr(0)的返回结果不一致。

兼容处理方法 #

你可以根据自己的使用场景选择以下方案：

• 全范围兼容（完全对齐VB6行为，支持0-255的所有字符码）
  封装全局兼容方法替换原有所有Chr调用：

  ' 完全复刻VB6 Chr逻辑的全局方法
  Public Function VB6Chr(charCode As Integer) As Char
      Dim ansiBuf As Byte() = New Byte() {CByte(charCode And &HFF)}
      Return System.Text.Encoding.Default.GetChars(ansiBuf)(0)
  End Function
  

  原有代码中的Chr(0)直接替换为VB6Chr(0)即可。
• 仅兼容ASCII范围（字符码0-127场景）
  可以直接使用VB.NET的ChrW函数，该范围的字符Unicode编码和ANSI编码重合，返回结果和VB6一致：

  Dim targetChar As Char = ChrW(0)
  

内容的提问来源于stack exchange，提问作者Basu