|
ｿｽｿｽVisual Basic .NETｿｽfｿｽｿｽｿｽｿｽ
|
WebBrowserｿｽﾉてｿｽｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽIｿｽｿｽｿｽｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽuｿｽaｿｽｿｽｿｽq 2009/08/16(ｿｽｿｽ) 15:43:59
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
vb.net2008WebBrowserｿｽﾉゑｿｽHTMLｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽ操作すｿｽｿｽAｿｽvｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2009/08/16(ｿｽｿｽ) 17:04:15
>vb.net2008
VB2008ｿｽﾅゑｿｽｿｽﾋ。
>ｿｽｿｽVBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅでゑｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
VB6ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾅゑｿｽｿｽﾋ。
>ｿｽYｿｽｿｽｿｽｿｽｿｽ髟ｶｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎチｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽWｿｽbｿｽNｿｽﾅ行ｿｽｿｽｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ。
PublicClassForm1
PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsEventArgs)HandlesMyBase.Load
Button1.Enabled=False
TextBox1.Text="th"
WebBrowser1.Navigate("http://www.ueda.info.waseda.ac.jp/‾gaku/js/how025.html")
EndSub
PrivateSubWebBrowser1_DocumentCompleted(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.WebBrowserDocumentCompletedEventArgs)HandlesWebBrowser1.DocumentCompleted
Button1.Enabled=True
EndSub
PrivateSubButton1_Click(ByValsenderAsObject,ByValeAsEventArgs)HandlesButton1.Click
DimsearchTextAsString=TextBox1.Text
MsgBox(searchText&"ｿｽｿｽﾜむ搾ｿｽｿｽﾚゑｿｽIｿｽｿｽｿｽｿｽﾜゑｿｽ")
ForEachtagSelectAsHtmlElementInWebBrowser1.Document.GetElementsByTagName("SELECT")
ForEachtagOptionAsHtmlElementIntagSelect.GetElementsByTagName("OPTION")
Debug.WriteLine(tagOption.OuterHtml)
IftagOption.InnerTextLike"*"&searchText&"*"Then
tagOption.SetAttribute("selected","selected")
Else
tagOption.SetAttribute("selected",Nothing)
EndIf
Debug.WriteLine(tagOption.OuterHtml)
Next
Next
EndSub
EndClass
