Attribute VB_Name = "finestra_messaggio_html"
'
Option Explicit
'
' vba - funzione finestra messaggio in html - v. 1.0
'
'
Sub uso_FinestraMessaggioHtml()
Dim testomessaggio
testomessaggio = ""
testomessaggio = testomessaggio & "prima riga msg" & vbCrLf
testomessaggio = testomessaggio & "seconda riga msg" & vbCrLf
testomessaggio = testomessaggio & "terza riga msg" & vbCrLf
'
Call FinestraMessaggioHtml(testomessaggio)
'
End Sub
'
Sub FinestraMessaggioHtml(testomessaggio)
'
Dim testo
testo = Replace(testomessaggio, vbCrLf, "<br>")
'
Dim istrhtml, ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "about:blank" ' do this first!
ie.Visible = True
ie.Height = 350
ie.Width = 550
ie.MenuBar = False
ie.Toolbar = False
ie.StatusBar = False
ie.resizable = True
' istruzioni html
istrhtml = ""
istrhtml = istrhtml + "<html>"
istrhtml = istrhtml + "<head><title></title>"
istrhtml = istrhtml + "</head><body><center><br><strong></strong><br>"
istrhtml = istrhtml + testo ' testo del messaggio
istrhtml = istrhtml + "</center></body></html>"
ie.document.body.innerHTML = istrhtml
Set ie = Nothing
'
End Sub
Nessun commento:
Posta un commento