Visual Basic 6.0 から Visual Basic .NET への移行

バリアント型はオブジェクト型に変更されました。したがって、

im x As Variant

は、以下のようになります。

Dim x As Object

長整数型変数は 64 ビット符号付数値、整数型の変数は 32 ビットの数値、短整数型 (Short) 変数は 16 ビットの数値として格納されます。32 ビット システムでは、16 ビットまたは 64 ビットの整数演算より、32 ビット整数演算の方が高速に処理されます。つまり、整数型が最も効率的で重要な数値型です。

.NET Framework テクノロジの一部は、近年の 32 ビット テクノロジおよび 64 ビット テクノロジに基づいているため、データの更新は新しいテクノロジに適合するためであることが分かります。

変数の型が変更されています。したがって、

Dim y As Integer
Dim y As Long

は、以下のようになります。

Dim x As Short
Dim y As Integer

Visual Basic 6.0 では、通貨型をサポートしています。変数に 10 進型 (Decimal) のサフィックスが設定されていても、10 進型を変数に宣言することはできません。

通貨型変数は、64 ビットの整数として格納されます。数値は、整数部 15 桁、小数部 4 桁で小数点が固定されており、10,000 ずつ増減します。表示範囲は、-922,337,203,685,477.5808 ～ 922,337,203,685,477.5807 です。

10 進型変数は、10 の n 乗に拡張された 96 ビット符号付き整数として格納されます。10 に累乗する値によって、小数部の桁数を 0 ～ 28 の範囲で指定します。値が 0 の場合 (小数点以下の桁数なし)、最大値は +/-79,228,162,514,264,337,593,543,950,335 です。小数点以下が 28 桁の場合、最大値は +/-7.9228162514264337593543950335、0 でない最小値は +/-0.0000000000000000000000000001 です。

通貨型は 10 進型に変更されました。したがって、

Dim x As Currency

は、以下のようになります。

Dim x As Decimal

日付型変数は、倍精度浮動小数点数型 (Double) 形式で内部的に格納され、倍精度浮動小数点数型として処理されます。

日付型変数は、IEEE 64 ビットの浮動小数点数として格納され、100 年 1 月 1 日から 9999 年 12 月 31 日 (日付)、 および 0:00:00 ～ 23:59:59 (時刻) の範囲で表現されます。認識可能な日付の定数値はすべて、日付型変数に代入することができます。

その他の数値型が日付型に変換される場合、整数部が日付、小数部が時刻を表します。午前 0 時は 0、正午は 0.5 です。1899 年 12 月 30 日より前の日付はすべて、負の数値で表現されます。

アップグレード ツールを使用しても、バリアント型を使用して日付型を倍精度浮動小数点数型として格納しているケースをすべて検出できるわけではありませんが、一般に、倍精度浮動小数点数型が日付型に割り当てられている場合、その場合に応じて ToOADate または FromOADate メソッドが挿入されます。たとえば、

Dim dbl As Double
Dim dat As Date
  Dbl = dat

は、以下のようになります。

Dim dbl As Double
Dim dat As Date

Dbl = dat.ToOADate

通常、処理は不要です。固定長文字列を動作させると、

Dim MyFixedLengthString As String * 100

は、以下のようになります。

Dim MyFixedLengthString As New VB6.FixedLengthString(100)

このトピックの詳細については、ホワイト ペーパー「Visual Basic .NET へのアップグレードを円滑に行うための Visual Basic 6.0 アプリケーションの準備」を参照してください。

ユーザーはクラス、列挙、およびインターフェイスを定義することもできるため、User-Defined Type（ユーザ定義型）は混同されがちです。User-Defined Type は QuickBasic の遺物で、ユーザーが定義できる種類は構造体およびレコードのみです。CLR では、あらゆるデータ型を対象に広い意味でタイプという言葉を使用します。

このため、Visual Basic .NET では、Type ステートメントは Structure に変更されました。

Type ステートメントが構造に変更されたため、

