ゴメン文字化けしてたので、再レス Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.WebBrowser1.Navigate("c:\hoge.html") End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim hdoc As HtmlDocument = Me.WebBrowser1.Document Dim inputs As HtmlElementCollection = hdoc.GetElementsByTagName("input") For Each inputElement As HtmlElement In inputs Dim type As String = inputElement.GetAttribute("type") Dim lvi As New ListViewItem(type) Dim nsi As New ListViewItem.ListViewSubItem(lvi, inputElement.Name) lvi.SubItems.Add(nsi) Dim value As String = "" Select Case type.ToLower() Case "text" value = inputElement.InnerText Case "radio", "checkbox" ' チェックされているかどうかの場合 value = inputElement.GetAttribute("checked") ' valueの値の場合 'value = inputElement.GetAttribute("value") End Select Dim vsi As New ListViewItem.ListViewSubItem(lvi, value) lvi.SubItems.Add(vsi) Me.ListView1.Items.Add(lvi) Next
