Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=2577380 Sat, 24 Apr 2010 03:16:12 +0000 Отобразить веб-страницу на форме без ActiveX. https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=2577380 Но уже и на этом огромное спасибо. Сделаю загрузчик скинов для моей проги :D

Добавлено
еще хотелось бы знать как запретить вывод меню по нажатию правой кнопки]]> Darky321 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=2575269 Wed, 21 Apr 2010 19:21:44 +0000 Отобразить веб-страницу на форме без ActiveX. https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=2575269 SuperBot Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=1606617 Mon, 18 Jun 2007 14:53:54 +0000 Отобразить веб-страницу на форме без ActiveX. https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=1606617
Цитата varzind @
первый для инета почему-то открывается не в форме, а создается еще одно окно и уж в нем отображается веб страница.
Как сделать открытие в форме или почему такое у меня?
]]> varzind Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=1606317 Mon, 18 Jun 2007 12:07:18 +0000 Отобразить веб-страницу на форме без ActiveX. https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=1606317 Цитата varzind @
Можно ли аналогично рабете с флаш в программах, работать с хтмл страницами? Я имею ввиду перехват кликов и програмная обработка их - это помогло бы создавать красивые и удобные менюшки и т.п.

Показывать флешки можно и хтмл можно, а вот перехватывать клики и все такое - посложнее будет, ибо это уже работа с COM-интерфейсами, а в VB это не просто так...]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=1605572 Mon, 18 Jun 2007 04:23:54 +0000 Отобразить веб-страницу на форме без ActiveX. https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=1605572 Примеры крутые, но вот первый для инета почему-то открывается не в форме, а создается еще одно окно и уж в нем отображается веб страница.
Как сделать открытие в форме или почему такое у меня?
Можно ли аналогично рабете с флаш в программах, работать с хтмл страницами? Я имею ввиду перехват кликов и програмная обработка их - это помогло бы создавать красивые и удобные менюшки и т.п.
За ранее благодарен тем кто ответит и автору письма, т.к. эта тема меня волновала, но не хотелось лишних контролов использовать, а тут такое.... ;)]]> varzind Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=1605125 Sun, 17 Jun 2007 09:15:20 +0000 Отобразить веб-страницу на форме без ActiveX. https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=1605125
константы для первого сампла
    Const WS_VISIBLE As Long = &H10000000
    Const WS_CHILD As Long = &H40000000
]]> nash Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=1604995 Sun, 17 Jun 2007 00:51:04 +0000 Отобразить веб-страницу на форме без ActiveX. https://forum.sources.ru/index.php?showtopic=191161&view=findpost&p=1604995
    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

И т.д., пока фантазия не кончится. :)]]> ALXR Visual Basic: Общие вопросы