Type MyType
MyVariable As Integer
End Type

は、以下のようになります。

Structure MyType
Dim MyVariable As Short
End Structures

フォーマットが最も有効です。メモリの連続したブロックである場合とそうでない場合があります。マーシャリングした属性を構造体に設定し、メモリの連続したブロックとして COM コンポーネントに確実に渡すことができます。

Null 値の透過はサポートされていません。ADO.NET を使用したプログラミング データのモデルでは、値が抽出される前に Null のフィールドがテストされます。Null 値を含むバリアント型データは、オブジェクト タイプ DBNull として CLR にマーシャリングされます。

Visual Basic .NET では、従来より Null 値を直感的に使用することができます。たとえば、Left() などの文字列関数は常に空の文字列を返します。

Null 値および IsNull 関数には、アップグレードの警告が設定されます。たとえば、

If x Is Null Then MsgBox "Null"

は、以下のようになります。

' UPGRADE_WARNING: IsNull() が使用されています。
If IsDBNull(x) Then MsgBox "Null"

変数の型の明示的な宣言がコードに挿入されます。たとえば、

DefStr a-z
Sub MySub
s = "Hello"
End Sub

は、以下のようになります。

Sub MySub
Dim s As String
s = "Hello"
End Sub

Visual Basic .NET では、変数のブロック スコーピングをサポートしています。したがって、ローカル変数を参照することができるのは、宣言が含まれる行から宣言が明示されるブロックの末尾までです。たとえば、

Sub Test(x As Integer)
  If x < 0 Then
  Dim y As Integer = - x
  '...
  Else
  '...
  End If
End Sub

上記の例の変数は、宣言されているブロック内でのみ使用可能です。使用できるのは特に、Else ステートメントまでの宣言です。変数をプロシージャ全体で使用可能にするには、If/Else/End If 制御構造の外部で宣言する必要があります。

変数のブロック スコーピングは、多くの構造化言語に共通する機能です。プロシージャ ローカルではプロシージャに対してプライベートな変数の定義を可能にすることで構造化プログラミングをサポートするように、ブロックレベルの変数ではコード ブロックに対してプライベートな変数の定義を可能にすることで構造化分解をサポートします。

変数がブロック内で宣言されている場合、モジュール レベルのスコープに自動的に移動されます。たとえば、

If x =1 Then
  Dim y As Integer
End If

は、以下のようになります。

Dim y As Integer
If x =1 Then
End If

フォームのクラス変数宣言 Dim x As New <クラス名> を使用すると、コンパイラが x へのすべての参照についてコードを生成することになります。このコードにより x が Nothing であるかどうかが確認されます。Nothing であれば、クラスのインスタンスが新規作成されます。たとえば、

Dim x As New MyClass
'...
Call x.MyMethod()

は、次のコードと同等です。

Dim x As MyClass
'...
If x Is Nothing Then
  Set x = New MyClass
End If
Call x.MyMethod()

変数が Nothing に設定された後も、次の呼び出し時にインスタンスが再作成されます。

フォームの変数宣言 Dim x As New <クラス名> は、Dim x As <クラス名> = New <クラス名> と評価されます。この構文で宣言される変数の参照には、コードは特に生成されません。

Visual Basic .NET での As New の宣言は、Visual Basic 6.0 の同じ宣言と比較すると効率が大幅に改善されています。 このような変数の参照では、大部分はオーバーヘッドを追加する必要がありません。Visual Basic 6.0 では、"自動インスタンス再作成" 機能が、予期せぬ動作を始めることがあります。

ほとんど問題ありません。ただし、Nothing に設定されたコードでクラスを使用しようとすると、実行時に例外が検出されやすくなります。このようなコードは、次の例のように修正することで、新しいバージョンのクラスを容易にインスタンス化することができます。

Dim x As New MyClass
x = Nothing
x = New MyClass

