Luigi Melisi » VB.NET

[VB.NET] : Inviare una mail in formato HTML

Luigi Melisi — Sat, 20 Mar 2010 00:58:34 +0000

Function SendEmail(ByVal ToAddress As String, ByVal FromAddress As String, ByVal MessageSubject As String, ByVal MessageBody As String)
Dim MessageHead As String = ""
MessageHead = MessageHead & ""
Dim MessageFoot As String = ""
MessageBody = MessageHead & MessageBody & MessageFoot
Dim ReturnMessage As String = ""
Dim mm As New MailMessage(FromAddress, ToAddress)
Dim smtp As New SmtpClient
mm.Subject = MessageSubject
mm.Body = MessageBody
mm.IsBodyHtml = True
Try
smtp.Host = "0.0.0.0" 'ADD HOST IP
smtp.Send(mm)
ReturnMessage = "La mail è stata inviata"
Catch ex As Exception
ReturnMessage = "Spiacente, c’è stato un problema! " & ex.Message
End Try
SendEmail = ReturnMessage
End Function

[VB.NET] : Popolare una DataTable con un file CVS

Luigi Melisi — Sat, 20 Mar 2010 00:54:39 +0000

  Function ReadCSV(ByVal path As String) As System.Data.DataTable
Dim sr As New StreamReader(path)
Dim fullFileStr As String = sr.ReadToEnd()
sr.Close()
sr.Dispose()
Dim lines As String() = fullFileStr.Split(ControlChars.Lf)
Dim recs As New DataTable()
Dim sArr As String() = lines(0).Split(","c)
For Each s As String In sArr
recs.Columns.Add(New DataColumn())
Next
Dim row As DataRow
Dim finalLine As String = ""
For Each line As String In lines
row = recs.NewRow()
finalLine = line.Replace(Convert.ToString(ControlChars.Cr), "")
row.ItemArray = finalLine.Split(","c)
recs.Rows.Add(row)
Next
Return recs
End Function

[VB.NET] : Accesso in lettura ad una DataTable

Luigi Melisi — Sat, 20 Mar 2010 00:50:35 +0000

Function ReadAccess(ByVal sqlString As String, ByVal path As String) As System.Data.DataTable
Dim strConn As String = _"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";"
Dim recs As New Data.DataTable()
DIm sql As New OleDbDataAdapter(sqlString, strConn)
sql.Fill(recs)
Return recs
End Function

[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 : Una comoda barra di avanzamento

Luigi Melisi — Wed, 20 Jan 2010 20:34:43 +0000

frmMDIParent.ToolStripProgressBar1.Value = 0
frmMDIParent.ToolStripProgressBar1.Visible = True
For i As Integer = 0 To frmMDIParent.ToolStripProgressBar1.Maximum ‐ 1
frmMDIParent.ToolStripProgressBar1.Value = frmMDIParent.ToolStripProgressBar1.Value + 1
Next

VB.NET : Come contare le linee di un richtextbox

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

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