vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: HTML text anzeigen 
Autor: OGGI
Datum: 22.02.16 18:22
Howdy Dany,
mit dieser universellen Vorlage, wird der Inhalt der Textdatei "HTMLtext.txt" als HTML-Site im Microsoft Internet Control angezeigt. 

Private Sub Command1_Click()
 
    ' Benötigt wird:
    ' Command1 (Caption "Show as HTML")
    ' Microsoft Internet Controls mit Namen "WebBrowser1"
 
    On Error GoTo errhandler
 
    Dim ff As Integer
    Dim HTMLtext As String
    Dim HTMLcode As String
 
    'text laden
    ff = FreeFile
    If Dir(App.Path & "\HTMLtext.txt") <> "" Then
        Open App.Path & "\HTMLtext.txt" For Binary As #ff
            HTMLtext = String(LOF(ff), 0)
            Get #ff, , HTMLtext
        Close #ff
    End If
 
    'head
    HTMLcode = HTMLcode & "<head>" & vbCrLf
    HTMLcode = HTMLcode & "<meta http-equiv=""content-language""" & _
      "content=""de"">" & vbCrLf
    HTMLcode = HTMLcode & "<title>""Hallo Welt""</title>" & vbCrLf
    HTMLcode = HTMLcode & "</head>" & vbCrLf
 
    'body
    HTMLcode = HTMLcode & "<body style=""font-family: Helvetica, Arial;" & _
      "font-size:10pt; font-weight:none;"">" & vbCrLf
    HTMLcode = HTMLcode & "<h1 align=""center""" & _
    "style=""color:#adc9de"">""Hallo Welt""</h1>" & vbCrLf
    'deinen text übernehmen
    HTMLcode = HTMLcode & HTMLtext
 
    'fussbereich
    HTMLcode = HTMLcode & "erstellt von <a href=""http://www.oggisoft.de/""" & _
      "target=""_blank"">OGGISOFT</a>" & vbCrLf
    HTMLcode = HTMLcode & "</div>" & vbCrLf
    HTMLcode = HTMLcode & "<br>" & vbCrLf
    HTMLcode = HTMLcode & "</body>" & vbCrLf
    HTMLcode = HTMLcode & "</html>" & vbCrLf
 
    'html speichern
    ff = FreeFile
    Open App.Path & "\HTMLcode.html" For Output As #ff
        Print #ff, HTMLcode
    Close #ff
    DoEvents
 
    'html laden und anzeigen
    WebBrowser1.Navigate App.Path & "\HTMLcode.html"
 
    Exit Sub
errhandler:
    MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error"
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
HTML text anzeigen1.450wyssnet21.02.16 20:47
Re: HTML text anzeigen784Blackbox22.02.16 18:10
Re: HTML text anzeigen770wyssnet22.02.16 18:18
Re: HTML text anzeigen779OGGI22.02.16 18:22
Re: HTML text anzeigen812wyssnet22.02.16 18:28

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel