Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Private Constructor

Public Class Util   Private Sub New()   End Sub   Public Shared Function QuoteIt(ToQuote as String, Author As String) As String     Return ToQuote + "  - " + Author   End Function      Public Shared Function UpperLower(ToChange as String) As String     Dim i as Integer     Dim stringBuilder as New Text.StringBuilder(ToChange)     For i = 0 To ToChange.Length - 1         stringBuilder.Chars(i) = Char.ToUpper(stringBuilder.Chars(i))     Next     Return stringBuilder.ToString()   End Function End Class Module Test   Sub Main     Console.WriteLine(Util.QuoteIt("A", "B"))     Console.WriteLine(Util.UpperLower("AAaa"))   End Sub End Module A - B AAAA