Отобразить веб-страницу на форме без ActiveX.

Все очень просто:

Option Explicit
 
Private Declare Function AtlAxWinInit Lib "atl.dll" () As Long
Private Declare Function CreateWindowExA Lib "user32" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As
String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long,
ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
 
Private Sub Form_Load()
Call AtlAxWinInit
Call CreateWindowExA(0, "AtlAxWin", "http://forum.sources.ru", WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, Me.hWnd, 0, App.hInstance, 0&)
End Sub

И на форме появится страница форума.

Или хотим показать "Мой компьютер" у себя на форме? Нет ничего проще:

Option Explicit
 
Private Declare Function AtlAxWinInit Lib "atl.dll" () As Long
Private Declare Function CreateWindowExA Lib "user32" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As
String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long,
ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
 
Private Sub Form_Load()
Call AtlAxWinInit
Call CreateWindowExA(0, "AtlAxWin", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", &H50000000, 0, 0, 640, 480, Me.hWnd, 0, App.hInstance,
0&)
 
End Sub

А вот этот код показывает "Панель управления":

Option Explicit
 
Private Declare Function AtlAxWinInit Lib "atl.dll" () As Long
Private Declare Function CreateWindowExA Lib "user32" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As
String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long,
ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
 
Private Sub Form_Load()
Call AtlAxWinInit
Call CreateWindowExA(0, "AtlAxWin", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}", &H50000000, 0,
0, 640, 480, Me.hWnd, 0, App.hInstance, 0&)
 
End Sub

И т.д., пока фантазия не кончится.

Да.

константы для первого сампла

Const WS_VISIBLE As Long = &H10000000
Const WS_CHILD As Long = &H40000000

Обалдеть, не думал даже, что такое можно вытворять. Хотя почему бы и нет, да и опыта у меня маловато...
Примеры крутые, но вот первый для инета почему-то открывается не в форме, а создается еще одно окно и уж в нем отображается веб страница.
Как сделать открытие в форме или почему такое у меня?
Можно ли аналогично рабете с флаш в программах, работать с хтмл страницами? Я имею ввиду перехват кликов и програмная обработка их - это помогло бы создавать красивые и удобные менюшки и т.п.
За ранее благодарен тем кто ответит и автору письма, т.к. эта тема меня волновала, но не хотелось лишних контролов использовать, а тут такое....

Цитата varzind @ 18.06.07, 04:23

Можно ли аналогично рабете с флаш в программах, работать с хтмл страницами? Я имею ввиду перехват кликов и програмная обработка их - это помогло бы создавать красивые и удобные менюшки и т.п.

Показывать флешки можно и хтмл можно, а вот перехватывать клики и все такое - посложнее будет, ибо это уже работа с COM-интерфейсами, а в VB это не просто так...

Ну с флаш - это не сложно, даже очень просто. А пример с ХТМЛ увидеть бы...

Цитата varzind @ 18.06.07, 04:23

первый для инета почему-то открывается не в форме, а создается еще одно окно и уж в нем отображается веб страница.
Как сделать открытие в форме или почему такое у меня?

С веб страницей работает отлично, а вот другие примеры чего-то показывают лишь белый прямоугольник 640х480 . Может там нюанс есть какой? А то я уже вдоль и поперек крутил этот код с различными lpWindowName и dwStyle...

Может кто-нибудь знает и подскажет как из загруженной страницы выдернуть исходный код скажем в текстбокс
Но уже и на этом огромное спасибо. Сделаю загрузчик скинов для моей проги

Добавлено 24.04.10, 03:30
еще хотелось бы знать как запретить вывод меню по нажатию правой кнопки