0

私は現在、Magtek リーダーから暗号化されたカード データを読み取り、それを WS に送信して復号化する必要がある関数を作成しています。Web サイトからリーダーのソース コードをダウンロードすると、VB6 で問題なく動作しますが、これを Visual Studio 2010 で取得する必要があります。VB6 バージョンのコードは次のとおりです。

 If nValueNameLen > 0 Then

          ReDim Preserve Values(0 To 1, 0 To nStrings) As String
          Values(0, nStrings) = Left$(ValueName, nValueNameLen)
          Values(1, nStrings) = Left$(Value, nValueLen - 1)
          nStrings = nStrings + 1

 End If

2005 年または 2010 年に実行して更新すると、コードは次のようになります。

 If nValueNameLen > 0 Then

          ReDim Preserve Values(1, nStrings)
          Values(0, nStrings) = Left(ValueName, nValueNameLen)
          Values(1, nStrings) = Left(Value, nValueLen - 1)
          nStrings = nStrings + 1

 End If

これにより、「'ReDim' は配列の次元数を変更できません」というエラーが発生し、更新しようとしたときに他の多くのエラーが発生します。カードリーダーを独自のプログラムに実装しようとしている場合に使用できる、これまたはその他の最新のコードに対して実行できる修正はありますか (もちろん VB.net で)。

4

1 に答える 1

1

値はおそらく次のように宣言されました。

Dim Values() as String

宣言する必要がある場合:

Dim Values(,) as String
于 2013-07-25T22:44:49.660 に答える