Articoli con tag ByVal

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

0
1 year ago un anno fà
Scritto da Luigi Melisi in 
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! " &amp; ex.Message
End Try
SendEmail = ReturnMessage
End Function

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

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

0
1 year ago un anno fà
Scritto da Luigi Melisi in 
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=" &amp; path &amp; ";"
Dim recs As New Data.DataTable()
DIm sql As New OleDbDataAdapter(sqlString, strConn)
sql.Fill(recs)
Return recs
End Function


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

VB.NET : Come contare le linee di un richtextbox

1
2 year ago anni fà
Scritto da Luigi Melisi in , , ,

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

last VB.NET : Come contare le linee di un richtextbox

Torna all'inizio