vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

Visual-Basic Einsteiger
Re: MSHTML.HTMLDocument *erstellen* incl. Head Element / Div Element / Tabelle 
Autor: woerny
Datum: 31.07.18 23:50
Hallo Souffleurlos,

das bringt mich leider gar nicht weiter.
Inzwischen bin ich etwas weiter, aber immer noch nicht am Ziel. 

Private Sub createHTMLDoc()
    Dim objDocument As MSHTML.HTMLDocument
    Dim objHead As MSHTML.HTMLHeadElement
    Dim objLink As MSHTML.HTMLLinkElement
 
    Dim objTable As MSHTML.HTMLTable
    Dim objRow As MSHTML.HTMLTableRow
    Dim objCell As MSHTML.HTMLTableCell
 
    Dim i As Integer, j As Integer
    Dim intCount As Integer
 
    Dim objCellWrapper As clsCellWrapper
    Set colCells = New Collection
    Set objDocument = objWebbrowser.Document
 
    objWebbrowser.Document.Clear
    Set objHead = objDocument.createElement("head")
                  objDocument.head.appendChild objHead
 
    Set objLink = objDocument.createElement("link")
        objLink.setAttribute "rel", "stylesheet"
        objLink.setAttribute "type", "text/css"
        objLink.setAttribute "href", ".Daten/myDefault.css"
 
        objDocument.head.appendChild objLink
 
 
    Set objTable = objDocument.createElement("Table")
                   objDocument.body.appendChild objTable
        objTable.Style.borderCollapse = "collapse"
 
    Set objRow = objTable.insertRow
            For j = 1 To 8
                intCount = intCount + 1
 
            Set objCell = objRow.insertCell
            With objCell
                 .setAttribute "id", "kwBU" & i & j
                 .innerText = intCount
            End With
 
            Set objCellWrapper = New clsCellWrapper
            With objCellWrapper
                Set .Cell = objCell
            End With
 
            colCells.Add objCellWrapper
 
        Next j
 
 
    Set objRow = objTable.insertRow
            For j = 1 To 7
                intCount = intCount + 1
            Set objCell = objRow.insertCell
            With objCell
                .setAttribute "id", "kwBG" & i & j
                .innerText = intCount
            End With
 
            Set objCellWrapper = New clsCellWrapper
 
            With objCellWrapper
                Set .Cell = objCell
            End With
            colCells.Add objCellWrapper
        Next j
End Sub
Jetzt wird "Head" erzeugt, aber leider nicht korrekt. 
<HEAD></HEAD><LINK rel=stylesheet type=text/css href=".Daten/myDefault.css">
- Head erzeugt und geschlossen
- dann der LINK
- Setzung der " Gänsefüsschen " falsch

Gruß
Werner



alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
MSHTML.HTMLDocument *erstellen* incl. Head Element / Div Ele...2.106woerny31.07.18 12:10
Re: MSHTML.HTMLDocument *erstellen* incl. Head Element / Div...1.399Souffleurlos31.07.18 18:06
Re: MSHTML.HTMLDocument *erstellen* incl. Head Element / Div...1.444woerny31.07.18 23:50
Re: MSHTML.HTMLDocument *erstellen* incl. Head Element / Div...1.382Souffleurlos01.08.18 18:12
Re: MSHTML.HTMLDocument *erstellen* incl. Head Element / Div...1.366Franki03.08.18 02:39
Re: MSHTML.HTMLDocument *erstellen* incl. Head Element / Div...1.393woerny03.08.18 12:46
Re: MSHTML.HTMLDocument *erstellen* incl. Head Element / Div...1.419Franki05.08.18 02:48
Re: MSHTML.HTMLDocument *erstellen* incl. Head Element / Div...1.367W. Wolf20.08.18 14:10

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-2024 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