ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2018年8月15日(水) 13:47

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 1 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2005年11月05日(土) 17:41 
オフライン

登録日時: 2005年7月19日(火) 19:47
記事: 98
住所: 山形県
ウィンドウに IE コンポーネントを作成します。
本当に作成し、表示するだけなので使い物にはなりません(爆)
一応 Resize イベントが呼び出された時だけは処理をしています。

デバッグ実行すると例外処理が発生しますので、リリースしてから実行してください。
実験的なものなので、問題が起きても、一切責任は取れません...

[hide]
コード:
'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Declare Function AtlAxWinInit Lib "atl.dll" ()
Dim hBrowserWnd As HWND

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As DWord, dwMsg As DWord, wParam As DWord, lParam As DWord) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
	TestProject_DestroyObjects()
	PostQuitMessage(0)
End Sub

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)

	AtlAxWinInit()
	hBrowserWnd=CreateWindowEx(NULL,"AtlAxWin","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(hBrowserWnd,0,0,cx,cy,TRUE)

End Sub

[/hide]

追記 :
・コードを若干変更しました。
・以下を参考にしました。
http://web.archive.org/web/200410120300 ... ponent.htm
(現在はアクセス出来ないので Internet Archive の URL を示します)
・BackSearchAB の 1341 番の記事や、http://www.noppi.jp/diary/?date=20041220 には
ActiveBasic で IE コンポーネントを使用したプログラムがあります。
本格的に扱う場合は、COM とかオブジェクト指向の知識が必要らしいので
そこは僕は何も言えません。。。

_________________
Toshi's Recess Room
http://toshi.my.land.to/


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 1 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke