Edit History:Diff

Changes of 画像とＦＡＸビューワの機能を呼び出す since Epoch

+ added lines
- deleted lines
- 画像とＦＡＸビューワの機能を呼び出してみる。
- 
- 
- [[$$toc]]
- - →[[HSP3・サンプルスクリプト]]に戻る
- 
- ----
- 
- HSP3.1β1 XPsp2 で動作確認 (3.0a以降です。)~%
- オートメーション対応で、イベントも取れます。~%
- ＸＰ専用ですね。~%
- 
- * スクリプト
- {{{
- ; <<<< HSP 3.1β1 サンプル >>>>
- ;
- ; 画像とＦＡＸビューワの機能を呼び出してみる
- ;
- 
- onexit gosub *exit
- 
-         screen 0,640,500 : cls 1
- 
-         objsize 50,20 : pos 550,0 : button gosub "FILE", *go1
- 
- 	pos 0,20
- 	axobj Preview,"Preview.Preview",640,480
- stop
- 
- *go1
- 	dialog "bmp;*.jpg;*.png",16
- 	if stat=0{return} 
- 
- 	Preview->"ShowFile" refstr,1
- 
- 	wait 4;必要。入れないと取りこぼす。
- 	cxImage=Preview("cxImage")
- return
- 
- *exit
- 	Preview=0
- end
- 
- }}}
- * memo~%
- プロパティー メソッドの書き換え例
- {{{
- 
- IPreview2 Interface
- 
- ;void ShowFile(BSTR bstrFileName,int iSelectCount)
- Preview->"ShowFile" FileName,iSelectCount;HSPの場合
- 
- ;long printable()
- printable=Preview("printable")
- 
- ;void printable([in] long rhs)
- Preview("printable")=xx
- 
- ;long cxImage()
- cxImage=Preview("cxImage")
- 
- ;long cyImage()
- cyImage=Preview("cyImage")
- 
- ;void Show(VARIANT var)
- Preview("Show")=VARIANT
- 
- ;void Zoom([in] int iSelectCount)
- Preview->"Zoom" 1 
- 
- ;void BestFit()
- Preview->"BestFit"
- 
- ;void ActualSize()
- Preview->"ActualSize" 
- 
- ;void SlideShow()
- Preview->"SlideShow" 
- 
- }}}
- 
- 使い道は・・如何に？
- 
- 2006/04/08 13:51:26 JST~%
- 変更~%
- onexit *exit -> onexit gosub *exit