|
ｿｽ@ｿｽｿｽWebBrowserｿｽﾅスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ位置ｿｽｿｽﾝ定すｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽ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
KenGo 2004/04/02(ｿｽｿｽ) 02:20:05
TextBoxｿｽﾉ擾ｿｽｿｽｿｽｿｽ黷ｽHTMLｿｽ^ｿｽOｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ^ｿｽCｿｽｿｽｿｽｿｽWebBrowserｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
Private Sub Text1_Change()
Dim Contents As String
Dim FileName As String
Contents = Text1.Text
FileName = "C:¥temp.htm"
Open FileName For Output As #1
Print #1, Contents;
Close #1
WebBrowser1.Navigate "C:¥temp.htm"
End Sub
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽiｿｽｿｽｿｽﾌ趣ｿｽｿｽ_ｿｽﾅ托ｿｽｿｽｿｽｿｽｿｽｿｽﾊなゑｿｽｿｽﾆゑｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが…ｿｽj
ｿｽｿｽｿｽ黷ｾｿｽｿｽWebBrowserｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽHTMLｿｽｿｽｿｽ蛯ｫｿｽｿｽｿｽﾈゑｿｽｿｽﾄ撰ｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾆ、
ｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽｿｽﾔ擾ｿｽﾉ戻ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
TextBoxｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽOｿｽｿｽWebBrowserｿｽﾌスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ鯉ｿｽｿｽﾝの位置ｿｽｿｽLｿｽｿｽｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽﾉスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽﾉセｿｽbｿｽgｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2004/04/02(ｿｽｿｽ) 09:26:38
> ｿｽｿｽｿｽﾌ趣ｿｽｿｽ_ｿｽﾅ托ｿｽｿｽｿｽｿｽｿｽｿｽﾊなゑｿｽｿｽﾆゑｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽ阮ｳｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
WebBrowserｿｽｿｽHTMLｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは、ｿｽｿｽﾂゑｿｽｿｽﾌ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
htmlｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾌパｿｽXｿｽｿｽNavigate2(Navigate)ｿｽｿｽｿｽｿｽﾌは、
ｿｽ齊橸ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾈゑｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽ_ｿｽﾉゑｿｽｿｽｿｽｿｽﾚゑｿｽﾂぶゑｿｽﾎ、
ｿｽｿｽrｿｽIｿｽｿｽyｿｽﾈ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽB
> ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽﾉセｿｽbｿｽgｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾍ、
windowｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽscroll/scrollBy/scrollToｿｽｿｽｿｽ¥ｿｽbｿｽh
ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ驍｢ｿｽﾍ、
textRangeｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽscrollIntoViewｿｽｿｽｿｽ¥ｿｽbｿｽh
ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆゑｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽﾉつゑｿｽｿｽﾄ抵ｿｽｿｽﾗてみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、scrollToｿｽｿｽgｿｽｿｽｿｽﾄピｿｽNｿｽZｿｽｿｽｿｽPｿｽﾊでスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽA
WebBrowser1.Document.parentWindow.scrollTo 0, 300
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾈゑｿｽｿｽAwindow ｿｽｿｽ textRangeｿｽﾍ、WebBrowserｿｽｿｽｿｽMｿｽﾌ機ｿｽ¥ｿｽﾅはなゑｿｽｿｽA
MSHTMLｿｽﾌ機ｿｽ¥ｿｽﾅゑｿｽｿｽB(ｿｽ_ｿｽCｿｽiｿｽ‾ｿｽbｿｽNHTMLｿｽADOMｿｽﾆ呼ばゑｿｽ骼厄ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ)
HTMLｿｽﾅはなゑｿｽｿｽAExcelｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽAExcelｿｽﾌ機ｿｽ¥
(ScrollRowｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾈゑｿｽ)ｿｽﾅ撰ｿｽｿｽ艪ｷｿｽ骼厄ｿｽﾉなゑｿｽﾜゑｿｽｿｽBｿｽﾂまゑｿｽA
WebBrowserｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ髟ｨｿｽﾉゑｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ異なゑｿｽけｿｽﾅゑｿｽｿｽB
KenGo 2004/04/02(ｿｽｿｽ) 12:47:36
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
scrollToｿｽｿｽgｿｽｿｽｿｽﾄ厄ｿｽｿｽｿｽｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆはでゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽlｿｽﾌ取得ｿｽﾍどのようｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾂ能ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽいｿｽ調ｿｽﾗゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ・ｿｽEｿｽEｿｽB
IMA 2004/04/04(ｿｽｿｽ) 08:29:23
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽKenGoｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ邇ｸｿｽ轤ｵｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽがｿｽ¥ｿｽzｿｽｿｽｿｽｿｽ骭ｴｿｽｿｽ
ｿｽETextBoxｿｽﾌカｿｽｿｽｿｽbｿｽgｿｽﾊ置ｿｽﾍマｿｽEｿｽXｿｽｿｽｿｽﾅ前ｿｽｿｽﾇゑｿｽｿｽﾖゑｿｽﾚ難ｿｽｿｽﾅゑｿｽｿｽｿｽﾌで、ｿｽOｿｽｿｽﾊ置ｿｽｿｽ
ｿｽ@ｿｽ準ｿｽﾉはでゑｿｽｿｽﾈゑｿｽｿｽB
ｿｽEText1_ChangeｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽﾏ会ｿｽｿｽｿｽｿｽｿｽﾆ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽHｿｽﾌで表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽEｿｽ^ｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@javascriptｿｽｿｽｿｽﾌ費ｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾂゑｿｽｿｽﾈ単ｿｽﾈゑｿｽﾌは厄ｿｽｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽ竓ｮｿｽｿｽｿｽ@ｿｽﾈどゑｿｽ
ｿｽlｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽ
TextBoxｿｽﾌ鯉ｿｽｿｽﾝのカｿｽｿｽｿｽbｿｽgｿｽﾊ置ｿｽﾟ傍ｿｽﾌテｿｽLｿｽXｿｽgｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ髟ｶｿｽｿｽｿｽｿｽ(ｿｽ^ｿｽOｿｽｿｽｿｽﾅ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ)
ｿｽｿｽKｿｽｿｽｿｽﾈ抵ｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽWebBrowserｿｽｿｽｿｽfindTextｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅ鯉ｿｽｿｽｿｽｿｽEｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽKｿｽｿｽｿｽｿｽｿｽﾈどで取得ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAjavascriptｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾈど擾ｿｽｿｽOｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ_
ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽが包ｿｽｿｽｿｽｿｽqｿｽbｿｽgｿｽｿｽｿｽｿｽ鼾ｿｽﾍ鯉ｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽｿｽ謫ｾｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌで、
ｿｽ@ｿｽｿｽｿｽﾂヒｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽAｿｽｿｽｿｽﾌどれがｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽ判断ｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽが費ｿｽｿｽ]ｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽKｿｽv
ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ抵ｿｽｿｽｿｽｿｽﾊ置ｿｽﾉゑｿｽｿｽｿｽﾗに、ｿｽﾄ度scrollｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽLｿｽｿｽ
ｿｽQｿｽlｿｽｿｽｿｽｿｽｿｽN
(http://tomizawa-web.hp.infoseek.co.jp/index.htm)
http://tomizawa-web.hp.infoseek.co.jp/dom.htm
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽ
http://tomizawa-web.hp.infoseek.co.jp/property/scrollTop.htm
scrollHeight:ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ搾ｿｽｿｽｿｽｿｽｿｽ謫ｾ
scrollWidth: ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽ謫ｾ
scrollTop: ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ上側ｿｽﾌ搾ｿｽｿｽWｿｽｿｽﾝ定すｿｽ驍ｩｿｽ謫ｾ
scrollLeft: ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ搾ｿｽｿｽｿｽｿｽﾌ搾ｿｽｿｽWｿｽｿｽﾝ定すｿｽ驍ｩｿｽ謫ｾ
KenGo 2004/04/06(ｿｽｿｽ) 14:46:26
IMAｿｽｿｽｿｽｿｽAｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
IMAｿｽｿｽｿｽが擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌは、TextBoxｿｽﾉ難ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ場所ｿｽｿｽ
WebBrowserｿｽﾌスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾊ置ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽPｿｽｿｽｿｽｿｽ"C:¥temp.htm"ｿｽﾉ保托ｿｽｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽOｿｽﾆ開ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽﾊ置ｿｽ同ゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈので、
IMAｿｽｿｽｿｽｿｽﾉ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽscrollLeftｿｽｿｽscrollTopｿｽｿｽgｿｽｿｽｿｽﾄ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽｿｽIMAｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾍ会ｿｽｿｽLｿｽﾌようｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
Private Sub Text1_Change()
Dim Contents As String
Dim FileName As String
Contents = Text1.Text
FileName = "C:¥temp.htm"
Open FileName For Output As #1
Print #1, Contents;
Close #1
x = WebBrowser1.Document.Body.scrollLeft
y = WebBrowser1.Document.Body.scrollTop
WebBrowser1.Navigate "C:¥temp.htm"
WebBrowser1.Document.parentWindow.scrollTo x, y
End Sub
