Switin Kotian

Public Class Form1     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load     End Sub     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         Dim Car As New Cars         Car.Engine = "Renault"         Car.SeatingCapacity = 5         Car.BHP = 5000         Car.Color = Color.Black         Car.Type = InheritanceSample.Cars.CarType.Sedan  'This from Child Class         Car.GetMaxSpeed()  ' Will Return 0         Dim Bus As New Buses         Bus.Engine = "VOLVO"         Bus.SeatingCapacity = 25         Bus.BHP = 8000         Bus.Color = Color.Yellow         Bus.IsFrontLoadingEngine = False 'This from Child Class ...

Shared / Static Class in vb.net/C# VB.net     : Shared C#            : Static You can’t create object of Shared Class Below Image show Properties and Method are not visible for Shared/Static Class Public Class Form1     Private Sub Button1_Click(sender As Object , e As EventArgs ) Handles Button1.Click         'Module is VB.net are Shared Type Class.         'Shared Class Example is ARC.Tools.GRIDManager         'When Class s Defined as Shared There no need to create object of Class.         'If you just want to create a class that you can't inherit, in C# you can use         ' Sealed, and in VB.Net use NotInheritable.         'The VB.Net equivalent of s...

Public Class Form1     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load     End Sub     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         Dim DE As New DataEntry()         Dim IC As IConnect         Dim isConnected As Boolean         Dim strServerType As String         IC = DE.SourceServer("O")         isConnected = IC.IsConnected         strServerType = IC.ServerType         IC = DE.SourceServer("S")         isConnected = IC.IsConnected         strServerType = IC.ServerType         IC = DE.SourceServer("M")         isConnected = IC.IsConnected         strServerType = IC.ServerType     End Sub E...

Public Class Form1     Private Sub Button1_Click(sender As Object , e As EventArgs ) Handles Button1.Click         Dim C As New Calculate         Label1.Text = C.ShowValue(10, 10, Calculate . Perform .Add)     End Sub End Class Public Class Calculate     Public Enum Perform         Add = 0         Subtract = 1         Divide = 2         Square = 3     End Enum     Private Delegate Function CalcDel (A As Integer , B As Integer ) As Integer     Dim L As New List ( Of CalcDel )     Public Function ShowValue(A As Integer , B As Integer , Action As Perform ) As Integer      ...