Конференция VBStreets

**swetik1981** » 29.01.2008 (Вт) 0:36

Как сделать, чтобы html-документ в WebBrowser полностью сливался с формой, то есть как убрать границу и полосу прокрутки в WebBrowser?

**BION** » 29.01.2008 (Вт) 1:06

swetik1981
По поводу скрола(полосы прокрутки)

Код: Выделить всё: в html коде <body scroll=no>

А вот с бордером в WebBrowser ты ничего не сделаешь.

**Денис** » 29.01.2008 (Вт) 8:38

Обложи WebBrowser непрозрачными Label'ами цвета фона.

**dr.MIG** » 29.01.2008 (Вт) 9:23

Ы? Как это не сделаешь? Было бы желание

border: none для body в стилях.
Автору топика: второй раз посоветую обратиться к моему блогу... Если бы последовала этому совету в первый раз, то этот вопрос не возник бы.

**Antonariy** » 29.01.2008 (Вт) 10:04

У вебброузера же нет бордюра...

**dr.MIG** » 29.01.2008 (Вт) 10:37

Конечно, нет. Об этом уже писали. Border есть у body.

**jangle** » 29.01.2008 (Вт) 10:45

swetik1981 писал(а):Как сделать, чтобы html-документ в WebBrowser полностью сливался с формой, то есть как убрать границу и полосу прокрутки в WebBrowser?

Если хочешь писать веб-стайл приложения, можно использовать этот контрол:

http://gipsysoft.com/

**BION** » 29.01.2008 (Вт) 19:59

dr.MIG писал(а):Ы? Как это не сделаешь? Было бы желание
border: none для body в стилях.

Гы! Туплю, забыл

**awl100Alex** » 15.02.2008 (Пт) 23:54

dr.MIG писал(а):Ы? Как это не сделаешь? Было бы желание
border: none для body в стилях.
Автору топика: второй раз посоветую обратиться к моему блогу... Если бы последовала этому совету в первый раз, то этот вопрос не возник бы.

Ну и как конкретней???..
WebBrowser1.Document.body.Style.BorderStyle = "none" - по-умолчанию и так...
http://msdn2.microsoft.com/en-us/library/ms533526(VS.85).aspx
Вообщем, НЕ работает! Граница все равно остается.

Вообще я пользовался таким способом:

Код: Выделить всё: Private Sub Form_Load() 'Загружаем страницу... WebBrowser1.Navigate "http://mts.com.ua" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 'Запрещаем отображение скроллинга... WebBrowser1.Document.body.Scroll = "no" End Sub

Но все зависит от того, какой сайт посещаешь...
Подробности вот здесь:
http://www.vb-forum.com/printthread.php?t=265842

**BION** » 16.02.2008 (Сб) 1:51

Так все прекрасно работает, какой бы сайт не посещал:

Код: Выделить всё: Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser.Document.body.Scroll = "no" WebBrowser.Document.body.Style.border = "none" End Sub

**awl100Alex** » 16.02.2008 (Сб) 2:27

BION
А ты попробуй...

WebBrowser.Navigate "http://mail.ru"

...и сам увидишь!

**BION** » 16.02.2008 (Сб) 10:20

awl100Alex
По поводу бордера:
касаемо Mail.ru у него в css есть

Код: Выделить всё: HTML { PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; HEIGHT: 100%; }

=> либо так

Код: Выделить всё: WebBrowser.Document.styleSheets.Item(0).rules(0).Style.border = "none"

но думаю лучше так

Код: Выделить всё: WebBrowser.Document.documentElement.Style.border = "none"

для всех страниц, а тож не у всех сss как у mail.ru

а вот по поводу скрола ща разберемса...

**awl100Alex** » 16.02.2008 (Сб) 12:42

BION писал(а):Так все прекрасно работает, какой бы сайт не посещал:
Код: Выделить всё
Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser.Document.body.Scroll = "no" WebBrowser.Document.body.Style.border = "none" End Sub

Твой код НЕ всегда работает!

И как я и писал ранее - ...зависит от сайта, который посещаешь!!! Значит, выход такой: нужно отключить... ВСЕМИ(!) известными способами!..

Код: Выделить всё: Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant) On Error Resume Next With WebBrowser.Document .body.Style.BorderStyle = "none" .body.Scroll = "no" .body.Style.border = "none" .documentElement.Style.border = "none" .styleSheets.Item(0).rules(0).Style.border = "none" End With End Sub

Или найти оптимальное сочетание...

Код: Выделить всё: Option Explicit Private Sub Start_Command_Click() WebBrowser.Navigate Text1.Text HScroll.Value = 0 End Sub Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant) On Error Resume Next With WebBrowser.Document '.body.Style.BorderStyle = "none" 'mail.ru - ДА скролл; ukr.net - ДА скролл; '.body.Scroll = "no" 'mail.ru - ДА скролл; ukr.net - НЕТ скролл; '.body.Style.border = "none" 'mail.ru - ДА скролл; ukr.net - ДА скролл; '.documentElement.Style.border = "none" 'mail.ru - ДА скролл; ukr.net - ДА скролл; '.styleSheets.Item(0).rules(0). _ ' Style.border = "none" 'mail.ru - ДА скролл; ukr.net - ДА скролл. '------------------------------------------------ 'mail.ru - ДА скролл; ukr.net - НЕТ скролл. '.body.Scroll = "no": '.body.Style.border = "none" '------------------------------------------------ 'NB!!!=================================================== 'mail.ru - НЕТ скролл; ukr.net - НЕТ скролл; 'meta.ua - НЕТ скролл; membrana.ru - НЕТ скролл; 'softodrom.ru - НЕТ скролл; softosmotr.com - НЕТ скролл; 'pochta.ru - НЕТ скролл; kp.ru - НЕТ скролл; 'eg.ru - НЕТ скролл; microsoft.ru - НЕТ скролл. .body.Scroll = "no": .body.Style.border = "none" .documentElement.Style.border = "none" '======================================================== End With End Sub Private Sub WebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long) On Error Resume Next If Progress = -1 Then HScroll.Max = 10000 If Progress > 0 And ProgressMax > 0 Then HScroll.Value = Progress * 10000 / ProgressMax End If End Sub Private Sub End_Command_Click() End End Sub

Дерзайте!.. Удачи!..

**BION** » 16.02.2008 (Сб) 18:12

Ну простите коли что не так

Проблема то, и впрямь сурьезная

Теперь то заживем!!!

Конференция VBStreets

Как убрать полосу прокрутки и границу в WebBrowser

Как убрать полосу прокрутки и границу в WebBrowser

Re: Как убрать полосу прокрутки и границу в WebBrowser

Кто сейчас на конференции