Abundant Code

You are here: Home / Archives for VB.NET

VB.NET and Lambda – Filter elements from object collection with Logical Operators

by Leave a Comment

Here’s a sample code snippet demonstrating how to filter elements from a list of objects using the where clause using Lambda in VB.NET. This sample gets all the employees who salary is greater than 20000 GBP and age is greater than 22.

How to Filter Employees List whose salary is greater than 20000 GBP and age is greater than 22 using Lambda in VB.NET ?

Namespace AbundantcodeVisualBasicSample
    Class Program
        Public Shared Sub Main(args As String())
            Dim employees As New List(Of Employee)()
            employees.Add(New Employee() With { _
                .Name = "Michael", _
                .Age = 55, _
                .Salary = 80000 _
            })
            employees.Add(New Employee() With { _
                 .Name = "Steve", _
                 .Age = 23, _
                 .Salary = 19000 _
            })
            employees.Add(New Employee() With { _
                 .Name = "John", _
                 .Age = 55, _
                 .Salary = 23000 _
            })
           ' Lambda expression demonstrating the usage of Logical operators in the Where clause.
            Dim output = employees.Where(Function(a) a.Salary > 20000 AndAlso a.Age > 22)

            Debug.WriteLine("Employees whose salary is greater than 20000 pounds and age > 22")
            For Each item As Employee In output
                Debug.WriteLine(item.Name)
            Next
        End Sub
    End Class
    Class Employee
        Public Property Name() As String
            Get
                Return m_Name
            End Get
            Set
                m_Name = Value
            End Set
        End Property
        Private m_Name As String
        Public Property Age() As Integer
            Get
                Return m_Age
            End Get
            Set
                m_Age = Value
            End Set
        End Property
        Private m_Age As Integer
        Public Property Salary() As Decimal
            Get
                Return m_Salary
            End Get
            Set
                m_Salary = Value
            End Set
        End Property
        Private m_Salary As Decimal
    End Class
End Namespace

Output

Employees whose salary is greater than 20000 pounds and age > 22

Michael

John

VB.NET and LINQ – Filter elements from object collection with Logical Operators

by Leave a Comment

Here’s a sample code snippet demonstrating how to filter elements from a list of objects using the where clause using LINQ in VB.NET. This sample gets all the employees who salary is greater than 20000 GBP and age is greater than 22.

How to Filter Employees List whose salary is greater than 20000 GBP and age is greater than 22 using LINQ in VB.NET ?

Namespace AbundantcodeVisualBasicSample
    Class Program
        Public Shared Sub Main(args As String())
            Dim employees As New List(Of Employee)()
            employees.Add(New Employee() With { _
                .Name = "Michael", _
                .Age = 55, _
                .Salary = 80000 _
            })
            employees.Add(New Employee() With { _
                 .Name = "Steve", _
                 .Age = 23, _
                 .Salary = 19000 _
            })
            employees.Add(New Employee() With { _
                 .Name = "John", _
                 .Age = 55, _
                 .Salary = 23000 _
            })
           ' LINQ query demonstrating the usage of Logical operators in the Where clause.
            Dim output = From m In employees Where m.Salary > 20000 AndAlso m.Age > 22

            Debug.WriteLine("Employees whose salary is greater than 20000 pounds and age > 22")
            For Each item As Employee In output
                Debug.WriteLine(item.Name)
            Next
        End Sub
    End Class
    Class Employee
        Public Property Name() As String
            Get
                Return m_Name
            End Get
            Set
                m_Name = Value
            End Set
        End Property
        Private m_Name As String
        Public Property Age() As Integer
            Get
                Return m_Age
            End Get
            Set
                m_Age = Value
            End Set
        End Property
        Private m_Age As Integer
        Public Property Salary() As Decimal
            Get
                Return m_Salary
            End Get
            Set
                m_Salary = Value
            End Set
        End Property
        Private m_Salary As Decimal
    End Class
End Namespace

Output

Employees whose salary is greater than 20000 pounds and age > 22

Michael

John

VB.NET and Lambda – Filter elements from object collection using where clause

by Leave a Comment

Here’s a sample code snippet demonstrating how to filter elements from a list of objects using the where clause using Lambda in VB.NET. This sample gets all the employees who salary is greater than 20000 GBP.

How to Filter Employees List whose salary is greater than 20000 GBP using Lambda in VB.NET ?

