C# vs VB.NET（コードの比較・変換表）

特別な記述の必要なし
   または
ByVal（明示的な値渡し）

ByRef

public static void Main()
{
    int val = 0; // 値を割り当てないとエラーになる
    Sample(ref val);
}

public static void Main()
{
    int val;
    Sample(out val);
}

Public Shared Sub Main()
    Dim val = 0 ‘ 値を割り当てなくてもエラーにはならない
    Sample(val)
End Sub

Public Shared Sub Sample(ByRef arg As Integer)
    ‘ 引数には参照渡しの ByRef が付いているが
        ‘何かの処理
End Sub

Public Shared Sub Main()
    Dim val As Integer = 0
    ‘値渡しを強制する
    Sample((val))
        ‘何かの処理
End Sub

MustOverride

派生クラスでオーバーライドする必要がある基本クラスのプロパティやプロシージャ。

MustInherit

インスタンス化できず、基本クラスとしてのみ使用できるクラス。

NotOverridable

派生クラスでオーバーライドできないプロパティまたはプロシージャ。

NotInheritable

基本クラスとして使用できないクラス。

    Sub Dispose() _
        Implements IDisposable.Dispose
       ‘何かの処理
    End Sub
End Class

struct SomeStruct
{
    //何かの処理
}

public class SomeClass
{
    public int Num { get; set; }

    public SomeClass() //コンストラクタ
    {       
        Num = 0; //初期値
    }
}

public class SomeClass
{
    public int Num { get; private set; }
    // または
    // public int Num { get; }
    // または
    //public int Num { get; private set; } = 0;
    // または
    //public int Num { get; } = 0;

    public SomeClass() //コンストラクタ
    {
        Num = 0; //初期値
    }
}

Return s & “.txt” または Return s + “.txt”

var intList = new List<int>();
intList.Add(3);
intList.Add(2);
intList.Add(1);

foreach (int item in intList)
{
    if (item == 1) {
        break;
    } else if (item == 2) {
        continue;
    } else {
        MessageBox.Show(item.ToString());
    }
}

Dim intList = New List(Of Integer)
intList.Add(3)
intList.Add(2)
intList.Add(1)

For Each item As Integer In intList
    If item = 1 Then
         Exit For
    ElseIf item = 2 Then
         Continue For
    Else
        MessageBox.Show(item.ToString)
    End If
Next

delegate int SampleDelegateType(int x, int y);

public int SampleFunc(int x, int y)
{
    return x + y;
}

public void Test()
{
    SampleDelegateType AnotherSampleFunc =
            new SampleDelegateType(SampleFunc);
    int result = AnotherSampleFunc(2, 5);
    MessageBox.Show(result.ToString());
}

Delegate Function SampleDelegateType(x As Integer, y As Integer) As Integer

Public Function SampleFunc(x As Integer, y As Integer) As Integer
    Return x + y
End Function

Public Sub Test()
    Dim AnotherSampleFunc As SampleDelegateType = _
            New SampleDelegateType(AddressOf SampleFunc)
    Dim result As Integer = AnotherSampleFunc(2, 5)
    MessageBox.Show(result.ToString())
End Sub

button1.Click += (sender, e) =>
    {
        MessageBox.Show(“!”);
    };

var words = new string[] { “ellen”, “east” };

var wordsUCaseLCase = from w in words
    select new { UCase = w.ToUpper(), LCase = w.ToLower() };

foreach (var w in wordsUCaseLCase)
{
    Console.WriteLine(“\n” + “Upper Case: ” + w.UCase +
        “\n” + “Lower Case: ” + w.LCase);
}

Dim words = New String() {“ellen”, “east”}

Dim wordsUCaseLCase = From w In words _
    Select New With { .UCase = w.ToUpper, .LCase = w.ToLower }

For Each w In wordsUCaseLCase
    Console.WriteLine(vbCrLf & “Upper Case: ” & w.UCase &
        vbCrLf & “Lower Case: ” & w.LCase)
Next

Sub Foo(Optional span As TimeSpan? = Nothing)
    ‘何かの処理
End Sub

<Extension()>
Public Function Add(m As Integer, n As Integer) As Integer
    Return m + n
End Function

<Extension()> _
Public Function [In](ByVal str As String, ParamArray ByVal params As String()) As Boolean
    Return params.Contains(str)
End Function

//using System.Runtime.InteropServices;
[DllImport(“kernel32.dll”, SetLastError=true)] 
private extern static bool Beep(uint dwFreq, uint dwDuration);

static void SomeGenericMethod<T>(IEnumerable<T> collection)
{
   //何かの処理
}

‘
    または
REM

@

//エスケープシーケンスの無効化
@”.¥aaa¥bbb¥ccc.txt”

//複数行にわたって文字列を書く
//この場合、改行文字自体も文字列の一部として認識される
@”aaa
   bbb
   ccc
“

Console.WriteLine($“Today is {Now.DayOfWeek}.”);
// –> Today is Sunday.

Console.WriteLine($“It’s {Now:HH:mm} now.”);
// –> It’s 08:54 now.

SyncLock lockObject
    ‘何かの処理
End SyncLock

<attributeName(“attributeParameter”)>
Public Class SomeClass
    ‘何かの処理
End Class

Dim result =
    System _
    .IO _
    .File _
    .Exists(
        “D:\” &
        “test.txt”
    )

dynamic

動的型付け変数（型）を宣言するキーワード 。

dynamic testVar;
testVar = DateTime.Now;
Console.WriteLine(testVar.Month + “月”);

Option Strict Off を前提とするならば Object 型が同様の振る舞いをする。遅延バインディング。

Dim testVar ‘As Object
testVar = DateTime.Now
Console.WriteLine(testVar.Month + “月”)

static void SomeMethod<T>(IEnumerable<T> collection)
{
   //何かの処理
}