トレース ガーベッジ コレクタにより、スタック変数、モジュール変数、および共有変数に格納されたアクセス可能な参照から順に、オブジェクトが処理されます。トレーシング プロセスのタスクはバックグラウンドで実行されるため、オブジェクトに対する最後の参照を処理してから新しい参照が追加されまで、時間がかかることがあります。

場合によっては、クライアント側でオブジェクトのリソースを強制的に解放する機能が必要です。CLR では、このようなオブジェクトで IDisposable インターフェイスを実装するという規則を使用します。これにより、Dispose メソッドが確立されます。Dispose メソッドによるオブジェクトの使用をクライアントで完了すると、そのオブジェクトのリソースを解放するために Dispose メソッドを明示的に呼び出すことができます。たとえば、データベースをラップするオブジェクトは、Dispose メソッドを公開する必要があります。

トレーシング ガーベッジ コレクタは、参照サイクルにおいて正確にオブジェクトを解放することができます。また、そのパフォーマンスは、参照カウントのパフォーマンスに比べてはるかに高速です。

アップグレードの際、以下のサンプルのように配列の下限は 0 に設定されます。

Dim a(1 to 10) as String

は以下のようになります。

' UPGRADE_WARNING: 配列の下限を 1 から 0 に変更しました
Dim a(10) As String

Dim,ReDim,LBound ステートメントは確認を容易にするために、アップグレードの警告が設定されます。

ReDim ステートメントは、配列の再割り当て向けではなく、配列用の領域の割り当ておよび再割り当て向けのみに使用されます。これは、Visual Basic .NET では配列がすべて動的であるためです。したがって Visual Basic .NET では、Dim ステートメントを動的な配列の宣言と初期化の両用に使用することができます。

変数宣言では、変数の初期値の宣言と指定の両方を行えるため、ReDim を使用して変数の宣言と初期化の両方を行う必要はありません。不要なだけでなく、冗長性の原因にもなります。Dim ステートメントを使用して変数を宣言するだけで、言語を簡素化し、整合性を保持することができます。

Set および Let ステートメントが削除されます。型が明確に決められているオブジェクトに対する既定のプロパティが解決され、コードに明示的に追加されます。

このトピックの詳細については、ホワイト ペーパー「Preparing Your Visual Basic 6.0 Applications for the Upgrade to Visual Basic .NET」(英語) を参照してください。

プロシージャ コールのフォームが 2 種類サポートされています。Call ステートメントを使用する方法と、Call ステートメントをしない方法です。前者の場合は引数リストをかっこで囲む必要があり、後者の場合は使用しない引数リストをかっこで囲む必要があります。

Visual Basic 6.0 では一般的に、呼び出しキーワードを使用せずにプロシージャを呼び出します。ただし、引数リストをかっこで囲みます。複数のパラメータが存在する場合、コンパイラでは構文エラーとして検出されます。ただし、パラメータが単一のみである場合は、その単一の引数を囲むかっこ内の変数が ByRef としてではなく ByVal として渡されます。これが原因で、追跡が難しい面倒なバグが発生することがあります。

プロシージャでは Static キーワードはサポートされていません。また、静的ローカル変数はすべて Static ステートメントを使用して明示的に宣言する必要があります。

プロシージャ内の変数がすべて静的である必要はほとんどありません。ローカル変数は、Static として明示的に宣言しない限り、常にスタックが割り当てられるため、この機能を削除することで言語が簡素化されると同時に読みやすさが改善されます。

プロシージャに Static が設定されている場合、すべてのローカル変数宣言は Static に変更されます。

Static Sub Mysub()
  Dim x As Integer
  Dim y As Integer
End Sub

は、以下のようになります。

Sub Mysub()
  Static x As Integer
  Static y As Integer
End Sub

ByVal または ByRef のどちらも指定しないパラメータは、既定で ByVal に設定されます。

ByRef ではなく ByVal を既定値にすることで、プロシージャにおいて呼び出し側により渡される変数が誤って変更される問題を回避することができます。また、既定の呼び出し規則が割り当てと整合性を保持するため、正規のパラメータに対して式を代入することで、渡された式に対しパラメータが効率的にバインドされます。

