Results 1 to 6 of 6

Thread: this is a test...please disregard

  1. May 18th, 2005, 09:04 PM #1
    Eugene Wilson
    Eugene Wilson is offline

    Thread Starter
    Lively Member
    Join Date
    May 2005
    Posts
    108

    this is a test...please disregard

    Dim dhtmldoc As HTMLDocument
    Dim dhtmlbody As HTMLBody
    Dim DHTMLEC As HTMLElementCollection
    Dim DELEM As IHTMLElement
    Dim obj As Object


    ' Dim dhtmlelement As HTML

    Set dhtmldoc = WebPreview.Document
    Set dhtmlbody = WebPreview.Document.body


    Set dhtmlbody = WebPreview.Document.body

    ' dhtmlbody.outerHTML = "<h1>hi</h>"
    ' dhtmlbody.innerHTML = "<body><h1>there</h></body>"
    WebPreview.Navigate2 (ckRSlash(G_UserDir) + "comp.html")

    Call ClearWebPreview

    WebPreview.Document.body.insertAdjacentHTML "afterEnd", "<h1>there</h>"
    WebPreview.Document.body.insertAdjacentHTML "BeforeEnd", "<h1>tdddhere</h>"

    WebPreview.Document.body.insertAdjacentHTML "BeforeEnd", "<Table BORDER=2><TR><TD ID=MARK>hello</TD></TR></Table>"

    'Set DHTMLEC = WebPreview.Document.All("TD")
    'For Each OBJ In DHTMLEC
    ' Debug.Print
    'Next

    Dim hctableCellEC As IHTMLElementCollection
    'Dim hFontElement As IHTMLFontElement
    Dim hTableCell As HTMLTableCell
    Dim cellcounter As Integer

    cellcounter = 1
    Set hctableCellEC = WebPreview.Document.body.getElementsByTagName("TD")


    For Each hTableCell In hctableCellEC
    'Debug.Print "innertext" & hCell.innerText

    'hCell.Color
    If cellcounter = hctableCellEC.Length Then
    Call hTableCell.insertAdjacentHTML("BeforeEnd", "<TR><TD>holy moly</TD></TR>")
    Else
    cellcounter = cellcounter + 1
    End If
    Next
    cellcounter = 1
    Set hctableCellEC = WebPreview.Document.body.getElementsByTagName("TD")
    For Each hTableCell In hctableCellEC
    'Debug.Print "innertext" & hCell.innerText

    'hCell.Color
    If cellcounter = hctableCellEC.Length Then
    Call hTableCell.insertAdjacentHTML("BeforeEnd", "<TR><TD>holy moly</TD></TR>")
    Else
    cellcounter = cellcounter + 1
    End If
    Next
    Reply With Quote Reply With Quote
  2. May 18th, 2005, 09:08 PM #2
    Eugene Wilson
    Eugene Wilson is offline

    Thread Starter
    Lively Member
    Join Date
    May 2005
    Posts
    108

    Re: this is a test...please disregard

    test
    Reply With Quote Reply With Quote
  3. May 18th, 2005, 09:09 PM #3
    Eugene Wilson
    Eugene Wilson is offline

    Thread Starter
    Lively Member
    Join Date
    May 2005
    Posts
    108

    Re: this is a test...please disregard

    Reply With Quote Reply With Quote
  4. May 18th, 2005, 09:17 PM #4
    Bruce Fox
    Bruce Fox is offline
    INXSIVE Bruce Fox's Avatar
    Join Date
    Sep 2001
    Location
    Melbourne, Australia
    Posts
    7,429

    Re: this is a test...please disregard

    Eugene,

    There is a test Forum for this purpose here: http://www.vbforums.com/forumdisplay.php?f=39
    Reply With Quote Reply With Quote
  6. May 18th, 2005, 09:23 PM #5
    Sir Loin
    Sir Loin is offline
    Fanatic Member
    Join Date
    Mar 2005
    Posts
    537

    Re: this is a test...please disregard

    What exactly do you test in the test forum?
    Reply With Quote Reply With Quote
  7. May 18th, 2005, 09:38 PM #6
    MartinLiss
    MartinLiss is offline
    Former Admin/Moderator MartinLiss's Avatar
    Join Date
    Sep 1999
    Location
    San Jose, CA
    Posts
    33,431

    Re: this is a test...please disregard

    Quote Originally Posted by Sir Loin
    What exactly do you test in the test forum?
    Anything you want.

    BTW I moved this thread.
    Tips, Examples & Tutorials:
    A valuable forum tool • Generate unique TreeView keys • TreeView with "open" and "closed folder" icons • Time code using GetTickCount • How to trap the Tab key • Scroll a form • NumberBox ActiveX control • Color a ListView row • An InputBox form • How to use SaveSetting and GetSetting • A program registration scheme • Spellcheck a Textbox • Resize controls • Open Windows Explorer at Last Visited Path • A Blackjack Game • Count lines of code • Private Message Viewer • Copy/Paste VB Code • Paste VB Code Add-In • Insert Procedure Names Add-In • A calculator for the game of Spider • My review of REALbasic 2008 • VB6 Debug Tutorial • Picture/Video Viewer • VBF Photo Contest Winners


    2009 - 2016
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width