Namespace AbundantcodeVisualBasicSample
    Class Program
        Public Shared Sub Main(args As String())
            Dim employees As New List(Of Employee)()
            employees.Add(New Employee() With { _
                .Name = "Michael", _
                .Age = 55, _
                .Salary = 80000 _
            })
            employees.Add(New Employee() With { _
                 .Name = "Steve", _
                 .Age = 23, _
                 .Salary = 19000 _
            })
            employees.Add(New Employee() With { _
                 .Name = "John", _
                 .Age = 55, _
                 .Salary = 23000 _
            })
            ' Lambda expression  to filter employees using Where
            Dim output = employees.Where(Function(a) a.Salary > 20000)
            Debug.WriteLine("Employees whose salary is greater than 20000 pounds")
            For Each item As Employee In output
                Debug.WriteLine(item.Name)
            Next
        End Sub
    End Class
    Class Employee
        Public Property Name() As String
            Get
                Return m_Name
            End Get
            Set
                m_Name = Value
            End Set
        End Property
        Private m_Name As String
        Public Property Age() As Integer
            Get
                Return m_Age
            End Get
            Set
                m_Age = Value
            End Set
        End Property
        Private m_Age As Integer
        Public Property Salary() As Decimal
            Get
                Return m_Salary
            End Get
            Set
                m_Salary = Value
            End Set
        End Property
        Private m_Salary As Decimal
    End Class
End Namespace

Output

Employees whose salary is greater than 20000 pounds

Michael

John

VB.NET and LINQ – Filter elements from object collection using where clause

by Leave a Comment

Here’s a sample code snippet demonstrating how to filter elements from a list of objects using the where clause using LINQ in VB.NET. This sample gets all the employees who salary is greater than 20000 GBP.

How to Filter Employees List whose salary is greater than 20000 GBP using LINQ in VB.NET ?

Namespace AbundantcodeVisualBasicSample
    Class Program
        Public Shared Sub Main(args As String())
            Dim employees As New List(Of Employee)()
            employees.Add(New Employee() With { _
                .Name = "Michael", _
                .Age = 55, _
                .Salary = 80000 _
            })
            employees.Add(New Employee() With { _
                 .Name = "Steve", _
                 .Age = 23, _
                 .Salary = 19000 _
            })
            employees.Add(New Employee() With { _
                 .Name = "John", _
                 .Age = 55, _
                 .Salary = 23000 _
            })
            Dim output = From m In employees Where m.Salary > 20000
            Debug.WriteLine("Employees whose salary is greater than 20000 pounds")
            For Each item As Employee In output
                Debug.WriteLine(item.Name)
            Next
        End Sub
    End Class
    Class Employee
        Public Property Name() As String
            Get
                Return m_Name
            End Get
            Set
                m_Name = Value
            End Set
        End Property
        Private m_Name As String
        Public Property Age() As Integer
            Get
                Return m_Age
            End Get
            Set
                m_Age = Value
            End Set
        End Property
        Private m_Age As Integer
        Public Property Salary() As Decimal
            Get
                Return m_Salary
            End Get
            Set
                m_Salary = Value
            End Set
        End Property
        Private m_Salary As Decimal
    End Class
End Namespace


Output

Employees whose salary is greater than 20000 pounds

Michael

John

VB.NET and Lambda – Finding all the elements of an integer array less than 35

by Leave a Comment

Here’s a sample code snippet demonstrating how to find all the elements of an integer array that is less than 35 using Lambda expression in VB.NET.

The Where keyword in VB.NET is used to filter the elements from a collection based on the specified criteria.

How to find all the elements of an integer array less than 35 using Lambda expression in VB.NET ?

Module ACConsoleApp
    Sub Main()
        Dim input As Integer() = {78, 5, 23, 67, 11, 23}
        ' find all the numbers greater than 35 using Lambda
        Dim output = input.Where(Function(a) a > 35)
        Debug.WriteLine("Numbers Greater than 35")
        For Each item As VariantType In output
            Debug.WriteLine(item)
        Next
    End Sub

End Module

Numbers Greater than 35

78

67

VB.NET and LINQ – Finding all the elements of an integer array less than 35

by Leave a Comment

Here’s a sample code snippet demonstrating how to find all the elements of an integer array that is less than 35 using LINQ in Visual Basic.NET.

The where keyword in VB.NET is used to filter the elements from a collection based on the specified criteria.

How to find all the elements of an integer array less than 35 using LINQ in VB.NET ?

Module ACConsoleApp
    Sub Main()
        Dim input As Integer() = {78, 5, 23, 67, 11, 23}
        ' LINQ Query to find all the numbers greater than 35
        Dim output = From m In input Where m > 35
        Debug.WriteLine("Numbers Greater than 35")
        For Each item As VariantType In output
            Debug.WriteLine(item)
        Next
    End Sub

End Module

The output of the program is

Numbers Greater than 35

78

67

Json.NET & VB.NET – How to Serialize an Collection?

by Leave a Comment

Do you want to serialize an collection in your VB.NET application?. Json.NET supports this functionality with ease.

The Collection can be an Array , Dictionary or List. You need to simply pass collection to the JsonConvert.SerializeObject static method which would serialize the collection and return you the Json string.

How to Serialize a Collection in VB.NET using Json.NET ?

For example , assume that you want to serialize the employee VB.NET class as shown below.

