Module Module1
Sub Main()
' Create List.
Dim list As List(Of String) = New List(Of String)'list is a data type Of 'string means the list ois of type String
list.Add("dot")
list.Add("perls")
list.Add("net")
' Sort List.
list.Sort()'inbuilt sort method will sort elements
' Display sorted List contents.
Console.WriteLine(String.Join(" ", list))
End Sub
End Module
---------------------------------------------------------
Module Module1
Sub Main()
' Create Dictionary.
Dim dict As Dictionary(Of String, Integer) =
New Dictionary(Of String, Integer)
dict.Add("dot", 1)
dict.Add("net", 2)
dict.Add("perls", 3)
' Lookups.
Console.WriteLine(dict("dot"))
Console.WriteLine(dict("net"))
Console.WriteLine(dict("perls"))
End Sub
End Module
--------------------------------------------------------------------
'Stack implementaion in vb.net.
'he khup simple ahe
Module Module1
Sub Main()'just like main() in the c language
Dim stack As Stack(Of Integer) = New Stack(Of Integer)
stack.Push(10)
stack.Push(100)
stack.Push(1000)
' Display stack elements.
For Each value As Integer In stack
'for each mean every element will be iterated for all stack elements .
'just like for in C,but with small diffrrence
Console.WriteLine(value)
Next
End Sub
End Module
-----------------------------
'The StringBuilder class is used to append the strings
Imports System.Text
Module Module1
Sub Main()
' Declare new StringBuilder Dim
Dim builder As New StringBuilder
' Append a string to the StringBuilder
builder.Append("Here is the list:")
' Append a line break
builder.AppendLine()
' Append a string and then another line break
builder.Append("1 dog").AppendLine()
' Get internal String value from StringBuilder
Dim s As String = builder.ToString
' Write output
Console.WriteLine(s)
Console.ReadLine()
End Sub
End Module
------------------------------------
'buider replace()
Imports System.Text
Module Module1
Sub Main()
Dim builder As New StringBuilder("Initialize the StringBuilder.")
builder.Replace("the", "my")
Console.WriteLine(builder.ToString)
Console.ReadLine()
End Sub
End Module
-----------------------------------------------------
'The Html file writen at runtime through this
Imports System.IO
Imports System.Web.UI
Imports System.IO
Imports System.Web.UI
Module Module1
Dim _words As String() = {"dot", "net", "perls"}
Function GetDivElements() As String
Using sw As StringWriter = New StringWriter
Using ht As HtmlTextWriter = New HtmlTextWriter(sw)
For Each word As String In _words
' Create the div.
ht.AddAttribute(HtmlTextWriterAttribute.Class, "c")
ht.RenderBeginTag(HtmlTextWriterTag.Div)
' Create the a.
ht.AddAttribute(HtmlTextWriterAttribute.Href, word)
ht.RenderBeginTag(HtmlTextWriterTag.A)
' Create the img.
ht.AddAttribute(HtmlTextWriterAttribute.Src, word + ".png")
ht.AddAttribute(HtmlTextWriterAttribute.Width, "200")
ht.AddAttribute(HtmlTextWriterAttribute.Height, "150")
ht.RenderBeginTag(HtmlTextWriterTag.Img)
' End all the tags.
ht.RenderEndTag()
ht.RenderEndTag()
ht.RenderEndTag()
Next
End Using
Return sw.ToString()
End Using
End Function
Sub Main()
Console.WriteLine(GetDivElements())
End Sub
End Module
'output
<div class="c">
<a href="dot"><img src="dot.png" width="200" height="150" /></a>
</div><div class="c">
<a href="net"><img src="net.png" width="200" height="150" /></a>
</div><div class="c">
<a href="perls"><img src="perls.png" width="200" height="150" /></a>
</div>
----------------------------------------------------------
Module Module1
Sub Main()
' Locals used in Do While loop.
Dim i As Integer = 100
Dim z As Integer = 0
' Loop.
Do While i >= 0 And z <= 20
Console.WriteLine("i = {0}, z = {1}", i, z)
i = i - 10
z = z + 3
Loop
End Sub
End Module
------------------------------------------------------
'sqauare root
Module Module1
REM This is Module1.
''' <summary>
''' This is an XML comment.
''' </summary>
''' <remarks>Called at program start.</remarks>
Sub Main()
REM Get square root of 225.
Dim value As Double = Math.Sqrt(225)
' Print value. (Other comment syntax.)
' ... Sometimes it helps to indent comments.
Console.WriteLine(value)
End Sub
End Module
-----------------------
'date
Module Module1
Sub Main()
' Write the today value.
Console.WriteLine("Today: {0}", DateTime.Today)
' Subtract one day.
Dim yesterday As DateTime = DateTime.Today.AddDays(-1)
' Write the yesterday value.
Console.WriteLine("Yesterday: {0}", yesterday)
End Sub
End Module
'
Module Module1
Sub Main()
' Write first day of current year.
Console.WriteLine("First day: {0}", FirstDayOfYear)
' Write first day of 1999.
Dim y As New DateTime(1999, 6, 1)
Console.WriteLine("First day of 1999: {0}", FirstDayOfYear(y))
End Sub
''' <summary>
''' Get first day of the current year.
''' </summary>
Private Function FirstDayOfYear() As DateTime
Return FirstDayOfYear(DateTime.Today)
End Function
''' <summary>
''' Get first day of the specified year.
''' </summary>
Private Function FirstDayOfYear(ByVal y As DateTime) As DateTime
Return New DateTime(y.Year, 1, 1)
End Function
----------------------------
Windows Application in vb.net
Module Module1
Sub Main()
' Write first day of current year.
Console.WriteLine("First day: {0}", FirstDayOfYear)
' Write first day of 1999.
Dim y As New DateTime(1999, 6, 1)
Console.WriteLine("First day of 1999: {0}", FirstDayOfYear(y))
End Sub
''' <summary>
''' Get first day of the current year.
''' </summary>
Private Function FirstDayOfYear() As DateTime
Return FirstDayOfYear(DateTime.Today)
End Function
''' <summary>
''' Get first day of the specified year.
''' </summary>
Private Function FirstDayOfYear(ByVal y As DateTime) As DateTime
Return New DateTime(y.Year, 1, 1)
End Function
====================================================
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'
' Fill in the data grid on form load.
'
DataGridView1.DataSource = GetDataTable()
End Sub
Private Function GetDataTable() As DataTable
'
' This Function needs to build the data table.
'
Return New DataTable()
End Function
End Class
========================================
'regexfor expression matching
Imports System.Text.RegularExpressions
Module Module1
Sub Main()
' Input string.
Dim input As String = "Dot Net Not Perls"
' Use Regex.Replace with string arguments.
Dim output As String = Regex.Replace(input, "N.t", "NET")
' Print.
Console.WriteLine(input)
Console.WriteLine(output)
End Sub
End Module
