Управление видом контрола WebBrowser

[SAS]

При использовании элемента WebBrowser иногда необходимо в нем просматривать локальные папки и файлы (как в проводнике). Стиль отображения содержимого папки (Эскизы страниц, таблица, список, упорядочение и др.) могут изменяться с помощью контекстного меню (по правому щелчку мыши). Можно ли использовать другой метод для изменения стиля отображения содержимого локальной папки?

[SHURUP]

единственный выход который я нашел - посылать LVM_SETVIEW. в ХР работает (кроме эскизов страниц)

[SAS]

единственный выход который я нашел - посылать LVM_SETVIEW. в ХР работает (кроме эскизов страниц)

А можно слегка подробнее

[Alexanbar]

'Public function SendMessage.......
'Public Const LV_VIEW_LIST=....не помню
'есть также константы:
'LV_VIEW_DETAILS
'LV_VIEW_ICON
'LV_VIEW_SMALLICON
'LV_VIEW_TILE


SendMessage listview1.hwnd,LVM_SETVIEW,LV_VIEW_LIST,0

[SAS]

'Public function SendMessage.......
'Public Const LV_VIEW_LIST=....не помню
'есть также константы:
'LV_VIEW_DETAILS
'LV_VIEW_ICON
'LV_VIEW_SMALLICON
'LV_VIEW_TILE
SendMessage listview1.hwnd,LVM_SETVIEW,LV_VIEW_LIST,0

Большое спасибо. Я все понял про SendMessage, но только где взять значения констант?

[Alexanbar]

Public Const LVM_FIRST = &H1000
Public Const LVM_SETVIEW = (LVM_FIRST + 142)
Public Const LV_VIEW_ICON = &H0&
Public Const LV_VIEW_DETAILS = &H1&
Public Const LV_VIEW_SMALLICON = &H2&
Public Const LV_VIEW_LIST = &H3&
Public Const LV_VIEW_TILE = &H4&

[Дмитрий_pro]

Alexanbar
А у меня к Вам вопрос: как можно прочитать код страницы, короче произвести то же, что делает блокнот.
Блокнот заменит может быть TextBox

[Amed]

Смотрите свойства
webbrowser.Innertext или webbrowser.innerhtml

[Amed]

Поправочка. Смотрите свойства

WebBrowser1.Document.documentelement.innerhtml
WebBrowser1.Document.Body.innerhtml

[SAS]

Public Const LVM_FIRST = &H1000
Public Const LVM_SETVIEW = (LVM_FIRST + 142)
Public Const LV_VIEW_ICON = &H0&
Public Const LV_VIEW_DETAILS = &H1&
Public Const LV_VIEW_SMALLICON = &H2&
Public Const LV_VIEW_LIST = &H3&
Public Const LV_VIEW_TILE = &H4&

Моему спасибу нет предела!

[SAS]

Public Const LVM_FIRST = &H1000
Public Const LVM_SETVIEW = (LVM_FIRST + 142)
Public Const LV_VIEW_ICON = &H0&
Public Const LV_VIEW_DETAILS = &H1&
Public Const LV_VIEW_SMALLICON = &H2&
Public Const LV_VIEW_LIST = &H3&
Public Const LV_VIEW_TILE = &H4&

Все хорошо, но при выполнении

Код: Выделить всё

SendMessage WebBrowser.hwnd, LVM_SETVIEW, LV_VIEW_ICON, 0

или просто

Код: Выделить всё

msgbox WebBrowser.hwnd

сообщается об ошибке:
Run-time error '-2147467259 (80004005)':
Method 'HWND' of object 'IWebBrowser2' failed
может быть это связано с тем, что у меня элемент webbrowser помещен не на форме, а на usercontrole?

[SAS]

Поправочка. Смотрите свойства

WebBrowser1.Document.documentelement.innerhtml
WebBrowser1.Document.Body.innerhtml

А можно подробнее?

[SAS]

Поправочка. Смотрите свойства

WebBrowser1.Document.documentelement.innerhtml
WebBrowser1.Document.Body.innerhtml

кстати, если использовать код

Код: Выделить всё


MsgBox WebBrowser1.Document.documentelement.innerhtml
MsgBox WebBrowser1.Document.Body.innerhtml

когда содержимое webbrowser'а - html страница, то msgboxы показывают html код, а если содержимое webbrowser'а - структура файлов и папок (как в проводнике), генерируется ошибка 438-объект не поддерживает это свойство или метод. Значит, когда у webbrowser'a url стоит на локальные папки, он вставляет в себя другой объект типа проводника? Как у него поменять вид (кроме как через контекстное меню)?

[SHURUP]

Сорри, перед автором топика за то, что ляпнул... а мысль до конца не довел, но меня за неуплату отрубили...
Вот пример, как сделать мелкие значки в вебброузере.

Код: Выделить всё

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Private Const LVM_FIRST = &H1000
Private Const LVM_SETVIEW = (LVM_FIRST + 142)
Private Const LV_VIEW_ICON = &H0&
Private Const LV_VIEW_DETAILS = &H1&
Private Const LV_VIEW_SMALLICON = &H2&
Private Const LV_VIEW_LIST = &H3&
Private Const LV_VIEW_TILE = &H4&

Private Sub Form_Load()
Dim zz As Long
    WebBrowser1.Navigate "D:\"
    zz = WebBrowser1.Container.hwnd
    zz = FindWindowEx(zz, 0, "Shell Embedding", vbNullString)
    zz = FindWindowEx(zz, 0, "SHELLDLL_DefView", vbNullString)
    zz = FindWindowEx(zz, 0, "SysListView32", vbNullString)
    SendMessage zz, LVM_SETVIEW, LV_VIEW_SMALLICON, 0
End Sub


Работает с крупными, мелкими значками и списком. Эскизы страниц - еще не получилось, плитка - не такая как в ХР, а при режиме таблица - (DETAILS) обновляется только после правого клика...
-------
Да простят меня гуры за извращенный метод, нодругих не умеем.

[SAS]

Сорри, перед автором топика за то, что ляпнул... а мысль до конца не довел, но меня за неуплату отрубили...

Не стоит извинений. Спасибо, что вспомнил . лучше когда-то, чем никогда.

Работает с крупными, мелкими значками и списком. Эскизы страниц - еще не получилось, плитка - не такая как в ХР, а при режиме таблица - (DETAILS) обновляется только после правого клика...
-------

Это просто круто. Наиогромнейшее спасибо. просто слов нет. я прыгаю, аж вулканы трясутся.

Да простят меня гуры за извращенный метод, нодругих не умеем.

А почему собственно ты считаешь это извращением?

[SAS]

Эскизы страниц - еще не получилось, плитка - не такая как в ХР, а при режиме таблица - (DETAILS) обновляется только после правого клика...

Может у тебя уже получилось?

[SAS]

Эскизы страниц - еще не получилось, плитка - не такая как в ХР, а при режиме таблица - (DETAILS) обновляется только после правого клика...

В смысле эскизы страниц?