WebｿｽuｿｽｿｽｿｽEｿｽUｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌ擾ｿｽ[ｿｽﾜでスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは？

ｿｽ@

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

FD 2008/11/11(ｿｽｿｽ) 16:06:24

ｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB

http://homepage1.nifty.com/MADIA/vb/vb_bbs/200505/200505_05050074.html
ｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽOｿｽﾌ、ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽgｿｽせｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾊ、ｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽoｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽがウｿｽCｿｽｿｽｿｽhｿｽEｿｽｿｽ
ｿｽｿｽｿｽﾌ包ｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽﾌ包ｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽﾗてゑｿｽｿｽｿｽｿｽｿｽAMSDNｿｽﾌ「scrollIntoViewｿｽvｿｽﾌ会ｿｽｿｽ(http://msdn.microsoft.com/ja-jp/library/cc428162.aspx)ｿｽﾉ、
scrollIntoViewｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ茨ｿｽｿｽｿｽｿｽｿｽ TRUE ｿｽｿｽwｿｽ閧ｷｿｽｿｽﾎ出ｿｽｿｽｿｽｿｽﾆ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽATRUE ｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽｿｽ[ｿｽﾜでスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
TRUE ｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽ False ｿｽwｿｽ閧ｵｿｽﾄゑｿｽｿｽｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ?

ｿｽﾊの包ｿｽｿｽ@ｿｽﾅゑｿｽ¥ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾌで、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌほどゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/11/14(ｿｽｿｽ) 11:19:04

scrollIntoView ｿｽｿｽｿｽﾌゑｿｽﾌは、
ｿｽ@http://www.millionwaves.com/200501110821.html
ｿｽﾌようｿｽﾉ難ｿｽｿｽすｿｽｿｽnｿｽYｿｽﾅゑｿｽｿｽB(ｿｽｿｽｿｽｿｽｿｽﾈ暦ｿｽｿｽｿｽｿｽｿｽ true ｿｽﾌ難ｿｽｿｽｿｽ)

> ｿｽｿｽｿｽｿｽｿｽｿｽｿｽATRUE ｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽｿｽ[ｿｽﾜでスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ出ｿｽﾄゑｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽ示ゑｿｽｿｽ骼厄ｿｽﾍでゑｿｽｿｽﾜゑｿｽｿｽｿｽ?
(ｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは奇ｿｽｿｽﾒ難ｿｽｿｽしｿｽﾄゑｿｽｿｽﾜゑｿｽ)

Option Explicit

Private WithEvents Doc As HTMLDocument

Private Sub Form_Load()
    WebBrowser1.Navigate "http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200505/05050074.txt"
    Text1.Text = "2005/05/27(ｿｽｿｽ) 22:32:53"
    Option1(0).Value = True
    Option1(0).Caption = "ｿｽ纃ｿｽせ"
    Option1(1).Caption = "ｿｽｿｽｿｽｿｽｿｽせ"
    Command1.Enabled = False
End Sub

Private Sub Command1_Click()
    If Doc Is Nothing Then Exit Sub

    Dim oRng As IHTMLTxtRange
    Set oRng = Doc.body.createTextRange()

    If oRng.findText(Text1.Text) Then
        Dim toTop As Boolean
        toTop = Option1(0).Value
        oRng.scrollIntoView toTop
    End If
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Set Doc = Nothing
    Command1.Enabled = False
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set Doc = WebBrowser1.Document
    Command1.Enabled = True
End Sub

FD 2008/11/14(ｿｽｿｽ) 20:47:25

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ答有ｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾂゑｿｽﾗ具ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽ示ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽRｿｽ[ｿｽhｿｽ早托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ環具ｿｽｿｽﾅは、ｿｽIｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽuｿｽ纃ｿｽせｿｽvｿｽﾉゑｿｽｿｽﾄゑｿｽuｿｽｿｽｿｽｿｽｿｽせｿｽvｿｽﾉゑｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾂ具ｿｽｿｽﾍ「WinXPｿｽAVB5ｿｽAIE6ｿｽvｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽﾌ場合ｿｽA
http://homepage1.nifty.com/MADIA/vb/vb_bbs/200505/200505_05050074.html
ｿｽｿｽｿｽｿｽｿｽﾌ、ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽAｿｽﾙとゑｿｽﾇゑｿｽｿｽﾌまま奇ｿｽｿｽｿｽｿｽｿｽIEｿｽpｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

objRange.scrollIntoView True
ｿｽｿｽｿｽﾌ行ｿｽｿｽ True ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBFalse ｿｽﾉ指ｿｽ閧ｵｿｽﾄゑｿｽｿｽｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Private WithEvents Doc As HTMLDocument
Dim IE As Object

Private Sub Form_Load()
    Text1.Text = "2005/05/27(ｿｽｿｽ) 22:32:53"
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate2 "http://homepage1.nifty.com/MADIA/vb/vb_bbs/200505/200505_05050074.html"
    IE.Visible = True
End Sub

Private Sub Command1_Click()

    If IE Is Nothing Then Exit Sub

    Dim Doc As Object       'MSHTML.HTMLDocument
    Dim Body As Object      'MSHTML.HTMLBody
    Dim objRange As Object  'MSHTML.IHTMLTxtRange
    Dim BMK As String
    'Dim L As Long

    'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
    If Len(Text1.Text) = 0 Then Exit Sub

    Set Doc = IE.document
    Set Body = Doc.Body
    Set objRange = Body.createTextRange

    'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽJｿｽn
    'For L = 0 To 255
    '   If objRange.findText(Text1.Text) = False Then Exit For
    Do While objRange.findText(Text1.Text)
        'ｿｽﾅ擾ｿｽｿｽﾉ鯉ｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
        If Len(BMK) = 0 Then BMK = objRange.getBookmark

        'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFｿｽｿｽｿｽｿｽｿｽ]ｿｽｿｽｿｽｿｽｿｽｿｽB
        objRange.execCommand "BackColor", False, "YELLOW"

        'ｿｽ_ｿｽｿｽｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽﾊ置ｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ厄ｿｽｿｽｿｽｿｽﾉ移難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
        objRange.collapse False
    Loop
    'Next L
    'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽ

    'ｿｽﾂゑｿｽｿｽﾅに、ｿｽﾅ擾ｿｽｿｽﾉ鯉ｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽﾌ位置ｿｽﾜでスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
    If Len(BMK) Then
        objRange.moveToBookmark BMK
        objRange.scrollIntoView True 'ｿｽｿｽｿｽｿｽｿｽｿｽ True ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
    End If

    'ｿｽﾅ鯉ｿｽﾍ一応ｿｽAｿｽｿｽnｿｽｿｽｿｽｿｽB
    Set objRange = Nothing
    Set Body = Nothing
    Set Doc = Nothing
End Sub

ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽwｿｽｿｽｿｽﾌほどゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2008/11/14(ｿｽｿｽ) 21:53:59

> ｿｽﾂ具ｿｽｿｽﾍ「WinXPｿｽAVB5ｿｽAIE6ｿｽvｿｽﾅゑｿｽｿｽB

ｿｽﾂ具ｿｽｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽﾈ…? ｿｽｿｽｿｽｿｽｿｽｿｽﾍ、WinXP Pro/SP3ｿｽAVB6/SP6ｿｽAIE7 ｿｽﾅゑｿｽｿｽB

ｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾆで、ｿｽ闌ｳｿｽｿｽ Win2000 Pro/SPｿｽｿｽｿｽAVBｿｽｿｽｿｽAIE6/SP1 ｿｽﾆゑｿｽｿｽｿｽｿｽﾂ具ｿｽｿｽﾅ、
ｿｽｿｽﾙどゑｿｽ http://www.millionwaves.com/200501110821.html ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽA
ｿｽｿｽｿｽﾒ通ゑｿｽｿｽｿｽ/ｿｽｿｽｿｽﾉ移難ｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽmｿｽFｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽ痰､ｿｽﾌゑｿｽｿｽうｿｽcｿｽB

FD 2008/11/15(ｿｽy) 06:52:25

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽAｿｽxｿｽXｿｽLｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

> ｿｽﾂ具ｿｽｿｽﾉゑｿｽｿｽﾌゑｿｽｿｽﾈ…?
ｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽBｿｽﾂ具ｿｽｿｽﾉゑｿｽｿｽｿｽﾌなのでゑｿｽｿｽｿｽｿｽ轤ｿｽｿｽｿｽｿｽﾟようｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽざｿｽざｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽﾄ有ｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽAｿｽﾊの包ｿｽｿｽ@ｿｽｿｽﾍ搾ｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽATextRangeｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽ
ｿｽｿｽｿｽﾌようｿｽﾈプｿｽｿｽｿｽpｿｽeｿｽBｿｽ[ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
boundingLeft ,boundingTop ,boundingWidth ,boundingHeight ,offsetLeft ,offsetTop
ｿｽｿｽｿｽｿｽｿｽｿｽTextRangeｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ`ｿｽﾌサｿｽCｿｽYｿｽｿｽﾊ置ｿｽｿｽ謫ｾｿｽｿｽｿｽ驍ｽｿｽﾟのゑｿｽﾌらしｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾎ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾌ擾ｿｽ[ｿｽﾉ表ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌではなゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽA
ｿｽｿｽｿｽいｿｽ試ｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔ｭｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽﾜゑｿｽTextRangeｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ撰ｿｽﾎ位置ｿｽｿｽ謫ｾｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽｿｽ scrollTo ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅゑｿｽｿｽｿｽｿｽﾜでスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽﾎ位置ｿｽｿｽｿｽｿｽﾟるこｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾉ悩ｿｽｿｽﾅゑｿｽｿｽｿｽﾜゑｿｽｿｽB

boundingTop ｿｽｿｽｿｽｿｽﾎ位置ｿｽｿｽ¥ｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽ轤ｻｿｽｿｽｿｽﾅゑｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾆマｿｽCｿｽiｿｽXｿｽﾌ値ｿｽﾉなゑｿｽｿｽｿｽｿｽｿｽﾆよくｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

TextRangeｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ撰ｿｽﾎ位置ｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽﾉは擾ｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽ[ｿｽｿｽﾇゑｿｽｿｽvｿｽZｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

Hongliang 2008/11/15(ｿｽy) 11:23:19

Vista / IE7 / C# ｿｽ{ .NET 2.0 ｿｽｿｽ WebBrowser ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽ{ｿｽｿｽｿｽtｿｽｿｽｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽﾅのｿｽｿｽCｿｽgｿｽoｿｽCｿｽｿｽｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽﾄマｿｽjｿｽAｿｽbｿｽNｿｽﾈ環具ｿｽｿｽﾅ色ｿｽXｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽAITxtRange ｿｽﾌ指ｿｽｿｽｿｽﾍ囲ゑｿｽｿｽｿｽｿｽﾉ移難ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ ITxtRange ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ指ｿｽｿｽｿｽﾍ囲ゑｿｽｿｽｿｽ繧ｾｿｽｿｽｿｽｿｽｿｽ鼾ｿｽAscrollIntoView ｿｽﾌ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄとにゑｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾜでスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽがｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽ FALSE ｿｽｿｽﾝ定しｿｽｿｽｿｽﾌと難ｿｽｿｽｿｽｿｽ謔､ｿｽﾈ具ｿｽｿｽｿｽｿｽﾉなゑｿｽBｿｽｿｽｿｽｿｽｿｽﾉはほゑｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽｿｽﾇ。
ｿｽｿｽｿｽCｿｽﾃゑｿｽｿｽﾌ通ゑｿｽAoffsetTop ｿｽｿｽｿｽLｿｽｿｽｿｽﾉ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBoffsetTop ｿｽﾍ「ｿｽｿｽｿｽﾌ表ｿｽｿｽｿｽﾌ擾ｿｽ[ｿｽｿｽｿｽｿｽ IHTMLTxtRange ｿｽﾌ指ｿｽｿｽｿｽﾍ囲の擾ｿｽ[ｿｽﾜでの具ｿｽｿｽｿｽｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAbodyｿｽiIE ｿｽｿｽｿｽｿｽ DOCTYPE ｿｽｿｽｿｽ骭ｾｿｽｿｽｿｽｿｽﾄゑｿｽ鼾ｿｽｿｽ documentElement ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽjｿｽｿｽ scrollTop ｿｽｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾎゑｿｽｿｽ蛯､ｿｽｿｽ IHTMLTxtRange ｿｽﾌ指ｿｽｿｽｿｽﾍ囲の擾ｿｽ[ｿｽｿｽｿｽｿｽｿｽﾌ会ｿｽﾊの擾ｿｽ[ｿｽﾉゑｿｽｿｽ驍ｱｿｽﾆになゑｿｽﾜゑｿｽｿｽB

FD 2008/11/15(ｿｽy) 14:20:45

HongliangｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ答有ｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽFｿｽXｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽﾄ有ｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾆに会ｿｽｿｽLｿｽﾌようｿｽﾉゑｿｽｿｽﾄみゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽLｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽいｿｽｿｽﾈサｿｽCｿｽgｿｽﾅ趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍､ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾆ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽTｿｽCｿｽgｿｽﾉゑｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾝのスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ位置ｿｽﾉゑｿｽｿｽｿｽﾄ違うｿｽﾊ置ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB(ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾑに位置ｿｽｿｽｿｽﾏゑｿｽｿｽB)

> IE ｿｽｿｽｿｽｿｽ DOCTYPE ｿｽｿｽｿｽ骭ｾｿｽｿｽｿｽｿｽﾄゑｿｽ鼾ｿｽｿｽ documentElement ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ、ｿｽuownerDocumentｿｽvｿｽﾌゑｿｽｿｽﾆに「Bodyｿｽvｿｽｿｽtｿｽｿｽｿｽ驍ｩｿｽudocumentElementｿｽvｿｽtｿｽｿｽｿｽ驍ｩｿｽﾅ場合ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽ謔､ｿｽﾈとゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ場合ｿｽｿｽｿｽｿｽｿｽﾌ仕ｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽEｿｽHｿｽbｿｽ`ｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾅ「objRange.parentElement.ownerDocument.doctypeｿｽvｿｽﾌ値ｿｽ調べゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽﾇゑｿｽｿｽｿｽﾌ場合ｿｽｿｽ Nothing ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

Private WithEvents Doc As HTMLDocument
Dim IE As Object

Private Sub Form_Load()

    Dim url As String

''ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ1
'    Text1.Text = "Variant"
'    url = "http://homepage1.nifty.com/MADIA/vb/vb_bbs/200505/200505_05050074.html"

'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ2
    Text1.Text = "Basic"
    url = "http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1320299018"

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Navigate2 url
    IE.Visible = True

End Sub

Private Sub Command1_Click()

    If IE Is Nothing Then Exit Sub

    Dim Doc As Object       'MSHTML.HTMLDocument
    Dim Body As Object      'MSHTML.HTMLBody
    Dim objRange As Object  'MSHTML.IHTMLTxtRange
    Dim BMK As String
    'Dim L As Long

    'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
    If Len(Text1.Text) = 0 Then Exit Sub

    Set Doc = IE.document
    Set Body = Doc.Body
    Set objRange = Body.createTextRange

    'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽJｿｽn
    'For L = 0 To 255
    '   If objRange.findText(Text1.Text) = False Then Exit For
    Do While objRange.findText(Text1.Text)
        'ｿｽﾅ擾ｿｽｿｽﾉ鯉ｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
        If Len(BMK) = 0 Then BMK = objRange.getBookmark

        'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFｿｽｿｽｿｽｿｽｿｽ]ｿｽｿｽｿｽｿｽｿｽｿｽB
        objRange.execCommand "BackColor", False, "YELLOW"

        'ｿｽ_ｿｽｿｽｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽﾊ置ｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ厄ｿｽｿｽｿｽｿｽﾉ移難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
        objRange.collapse False
    Loop
    'Next L
    'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽ

    'ｿｽﾂゑｿｽｿｽﾅに、ｿｽﾅ擾ｿｽｿｽﾉ鯉ｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽﾌ位置ｿｽﾜでスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
    If Len(BMK) Then
        objRange.moveToBookmark BMK
'        objRange.scrollIntoView True 'ｿｽｿｽｿｽｿｽｿｽｿｽ True ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

        'objRange ｿｽﾌ位置ｿｽｿｽｿｽB
        z1 = objRange.boundingLeft
        z2 = objRange.boundingTop
        z3 = objRange.boundingWidth
        z4 = objRange.boundingHeight
        z5 = objRange.offsetLeft
        z6 = objRange.offsetTop

'ｿｽTｿｽCｿｽgｿｽﾉゑｿｽｿｽｿｽﾄ場合ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽB
'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆコｿｽ}ｿｽｿｽｿｽhｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾑに位置ｿｽｿｽｿｽﾏゑｿｽｿｽBｿｽﾂまゑｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ位置ｿｽﾉゑｿｽｿｽｿｽﾄ鯉ｿｽｿｽﾊゑｿｽｿｽﾏゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽB

''ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ1ｿｽvｿｽﾌとゑｿｽｿｽｿｽ
'        cw = objRange.parentElement.ownerDocument.Body.clientWidth 'Docｿｽﾌ表ｿｽｿｽｿｽﾌ茨ｿｽﾌクｿｽｿｽｿｽCｿｽAｿｽｿｽｿｽgｿｽﾌ茨ｿｽﾌサｿｽCｿｽYｿｽﾌ包ｿｽｿｽB
'        ch = objRange.parentElement.ownerDocument.Body.clientHeight 'Docｿｽﾌ表ｿｽｿｽｿｽﾌ茨ｿｽﾌクｿｽｿｽｿｽCｿｽAｿｽｿｽｿｽgｿｽﾌ茨ｿｽﾌサｿｽCｿｽYｿｽﾌ搾ｿｽｿｽｿｽｿｽB
'        z7 = objRange.parentElement.ownerDocument.Body.scrollLeft 'ｿｽｿｽｿｽﾝの撰ｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ位置
'        z8 = objRange.parentElement.ownerDocument.Body.scrollTop 'ｿｽｿｽｿｽﾝの撰ｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ位置

'ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ2ｿｽvｿｽﾌとゑｿｽｿｽｿｽ
        cw = objRange.parentElement.ownerDocument.documentElement.clientWidth 'Docｿｽﾌ表ｿｽｿｽｿｽﾌ茨ｿｽﾌクｿｽｿｽｿｽCｿｽAｿｽｿｽｿｽgｿｽﾌ茨ｿｽﾌサｿｽCｿｽYｿｽﾌ包ｿｽｿｽB
        ch = objRange.parentElement.ownerDocument.documentElement.clientHeight 'Docｿｽﾌ表ｿｽｿｽｿｽﾌ茨ｿｽﾌクｿｽｿｽｿｽCｿｽAｿｽｿｽｿｽgｿｽﾌ茨ｿｽﾌサｿｽCｿｽYｿｽﾌ搾ｿｽｿｽｿｽｿｽB
        z7 = objRange.parentElement.ownerDocument.documentElement.scrollLeft 'ｿｽｿｽｿｽﾝの撰ｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ位置
        z8 = objRange.parentElement.ownerDocument.documentElement.scrollTop 'ｿｽｿｽｿｽﾝの撰ｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ位置

        'ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾌ右ｿｽ[ｿｽｿｽｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾉ趣ｿｽｿｽﾜゑｿｽ謔､ｿｽﾉ抵ｿｽｿｽﾟゑｿｽｿｽﾄゑｿｽｿｽｿｽB
        objRange.parentElement.ownerDocument.parentWindow.scrollTo z7 + z5 - cw + z3, z8 + z6

    End If

    'ｿｽﾅ鯉ｿｽﾍ一応ｿｽAｿｽｿｽnｿｽｿｽｿｽｿｽB
    Set objRange = Nothing
    Set Body = Nothing
    Set Doc = Nothing
End Sub

Hongliang 2008/11/15(ｿｽy) 16:14:13

ｿｽｿｽｿｽｿｽﾈに托ｿｽRｿｽﾌペｿｽ[ｿｽWｿｽ調べゑｿｽｿｽけｿｽﾅはなゑｿｽｿｽﾌで、DOCTYPE ｿｽﾌ有ｿｽｿｽｿｽiｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝ奇ｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽjｿｽﾈ外ｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾍ確ｿｽFｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
> ｿｽTｿｽCｿｽgｿｽﾉゑｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾝのスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ位置ｿｽﾉゑｿｽｿｽｿｽﾄ違うｿｽﾊ置ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽ謔､ｿｽﾅゑｿｽ
ｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾌゑｿｽiｿｽｿｽｿｽｿｽﾝ奇ｿｽｿｽｿｽｿｽ[ｿｽhｿｽﾈ外ｿｽﾉ）ｿｽｿｽｿｽﾛゑｿｽcｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾌでコｿｽｿｽｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽ閧ｿｽｿｽｿｽｿｽｿｽAdocumentElement ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ
http://www.google.com/search?hl=ja&lr=lang_ja&oe=utf8&q=body+documentelement
ｿｽｿｽｿｽﾌ辺を調べてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

FD 2008/11/15(ｿｽy) 23:45:35

HongliangｿｽｿｽｿｽｿｽAｿｽLｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

compatMode ｿｽ調べるこｿｽﾆで場合ｿｽけｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB

compatMode ｿｽｿｽ "BackCompat" ｿｽﾌとゑｿｽｿｽﾍ、body ｿｽﾉなゑｿｽｿｽﾄ、
compatMode ｿｽｿｽ "CSS1Compat" ｿｽﾌとゑｿｽｿｽﾍ、documentElement ｿｽﾉなゑｿｽ謔､ｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽﾆゑｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ、ｿｽ痰ｦｿｽﾎ、ｿｽyｿｽ[ｿｽWｿｽｿｽﾉテｿｽLｿｽXｿｽgｿｽGｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ謔､ｿｽﾈとゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽeｿｽLｿｽXｿｽgｿｽGｿｽｿｽｿｽAｿｽﾌスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽSｿｽﾌゑｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾈので。
ｿｽｿｽｿｽｿｽｿｽﾜでゑｿｽｿｽｿｽﾆ托ｿｽﾏなので、ｿｽｿｽｿｽｿｽｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆはゑｿｽｿｽｿｽｿｽｿｽﾟようｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
scrollIntoViewｿｽﾅ会ｿｽｿｽ[ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ10ｿｽsｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽﾉスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

HongliangｿｽｿｽｿｽｿｽAｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽいｿｽｿｽﾆ有ｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ

Created by board of various Programming Library.