Отобразить веб-страницу на форме без ActiveX. -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.97.9.173]

Модераторы: SCINER, B.V.

Ссылки по теме:

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

ALXR

Сообщ. #1 , 08.04.10, 10:57

Profi

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

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

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

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0250 ] [ 16 queries used ] [ Generated: 15.03.25, 21:04 GMT ]