About Tutorials Remove Background Add Image Map Network Drive Variable Naming VB6 to VB.NET VB.NET to C#

VB.NET to C#

Regardless of why, you're now faced with the task of converting something written in VB.NET into C# (or vice-versa), and you've used a few of those online conversion tools, but still you find that the code just doesn't work.

This is where I step in. Below are a few examples of code that I've found just doesn't convert using those .NET code converters. Hopefully these examples will help you to finally get that project completed.

Beep

SystemSounds.Beep.Play();

Module BookManager

public static class BookManager()

If LetterA = "a" AndAlso LetterB = "b" Then

if (LetterA == "a" && LetterB == "b") { }

If sEmplID.Length <> 9 Then Throw New Exception("blah")

if (sEmplID.Length != 9) { throw new Exception("blah"); }

Dim oneCharacter As Char = "a"c

char oneCharacter = 'a';

Dim decValue As Decimal = 0.0D

decimal decValue = 0.0M;

Dim sMonth As String = Now.Month.ToString

string sMonth = System.DateTime.Now.Month.ToString();

Dim sMonthName As String = MonthName(Month(Now), False)

string sMonthName = DateTime.Now.ToString("MMMM");

Public Const NEWLINE As String = vbCrLf

public const string NEWLINE = Environment.NewLine;

Public Const TAB As String = vbTab

public const string TAB = "\t";

Dim sValue As String = reader("FirstName")

string sValue = (string)reader["Name"];

Dim sCampusName As String = Request.QueryString("Campus") & ""

string sCampusName = Request.QueryString["Campus"] + "";

sPersonName = sPersonName.Trim

sPersonName = sPersonName.Trim();

sName = dtValues.Rows(0).Item("Name").ToString & ""

sName = dtValues.Rows[0]["Name"].ToString() + "";

Dim arBinaryData(9) As Byte

byte[] arBinaryData = new byte[9];

Dim sFormName As String = [GetType].Name

string sFormName = GetType().Name;

For Each xOneCar As Automobile In arCars
   Dim Vroom As String = xOneCar.ModelName
Next xOneCar

foreach (Automobile xOneCar in arCars) {
    string Vroom = xOneCar.ModelName;
} // Next xOneCar

For iLpr As Integer = 0 To UBound(arEmails) - 1
    Dim zz as string = arEmails(iLpr)
Next iLpr

for (int iLpr = 0; iLpr <=  arEmails.Length -1; iLpr++) {
    string zz = arEmails[iLpr];
} // Next

Do Until bExitTime = True
    'Do Stuff
Loop

while (bExitTime == false) {
    //Do Stuff
}

Dim arPeople As List(Of String) = New List(Of String)

List<string> arPeople = new List<string>();

Dim Result As String = PassInStringArray({"string1", "string2", "string3"})

string Result = PassInStringArray(new[] { "string1", "string2", "string3" });

Dim arNames() As String = sAllNames.Split(",")

string[] arNames = sAllNames.Split(new string[] {","}, StringSplitOptions.None);

Dim arLetters() As String = {"a", "b", "c"}

string[] arLetters = new[] { "a", "b", "c" };

Dim AllPeople As IEnumerable(Of Person) = JsonSerializer.Deserialize(Of IEnumerable(Of Person))(sResult, jsonOptions)

IEnumerable<Person> AllPeople = JsonSerializer.Deserialize<IEnumerable<Person>>(sResult, jsonOptions);

Public Class Apple
    <Column("Red")>
    Public Property Orange As String = ""
End Class

public class Apple {
    [Column("Red")]
    public string Orange { get; set; } = "";
}

Public Enum TablePermissions As Integer
    <Description("update")> Update = 1
    <Description("insert")> Insert = 2
    <Description("delete")> Delete = 3
End Enum

public enum TablePermissions : int {
    [Description("update")] Update = 1,
    [Description("insert")] Insert = 2,
    [Description("delete")] Delete = 3
}