'=======================================
'IE窓の作成とりサイズ
Dim gIE As IE_COMPONENT
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
gIE.CreateIeBrowserWindow(
NULL, "http://www.yahoo.co.jp/",
WS_CHILD Or WS_VISIBLE Or WS_VSCROLL Or WS_HSCROLL,
0,0,100,100,hMainWnd,0,GetModuleHandle(NULL),NULL)
End Sub
Sub MainWnd_Resize(SizeType As Long, cx As Integer, cy As Integer)
MoveWindow( gIE.GetTopWindowHandle(), 0,0, cx,cy, TRUE)
End Sub
'=======================================
'メッセージループ(〜.abp)
Do
iResult=GetMessage(msgMain,0,0,0)
If iResult=0 or iResult=-1 Then Exit Do
' ↓この1行を追加する。
If gIE.TranslateIeBrowser( msgMain ) Then Continue
TranslateMessage(msgMain)
DispatchMessage(msgMain)
Loop
|