Development Blog : C# Code Samples,.NET Tips and Tricks
Articoli con tag VB.NET
[VB.NET] : Inviare una mail in formato HTML
01 year ago un anno fà
Scritto da Luigi Melisi
in Tips and Tricks
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
![last [VB.NET] : Inviare una mail in formato HTML](http://images.youbuy.it/adv/last.jpg "YouBuy.it - Last Minute - Offerte Sottocosto")
[VB.NET] : Popolare una DataTable con un file CVS
01 year ago un anno fà
Scritto da Luigi Melisi
in Tips and Tricks
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>
[VB.NET] : Accesso in lettura ad una DataTable
01 year ago un anno fà
Scritto da Luigi Melisi
in Tips and Tricks
1 2 3 4 5 6 7 | 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
01 year ago un anno fà
1 2 3 4 5 6 7 | 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
02 year ago anni fà
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
12 year ago anni fà
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