Luigi Melisi » VB.NET

Luigi Melisi » VB.NET http://www.luigimelisi.com Development Blog : C# Code Samples,.NET Tips and Tricks Thu, 03 Mar 2011 09:01:56 +0000 en hourly 1 http://wordpress.org/?v= [VB.NET] : Inviare una mail in formato HTML http://www.luigimelisi.com/tips-and-tricks/vb-net-inviare-una-mail-in-formato-html.html?utm_source=rss&utm_medium=rss&utm_campaign=vb-net-inviare-una-mail-in-formato-html http://www.luigimelisi.com/tips-and-tricks/vb-net-inviare-una-mail-in-formato-html.html#comments Sat, 20 Mar 2010 00:58:34 +0000 Luigi Melisi http://www.luigimelisi.com/?p=713 Function SendEmail(ByVal ToAddress As String, ByVal FromAddress As String, ByVal MessageSubject As String, ByVal MessageBody As String) Dim MessageHead As String = "<html><head>" MessageHead = MessageHead & "<style " MessageHead = MessageHead & "body {background-color:#F7F7F7; color:#000; font-family:arial,verdana,sans-serif; font-size:12px;}" MessageHead = MessageHead & "</style></head></body>" Dim MessageFoot As String = "</body></html>" 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

]]> http://www.luigimelisi.com/tips-and-tricks/vb-net-inviare-una-mail-in-formato-html.html/feed 0 [VB.NET] : Popolare una DataTable con un file CVS http://www.luigimelisi.com/tips-and-tricks/vb-net-popolare-una-datatable-con-un-file-cvs.html?utm_source=rss&utm_medium=rss&utm_campaign=vb-net-popolare-una-datatable-con-un-file-cvs http://www.luigimelisi.com/tips-and-tricks/vb-net-popolare-una-datatable-con-un-file-cvs.html#comments Sat, 20 Mar 2010 00:54:39 +0000 Luigi Melisi http://www.luigimelisi.com/?p=711 Di seguito un semplice esempio che mostra come popolare un DataTable utilizzando Vb.Net :

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</pre>

]]> http://www.luigimelisi.com/tips-and-tricks/vb-net-popolare-una-datatable-con-un-file-cvs.html/feed 0 [VB.NET] : Accesso in lettura ad una DataTable http://www.luigimelisi.com/tips-and-tricks/vb-net-accesso-in-lettura-ad-una-datatable.html?utm_source=rss&utm_medium=rss&utm_campaign=vb-net-accesso-in-lettura-ad-una-datatable http://www.luigimelisi.com/tips-and-tricks/vb-net-accesso-in-lettura-ad-una-datatable.html#comments Sat, 20 Mar 2010 00:50:35 +0000 Luigi Melisi http://www.luigimelisi.com/?p=709

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=" &amp; path &amp; ";"
Dim recs As New Data.DataTable()
DIm sql As New OleDbDataAdapter(sqlString, strConn)
sql.Fill(recs)
Return recs
End Function

]]> http://www.luigimelisi.com/tips-and-tricks/vb-net-accesso-in-lettura-ad-una-datatable.html/feed 0 [VB.NET] : Individuare tutte le stampanti installate http://www.luigimelisi.com/tips-and-tricks/individuare-tutte-le-stampanti-installate.html?utm_source=rss&utm_medium=rss&utm_campaign=individuare-tutte-le-stampanti-installate http://www.luigimelisi.com/tips-and-tricks/individuare-tutte-le-stampanti-installate.html#comments Sat, 20 Mar 2010 00:45:01 +0000 Luigi Melisi http://www.luigimelisi.com/?p=706

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

]]> http://www.luigimelisi.com/tips-and-tricks/individuare-tutte-le-stampanti-installate.html/feed 0 VB.NET : Come Invertire una stringa http://www.luigimelisi.com/programmazione/net_framework/vb-net-come-invertire-una-stringa.html?utm_source=rss&utm_medium=rss&utm_campaign=vb-net-come-invertire-una-stringa http://www.luigimelisi.com/programmazione/net_framework/vb-net-come-invertire-una-stringa.html#comments Wed, 20 Jan 2010 20:37:10 +0000 Luigi Melisi http://www.luigimelisi.com/?p=619 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

]]> http://www.luigimelisi.com/programmazione/net_framework/vb-net-come-invertire-una-stringa.html/feed 0 VB.NET : Una comoda barra di avanzamento http://www.luigimelisi.com/programmazione/net_framework/vb-net-una-comoda-barra-di-avanzamento.html?utm_source=rss&utm_medium=rss&utm_campaign=vb-net-una-comoda-barra-di-avanzamento http://www.luigimelisi.com/programmazione/net_framework/vb-net-una-comoda-barra-di-avanzamento.html#comments Wed, 20 Jan 2010 20:34:43 +0000 Luigi Melisi http://www.luigimelisi.com/?p=617

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

]]> http://www.luigimelisi.com/programmazione/net_framework/vb-net-una-comoda-barra-di-avanzamento.html/feed 0 VB.NET : Come contare le linee di un richtextbox http://www.luigimelisi.com/programmazione/net_framework/vb-net-contare-le-linee-di-un-richtextbox.html?utm_source=rss&utm_medium=rss&utm_campaign=vb-net-contare-le-linee-di-un-richtextbox http://www.luigimelisi.com/programmazione/net_framework/vb-net-contare-le-linee-di-un-richtextbox.html#comments Wed, 20 Jan 2010 20:28:39 +0000 Luigi Melisi http://www.luigimelisi.com/?p=614 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

]]> http://www.luigimelisi.com/programmazione/net_framework/vb-net-contare-le-linee-di-un-richtextbox.html/feed 1