<DELETE> 
HTML, WebBrowser на форме ...
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 11
• Страница 1 из 1
- EvilCoder
- Посланец джихада
-
- Сообщения: 706
- Зарегистрирован: 25.01.2004 (Вс) 15:08
HTML, WebBrowser на форме ...
EvilCoder » 15.08.2004 (Вс) 1:15
<DELETE> Последний раз редактировалось EvilCoder 12.05.2007 (Сб) 17:15, всего редактировалось 1 раз.
<<------- EvilCoder ------->>
- Bethy
- Начинающий
- Сообщения: 11
- Зарегистрирован: 06.07.2004 (Вт) 3:55
Bethy » 15.08.2004 (Вс) 5:46
Только <body></body>
- Код: Выделить всё
WebBrowser.document.body.innerHTML=CodeHTML
- ANDLL
- Великий гастроном
-
- Сообщения: 3450
- Зарегистрирован: 29.06.2003 (Вс) 18:55
ANDLL » 15.08.2004 (Вс) 8:18
Хм. Есть такая штука. Если текст страницы не большой, то можно писать
- Код: Выделить всё
WebBrowser.Navigate "about:" & CodeHTML
Гастрономия - наука о пище, о ее приготовлении, употреблении, переварении и испражнении.
Блог
Блог
- nappel
- Начинающий
- Сообщения: 21
- Зарегистрирован: 14.10.2004 (Чт) 11:55
- Откуда: Moscow
nappel » 01.09.2005 (Чт) 16:45
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim Doc As IHTMLDocument2
Set Doc = WebBrowser1.Document
Dim Inputs As IHTMLElementCollection
Set Inputs = Doc.All.tags("a")
Dim Element As IHTMLElement
Set Element = Inputs.Item(0)
Lt = Inputs.length
Label4.Caption = Lt
Str = Element.innerText
For i = 0 To Lt
Str1(i) = Inputs.Item(i)
Next i
Text2.Text = Str1(0)
Text3.Text = Str1(1)
Text4.Text = Str1(2)
End Sub
''http://themonopoly.narod.ru
On Error Resume Next
Dim Doc As IHTMLDocument2
Set Doc = WebBrowser1.Document
Dim Inputs As IHTMLElementCollection
Set Inputs = Doc.All.tags("a")
Dim Element As IHTMLElement
Set Element = Inputs.Item(0)
Lt = Inputs.length
Label4.Caption = Lt
Str = Element.innerText
For i = 0 To Lt
Str1(i) = Inputs.Item(i)
Next i
Text2.Text = Str1(0)
Text3.Text = Str1(1)
Text4.Text = Str1(2)
End Sub
''http://themonopoly.narod.ru
Сообщений: 11
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2