Archivio per il tag: sub

Protected Overrides Sub ChargeImpresoras() Dim lPrintDoc As New Printing.PrintDocument Dim lPrinter As Object For Each lPrinter In PrinterSettings.InstalledPrinters cboPrinters.Items.Add(lPrinter) Next End Sub

[sourcecode language=”vb”] Module RevString Sub Main() Dim inputString As String = Console.ReadLine() ReverseOrder(inputString) End Sub Private Sub ReverseOrder(ByVal textInput As String) Dim text2Rev As String = textInput Dim reversed As String Dim charArray() As Char = textInput.ToCharArray() Array.Reverse(charArray) reversed = charArray Console.WriteLine("") Console.WriteLine("Testo originale: " + text2Rev) Console.WriteLine("Testo invertito: " + reversed) End Sub End Module [/sourcecode]

L'esempio riportato di seguito mostra come contare le linee di un RichTextbox utilizzando Vb.Net :