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.

VBBeep

C#SystemSounds.Beep.Play();

VBModule BookManager

C#public static class BookManager()

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

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

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

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

VBDim oneCharacter As Char = "a"c

C#char oneCharacter = 'a';

VBDim decValue As Decimal = 0.0D

C#decimal decValue = 0.0M;

VBDim sMonth As String = Now.Month.ToString

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

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

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

VBPublic Const NEWLINE As String = vbCrLf

C#public const string NEWLINE = Environment.NewLine;

VBPublic Const TAB As String = vbTab

C#public const string TAB = "\t";

VBDim sValue As String = reader("FirstName")

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

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

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

VBsPersonName = sPersonName.Trim

C#sPersonName = sPersonName.Trim();

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

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

VBDim arBinaryData(9) As Byte

C#byte[] arBinaryData = new byte[9];

VBDim sFormName As String = [GetType].Name

C#string sFormName = GetType().Name;

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

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

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

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

VBDo Until bExitTime = True 'Do Stuff Loop

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

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

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

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

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

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

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

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

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

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

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

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

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