Visual Basic 6.0 から Visual Basic .NET への移行に伴う混乱を避けるために、ユーザーが明示的に ByVal または ByRef を指定しなくても、IDE によりあらゆるパラメータの宣言に ByVal キーワードが自動的に追加されます。

変数が ParamArray 引数に渡されると、呼び出された関数によりその変数を変更することができます。ByRef ParamArray 要素はサポートされていません。

ParamArray 引数については、渡される変数を変更しない使用法が一般的です。ByRef ParamArray 引数をサポートしないことで、ParamArray 引数が通常の配列となり、ParamArray の呼び出し規則が簡素化されます。これにより、ParamArray 引数をあらゆる要素タイプに拡張できるようになるほか、ParamArray 引数を予測する関数を引数以外の配列で直接呼び出すことができます。

プロシージャ ParamArray 引数にはアップグレードの警告が設定されます。たとえば、

Function MyFunction(ParamArray p() As Variant)
'...
End Function

は、以下のようになります。

' UPGRADE_WARNING: ParamArray p は、ByRef から ByVal に変更されました。
Function MyFunction(ByVal ParamArray p() As Object)
'...
End Function

ネイティブ API を複数のデータ型で呼び出せるオーバーロードの Daclare ステートメントを定義することができます。たとえば、次の Daclare ステートメントを参照してください。

Private Declare Function GetPrivateProfileString _
  Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
  ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, _
  ByVal lpDefault As String, _
  ByVal lpReturnedString As String, _
  ByVal nSize As Long, _
  ByVal lpFileName As String) As Long

上記のステートメントは、2 つのバージョンの Declare に置き換えることができます。一方は a、もう一方は文字列を受け取ります。

Overloads Private Declare Function GetPrivateProfileStringKey _
  Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
  ByVal lpApplicationName As String, _
  ByVal lpKeyName As String, _
  ByVal lpDefault As String, _
  ByVal lpReturnedString As String, _
  ByVal nSize As Long, _
  ByVal lpFileName As String) As Long
Overloads Private Declare Function GetPrivateProfileStringKey _
  Lib "kernel32" Alias"GetPrivateProfileStringA" ( _
  ByVal lpApplicationName As String, _
  ByVal lpKeyName As Long, _
  ByVal lpDefault As String, _
  ByVal lpReturnedString As String, _
  ByVal nSize As Long, _
  ByVal lpFileName As String) As Long

これにより型の安全性は向上し、プログラム エラーを引き起こすバグの発生は少なくなります。エラーが発生するのは、コンパイラでは、受け取りが明示的に定義されている以外のデータ型で API を呼び出せないためです。

Implements ステートメントでは、表示されるクラス モジュールで実装されるインターフェイスまたはクラスを指定します。

Visual Basic .NET の Implements は、Visual Basic 6.0 と大きく異なる点が 2 つあります。

• クラスを Implements ステートメントで指定することができません。
• メソッドを実装する場合は常に、そのメソッドを宣言するステートメントの末尾に Implements 句が必要です。これにより、実装されるインターフェイス メソッドが指定されます。

各メソッドに、インターフェイスでメソッドを実装する Implements 句を使用することで、より読みやすくなります。コードを読み取るときに、インターフェイス メソッドの実装にそのメソッドが使用されることは明らかです。

クラス a がクラス b を実装する場合、インターフェイスはクラス b に宣言され、クラス a は、クラス b のインターフェイスを実装するために変更されます。

Interface _b
  Function MyFunction() As String
End Interface
Class a
  Implements _b
  Function b_MyFunction() As String
    Implements _b.MyFunction
  End Function
End Class

パラメータを受け取るプロパティのみ、既定として設定することができます。パラメータを受け取るプロパティは、一般に、コレクションに索引が作成されます。

