На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
Модераторы: SCINER, B.V.
  
    > Отобразить веб-страницу на форме без ActiveX.
      Все очень просто:
      ExpandedWrap disabled
        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

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

      Или хотим показать "Мой компьютер" у себя на форме? Нет ничего проще:
      ExpandedWrap disabled
        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


      А вот этот код показывает "Панель управления":
      ExpandedWrap disabled
        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

      И т.д., пока фантазия не кончится. :)
      user posted image
      ЩИТО?
      1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script Execution time: 0,2357 ]   [ 15 queries used ]   [ Generated: 25.06.19, 17:50 GMT ]