Public Class Employee
    Public Property Name() As String
        Get
            Return m_Name
        End Get
        Set
            m_Name = Value
        End Set
    End Property
    Private m_Name As String
    Public Property IsPermanent() As Boolean
        Get
            Return m_IsPermanent
        End Get
        Set
            m_IsPermanent = Value
        End Set
    End Property
    Private m_IsPermanent As Boolean
    ' Employee can belong to multiple departments
    Public Property Departments() As List(Of String)
        Get
            Return m_Departments
        End Get
        Set
            m_Departments = Value
        End Set
    End Property
    Private m_Departments As List(Of String)
End Class

You will create the List<Employee> and fill it with the values as shown below.

Dim employees As New List(Of Employee)()
'Employee 1 Data
Dim emp1 As New Employee()
emp1.Name = "Employee 1"
emp1.IsPermanent = True
emp1.Departments = New List(Of String)() From { _
"Technology", _
"Design" _
}
employees.Add(emp1)
' Employee 2 Data
Dim emp2 As New Employee()
emp2.Name = "Employee 2"
emp2.IsPermanent = False
emp2.Departments = New List(Of String)() From { _
"Technology" _
}
employees.Add(emp2)

Once the List<Employee> data is available , pass it to the JsonConvert.Serialize method as shown below.

' Convert the collection to Json string
Dim jsonData As String = JsonConvert.SerializeObject(employees)

Below is the complete code snippet that is used  in this blog post for serializing the collection in VB.NET.

Imports Newtonsoft.Json

Module Module1

    Sub Main()
        Dim jsonData = SerializeCollection()
        Console.WriteLine("Serialized Data : " & vbLf + jsonData)
        Console.ReadLine()
    End Sub
    Public Function SerializeCollection() As String
        Dim employees As New List(Of Employee)()
        'Employee 1 Data
        Dim emp1 As New Employee()
        emp1.Name = "Employee 1"
        emp1.IsPermanent = True
        emp1.Departments = New List(Of String)() From { _
            "Technology", _
            "Design" _
        }
        employees.Add(emp1)
        ' Employee 2 Data
        Dim emp2 As New Employee()
        emp2.Name = "Employee 2"
        emp2.IsPermanent = False
        emp2.Departments = New List(Of String)() From { _
            "Technology" _
        }
        employees.Add(emp2)
        ' Convert the collection to Json string
        Dim jsonData As String = JsonConvert.SerializeObject(employees)
        Return jsonData
    End Function



End Module
Public Class Employee
    Public Property Name() As String
        Get
            Return m_Name
        End Get
        Set
            m_Name = Value
        End Set
    End Property
    Private m_Name As String
    Public Property IsPermanent() As Boolean
        Get
            Return m_IsPermanent
        End Get
        Set
            m_IsPermanent = Value
        End Set
    End Property
    Private m_IsPermanent As Boolean
    ' Employee can belong to multiple departments
    Public Property Departments() As List(Of String)
        Get
            Return m_Departments
        End Get
        Set
            m_Departments = Value
        End Set
    End Property
    Private m_Departments As List(Of String)
End Class

How to Get the Computer Name using VB.NET?

by Leave a Comment

Below is a sample code snippet that demonstrates how to get the current computer name using VB.NET?

How to Get the Computer Name using VB.NET?

Module AC
    Sub Main()
        Dim ComputerName As String
        ComputerName = GetCurrentComputerName()
        Console.WriteLine(ComputerName)
        Console.ReadLine()
    End Sub
  Function GetCurrentComputerName() As String
        Return My.Computer.Name.ToString()
    End Function
End Module

How to Make Single Instance Application for VB.NET Application in Visual Studio 2012?

by Leave a Comment

When developing a Windows Application in VB.NET, there are times when you want to make your application as single instance application. You can do that easily with just few steps in your VB.NET project.

How to Make Single Instance Application for VB.NET Application in Visual Studio 2012?

  • Launch Visual Studio 2012 and Open your VB.NET Windows Application.
  • Right Click on the project in the Visual Studio 2012 Solution Explorer and click properties in the context menu.
  • In the Project Properties Dialog, select the option “Make single instance application” from the Application tab.
  • Save the project, compile it and run it. You are done. Your application is a single instance application 🙂

How to Enable or Disable Visual Styles in your VB.NET Winforms Application?

by Leave a Comment

You can enable or Disable the Visual Styles in your VB.NET Winforms Application by following the below steps.

How to Enable or Disable Visual Styles in your VB.NET Winforms Application?

1. Launch Visual Studio 2013 and Open your VB.NET Project.

2. Right Click on the project and open the Project Properties.

3. In the Project Properties Dialog, Select the “Application” menu in the left sidebar and then “Uncheck” the option “Enable XP visual styles” to disable visual styles in your Winforms Application . Select it to enable the XP visual styles.

How to Enable or Disable Visual Styles in your VB.NET Winforms Application?

4. Save the project and you are done with enabling or disabling visual styles.