これにより、メンバのないオブジェクト型変数では、一定のコンテキストのオブジェクトやほかのコンテキストのプロパティの既定値を参照するのではなく、常にオブジェクト自体を参照するため、コードが読みやすくなります。たとえば、Call Display(TextBox1) ステートメントは、テキスト ボックスのインスタンスを Display 関数に渡します。またはテキスト ボックスのプロパティの既定値を渡す可能性もあります。

また、この両義性を除去することで、別々のステートメントで参照の割り当てを実行する必要がなくなります。割り当て x = y は、常に変数 y の内容を変数 x に代入することを意味します。y が参照するオブジェクトの既定のプロパティを x が参照する既定のプロパティに代入するのではありません。

ファイルまたはプロジェクト レベルで列挙の Import が追加された場合、列挙定数は無条件で参照することができます。

これにより、クラス、構造、およびインターフェイスで整合性が保持され、ほかのメンバとの競合を気にすることなくこれらのメンバに一般的な名前を付けることができます。たとえば、Color 列挙および Fruit 列挙のどちらにも、Orange という定数を含めることができます。Visual Basic 6.0 では、MsColorOrange や MsFruitOrange などのように、列挙定数の先頭に語句を付けて一意とする規則が採用されています。

On...GoTo および On...GoSub は、構造化プログラミングの機能を持っていません。そのため、使用すると、プログラムが読みづらく理解しにくいものになります。複数の分岐を実行するには、構造化および柔軟性に優れた Select Case を使用します。

注 : On Error GoTo は現在もサポートされています。

たとえば、

On MyVariable GoTo 100,200,300

には、次のようなアップグレード エラーのコメントが追加されます。

' UPGRADE_ISSUE On MyVariable GoTo はアップグレードされませんでした。
On MyVariable GoTo 100,200,300

このようなステートメントを使用しないために、コードを次のように書き換える必要があります。たとえば、

On x Goto 100,200,300

は、以下のように書き換えることができます。

Select Case x
  Case 1: ' 100 行めのコードを挿入します。
  Case 2: ' 200 行めのコードを挿入します。
  Case 3: ' 300 行めのコードを挿入します。
End Select

ステートメント

LSet a1 = a2

には、次のようなアップグレード エラーのコメントが追加されます。

' UPGRADE_ISSUE: LSet は、Type間でユーザー定義型を割り当てることはできません。
LSet a1 = a2

変数のアドレスが抽出可能ですが、CLR への呼び出しを介して行う必要があります。これは、CLR ではメモリ内で自由に変数を移動できるためです。したがって、アドレスが使用されているにもかかわらず項目を移動しない場合、知らせる必要があります。次に、オブジェクトのアドレスを抽出する例を示します。

Dim MyGCHandle As GCHandle = GCHandle.Alloc(o,GCHandleType.Pinned)
Dim Address As Integer = CInt(MyGCHandle.AddrOfPinnedObject())
'...
MyGCHandle.Free() ' オブジェクト インスタンスの再移動を許可します。

実行時によりデータ項目を移動可能にすることで、実行時のパフォーマンスが向上します。

これらのステートメントに対して自動アップグレードは行われないため、"(ステートメント) はサポートされていません" という内容のアップグレード エラーのコメントが付きます。たとえば、

a = VarPtr(b)

は、以下のようになります。

' UPGRADE_ISSUE: 関数 VarPtr() はサポートされていません。
a = VarPtr(b)

このステートメントはコンパイル エラーの原因にもなります。

File I/O ステートメントは、対応する関数にアップグレードされます。たとえば、次のとおりです。

Open "MyFile.txt" For Input As #1

は以下のようになります。

FileOpen(1, "MyFile.txt", OpenMode.Input)

Debug.WriteLine を使用すると、[アウトプット] ウィンドウにテキストの行が出力されます。Debug.Write メソッドを使用して、ラインフィードなしで [アウトプット] ウィンドウにテキストを出力することもできます。

