Luigi Melisi » sub

[VB.NET] : Individuare tutte le stampanti installate

Luigi Melisi — Sat, 20 Mar 2010 00:45:01 +0000

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

VB.NET : Come Invertire una stringa

Luigi Melisi — Wed, 20 Jan 2010 20:37:10 +0000

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

VB.NET : Come contare le linee di un richtextbox

Luigi Melisi — Wed, 20 Jan 2010 20:28:39 +0000

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

private sub countlines(byval rtb as richtextbox)
          dim count as string
          count = rtb.lines.count
          msgbox(count)
end sub