Visual Basic .NET 向けに一新された Windows Forms というフォーム パッケージが備わっています。Windows Forms は、共通言語ランタイム (CLR) をターゲットとして新しく構築されたため、CLR のあらゆる機能を利用することができます。特に、Windows Forms パッケージでは展開、アプリケーションの分離、バージョン管理、およびコード アクセス セキュリティ機能を利用するため、構築した Windows ベース クライアント アプリケーションの展開と更新を簡単に行うことができます。ブラウザ展開の特性が同一の Windows Forms アプリケーションを HTML として構築することも可能です。コード アクセス セキュリティの粗雑な制御などの特性により、ブラウザの Windows Forms コントロールも使用されます。

Windows Forms セットは、表示スタイルの継承、ローカリゼーションおよびユーザー補助サポートの改良、フォームの自動サイズ調整、および埋め込みメニュー エディタなど、多くの新機能が備わっています。

Windows Forms では常にピクセル単位で測定を行うことでフォームが簡素化されています。

さらに、Windows Forms では、サイズ調整の方法が改良されています。AutoScaleBaseSize プロパティでは、使用する画面の解像度 (dpi) およびフォント サイズに応じて、スケールを自動的に調整します。

"twips" を使用していたコード (Visual Basic 6.0 では既定の ScaleMode 設定) が完全にアップグレードされています。ScaleMode で twips が使用されていない場合は、サイズ調整に問題が発生します。

このトピックの詳細については、ホワイト ペーパー「Visual Basic .NET へのアップグレードを円滑に行うための Visual Basic 6.0 アプリケーションの準備」を参照してください。

アップグレード ウィザードで Timer.Interval が 0 に設定されていることが検出されると、アップグレード エラーのコメントが追加されます。

Visual Basic 6.0 アプリケーションでは Timer.Enabled を使用することをお勧めします。

水平線および垂直線の Line コントロールは、Label コントロール (テキストなし、高さまたは幅の設定を 1) に変更されました。対角線の Line コントロールについてはアップグレード レポートにエラーが追加され、サポートされていないコントロールのプレースホルダがそのフォームに追加されます。

長方形および正方形の Shape コントロールは、Label コントロールに変更されました。ほかの Shape コントロールについてはアップグレード レポートにエラーが追加され、サポートされていないコントロールのプレースホルダがそのフォームに追加されます。

Windows Forms では、ほとんどのウィンドウレス コントロールは、ウィンドウを持つように既定されています。ウィンドウレス コントロールの主な利点は、フォームに多量のコントロールがある場合、リソースの消費 (ウィンドウ ハンドル) を軽減できることです。これが適用されるのは Windows 9x のみです。Microsoft Windows NT および Microsoft Windows 2000 では、リソースを制約することはありません。

ウィンドウレス コントロールには、層などのレイアウトなど、いくらかの不都合もありますが、Microsoft はこれらの価値を認識し、Windows Forms で同様の効果を得る方法について今後サンプルを発表する予定です。

WebClasses は Web Forms にアップグレードされます。状態保存域の呼び出しにはアップグレードの警告が設定されます。再度書き込みを行い、ASP.NET の状態管理機能を利用することもできます。

Visual Basic 6.0 の WebClass アプリケーションを残し、Visual Basic.NET の Web Form から WebClass や WebForm などにナビゲートすることも可能です。

新しい IDE の拡張性モデルは、Visual Studio.NET 内のあらゆるプロジェクトのタイプに対する総称です。これにより、多種多様なプロジェクトのタイプを処理するアドインの作成が簡便化されます。Visual Basic プロジェクト システムの拡張性モデルは C# とも共有されます。したがって、参照の追加やプロジェクト プロパティの変更など、プロジェクト特有の機能がどちらの言語でも同様に実行されます。

Visual Studio.NET コード モデルにより共通のオブジェクト モデルの記述の拡張性が高まり、異種言語のプロジェクトのコードも処理できるようになります。Visual Basic は、コード モデル全体においてコードの読み取りをサポートしています。コードを記述するには、モデルにカーソルを置き、Visual Basic の構文を入力します。