HTAをもっと流行らせる計画

HTAをもっと流行らせ� ..

527:デフォルトの名無しさん
07/10/01 21:30:43
俺もhta書いてみた
自分でいうのもなんだけどいい塩梅だぜ
<html>
<head>
<hta:application
id="null"
scroll="no"
innerborder="no"
border="thick"
borderstyle="raised"
/>
<title>シェアウェア</title>
<style>
*{border:0px;margin:0px;padding:0px;height:100%;width:100%;}
</style>
</head>
<body>
<iframe id="C" src="C:/" />
</body>
</html>

528:デフォルトの名無しさん
07/10/02 08:19:13
ﾜﾛﾀw

529:デフォルトの名無しさん
07/10/17 17:02:59
結局HTAはこっちでやればいいのかWeb製作板でやればいいのかよくわかんね

530:デフォルトの名無しさん
07/10/20 12:20:37
Webが関係するならむこうだろう
たとえHTMLだろーとWeb無関係ならこっちの板だ

531:デフォルトの名無しさん
07/10/21 14:16:33
なるほど
クライアントであそぶだけならこっちってことか

IE7で、
DOCTYPEスイッチでstandardにしてやると、
document.body系のメソッドやプロパティが正常に取得できない
また、bodyのイベント（onloadとか）も正常に動作しない

HTAではstandardにするなってことかな

532:デフォルトの名無しさん
07/10/21 17:44:17
DOCTYPEっていじったことないんだけど
指定すべきものなの？

533:デフォルトの名無しさん
07/10/21 17:52:23
>>531
IE7のことはIE7入れてないんで知らないけど

＞DOCTYPEスイッチでstandardにしてやると
standard？Strictじゃなくて？

そもそもHTAはHTML文書じゃなくてHTMLapplicationだし、
W3Cの策定した仕様に沿っているわけじゃないから（HTAの部分のコーディングで）文書型宣言するのは間違いじゃない？

534:デフォルトの名無しさん
07/10/22 10:29:55

>>531の説明だけだと
webからHTMLのソース引っ張ってきてIE7で表示（若しくはなんかほかの処理）させて、
HTAで更にゴニョゴニョして、それ（HTMLのソース）が標準準拠（スタンダード）モードだと何か不具合が出たって話しなのか
（じゃないとIE7に話しが繋がらないし）、
>>533の解説のHTAで文書型宣言の問題なのか
もよく解らないんじゃないかな、と思ったですよ。
　という訳で、もちっと詳しい説明あった方がいいんじゃね？て事で

＞standard
紛らわしいから標準準拠（スタンダード）モード、後方互換モードとかの表記の方がいいんじゃね？
それと
IE7って表現も OSの種類とMSHTA.exeのバージョンとWSH 5.6とか5.7とかも併記した方がいいんじゃね？
検証するにしても問題の切り分けとか出来ないし、
検証用のソースも載せておいたら誰か検証してくれる（かもしれない

と思ったですよ　まる。

535:デフォルトの名無しさん
07/10/23 17:55:53
<html><head><hta:application 省略></hta:application>
<title>情報不足でｽﾏｿ</title><script language="JScript">
function startset() {
　　if((document.body.clientWidth != 640) || (document.body.clientHeight != 480)) {
　　　　resizeTo(640, 480);
　　　　resizeTo(1280 - document.body.clientWidth, 960 - document.body.clientHeight);
　　}
}
</script></head><body onload="startset();"></body></html>

Win xp SP2 IE7
iexplore.exe　7.0.6000.16544
mshta.exe　7.0.5730.11
WSH　5.6

読み込みと同時にウィンドウの枠とかを除いたサイズを指定してやる
同環境、DOCTYPEスイッチなしでは正常に動作

たとえばコレDOCTYPEスイッチ入れて標準準拠（スタンダード）モードにしてやると
Windowサイズが変なことになる

alertでdocument.body.clientWidthみたけど『0』とのこと
また、bodyのonloadイベントにalert();を設定しても動作せず

536:デフォルトの名無しさん
07/10/23 19:00:12
既出

537:デフォルトの名無しさん
07/10/27 10:52:40
今回のはIE7の問題じゃない希ガス
URLﾘﾝｸ(www6.plala.or.jp)
URLﾘﾝｸ(www2.u-netsurf.ne.jp)
URLﾘﾝｸ(diaspar.jp)
既出って言われればそれまでなんだけどね。

現象は現象として
考え方は>>533さんのでいいんじゃない？

538:デフォルトの名無しさん
07/11/08 03:46:04
Webアプリケーションをデスクトップから実行する「Prism」ってどうよ？
URLﾘﾝｸ(labs.mozilla.com)

対抗してHTAでGoogleCalendre作ってみたよ。
<html><head><title>Google Calender</title></head>
<body style="margin:0;border:0;overflow:hidden">
<iframe style="width:100%;height:100%" src="URLﾘﾝｸ(www.google.com)
</body></html>

539:デフォルトの名無しさん
07/11/09 17:17:43
HTAってのを今さっき知った

540:デフォルトの名無しさん
07/11/10 01:35:00
>539
ようこそ、この忘れられた土地へ。

541:デフォルトの名無しさん
07/11/11 01:34:54
>>538
Opera側の人がblogで「それタブ無しブラウザじゃね？」なんて言ってたような。
WebRunnerは使ってみたけど、URLを指定したWebブラウザのショートカットと
同じようなもんだよなぁと思った。

HTAはどっちかっつーと、もうちょっと内側のイメージ。

542:デフォルトの名無しさん
07/11/11 15:46:59
Script Center とかScripting Guyの記事をCHMに固めたのが出てるね。
The Hey, Scripting Guy! Archive
URLﾘﾝｸ(www.microsoft.com)
Script Center All-in-One
URLﾘﾝｸ(www.microsoft.com)
今回は"Copy to Clipboard"のボタン無し。

543:デフォルトの名無しさん
07/11/12 17:52:52
そもそも>>539がどうしてHTAを知ったのかが気になる。
まず知りえる機会がほとんど無いと思うけど。

544:デフォルトの名無しさん
07/11/12 18:07:43
もはやロストテクノロジー扱いか…

545:デフォルトの名無しさん
07/11/12 21:43:26
忘れ去られた技術､廃れた技術と
失われた技術(ロストテクノロジー)は違う

とマジレスしてみる

546:デフォルトの名無しさん
07/11/13 07:28:06
えー(´･ω･｀)
手軽にいろいろ作れるから、
超活用してるのに、おれ・・・。

547:デフォルトの名無しさん
07/11/13 10:38:57
これほど優れたこけおどしテクノロジはなかなか無い
最小の手間でよく分かってないお客＆上司のポイントを稼げる
上手く活用しようぜ

548:デフォルトの名無しさん
07/11/13 16:26:18
技術ってやつは、古かろうが新しかろうがうまく利用したもんがちだ

549:デフォルトの名無しさん
07/11/13 18:09:39
バカにされたり過小評価されがちなHTAだけど、技術的には凄いと思うけどなぁ。
javascriptとvbscriptを併記して書けて、それを相互に呼び出せるのはちょっ
と感動。MSの技術ってだけで「バカにしとけ」って雰囲気があるけど、COMか
ら.NETまでコンピューティングの理想を追求して、それをVB並みの簡便さに落
とし込む根性は凄いよ。

あとまぁ、GUIデザインをHTMLで割り切ったのも凄い。最近流行りのウィジェッ
ト系はGUIデザインを独自のXMLにしちゃってるんだよな。そこで発生する学習
コストをあまり考慮してないというか。

550:デフォルトの名無しさん
07/11/13 21:36:18
>>549
＞GUIデザインをHTMLで割り切った
これはすごく同意

だからこそ、デフォで使えるCOMにロクなのが揃ってないのが
惜しい惜しすぎる

551:デフォルトの名無しさん
07/11/13 21:48:51
じゃあXTAだったら流行ってたんか？

552:デフォルトの名無しさん
07/11/13 21:51:28
ちょっと自分の認識と違っているようなので知っていたら教えて欲しいんだが、
HTAの出始めた時期は独自XMLを利用するようなXML乱立の状態ではなくて、
XHTMLすらも満足ではなかったのではなかろうかと思っているんだ。

で、IEのエンジンをうまいことローカルで利用できる形として生まれたのかと
考えていたんだけど、それは見当外れ？

>>550のCOMに～のくだりは同意。
あと、COMで利用できるものに関してキッチリしたマニュアルがあったら
なと思っている。今さらの話かもしれないけど。

553:デフォルトの名無しさん
07/11/13 22:09:49
つーか､そもそもCOMってのは
MSが用意した物を使わせるのではなく
ユーザーが作っていくことを前提にした技術だろ

それにMS製のCOMは主要な物は殆どリファレンス有るしね
英語だから読めないなんてのはユーザーレベルの問題だし

554:デフォルトの名無しさん
07/11/13 23:03:36
WindowsなんてOfficeが操作できれば十分じゃないのか？

555:デフォルトの名無しさん
07/11/13 23:18:05
まあそうなんだけど、ついでにほかにも色々できれば
便利だったり楽だったりするでしょ。

556:デフォルトの名無しさん
07/11/13 23:59:29
シリアルポート使いたいじゃん、やっぱ。
あと簡単なサーバプログラムのひとつも組みたいよな。

557:デフォルトの名無しさん
07/11/16 01:19:51
HTAはちょっとしたミニツールを配布するのにちょうどいいね。
以前VB6で作ってあげたらVBランタイムって何？て感じでそっから
インストールしてあげないといけないし、.NETにしてもFramework要るし、
HTAはランタイムなしで動くのがイイ！
ただ、DBに接続するパスなんか素で埋め込んだコードを配布したりなんか
したことあるけど・・・
その辺うまくやる方法ないですか？

558:デフォルトの名無しさん
07/11/16 04:56:06
HTAも使いやすいけど、AIRが（本当に）来るのなら、そっちでもいいかなと考
えてしまう。

559:デフォルトの名無しさん
07/11/16 19:30:00
AIRは多分はやらない

560:デフォルトの名無しさん
07/11/17 23:54:36
CLANNADの方が良いよな

561:デフォルトの名無しさん
07/11/18 17:08:23
いいとか悪いとか関係ないだろ
人生なんだから

562:デフォルトの名無しさん
07/11/18 19:18:13
lookmanっていう２ちゃん簡易ブラウザは今も便利に使わせてもらっています

563:デフォルトの名無しさん
07/11/28 11:47:06
うーん、AIRか。ソニー独自に拘泥しなかったのは良い判断だと思うが、これ
がAIR普及の起爆剤になり得るかどうか。

ソニー、デスクトップにWeb情報を表示するウィジェットサービス
URLﾘﾝｸ(headlines.yahoo.co.jp)

今回ソニーは新たに、PCのデスクトップ上にウィジェットを常駐できるアプリ
ケーション(α版)を開発。Adobeが開発中のデスクトップ実行環境「Adobe
Intergrated Runtime(AIR)」を利用することで、ユーザーは3種類のウィジェッ
トをデスクトップ上に任意に配置できる。

564:デフォルトの名無しさん
07/11/28 19:55:03
アクティブデスクトップ？

565:デフォルトの名無しさん
07/11/28 22:46:00
ルートキット入ってない？

566:デフォルトの名無しさん
07/12/08 14:24:53
社内のグループ内だけで使うような
ちょっとしたツール作るのに重宝してます。
IE入ってれば使えるのも大きい。

567:デフォルトの名無しさん
07/12/08 15:40:32
今Visual Studio 2008 Express Editionインストールしようとしたら
autorunで立ち上がったランチャがHTAだった。
中の人はまだまだ活用する気満々だな。

568:デフォルトの名無しさん
07/12/18 17:47:08
何故かリサイズ可だからレイアウトが崩れる

569:デフォルトの名無しさん
07/12/19 17:25:22
BORDERをnoneにしたら一応リサイズ不可に出来るけど他の弊害でかいしなー。
レイアウト固定出来ればもっと見栄えがするもの作れるんだけど。

570:デフォルトの名無しさん
07/12/19 17:52:28
JAVAの最初の頃ってレイアウトの抽象的さ加減に驚いたけど、そっちの方向に
なっていくのかねぇ。土台としてるHTMLも、レイアウト決め打ちの弊害も議論
の種にはなるし。

でもHTA作ってると、アプリって結局、入力窓と出力窓とボタンがあればいい
んだよなぁ、と感じてしまう。

571:デフォルトの名無しさん
07/12/19 17:52:35
BORDERをthinにしたらリサイズ不可にならないか？

572:デフォルトの名無しさん
07/12/19 19:04:27
dialogにしろ

573:デフォルトの名無しさん
07/12/19 20:13:25
VS2008expressDLISO版は最初にsetup.htaを使う

574:568
07/12/19 21:09:31
そのSetup.htaが何故かリサイズ可になっててレイアウトが崩れちゃう
ってことを言いたかったんだすまん

575:デフォルトの名無しさん
07/12/19 22:01:40
というか､間に合わせや小物作るためのHTAで見栄えとか気にすんなよ
HTAはとりあえず使えれば問題なし､それ以上を求めるならまともな言語使えって話だ

576:デフォルトの名無しさん
07/12/19 22:17:00
>570
でもさー
VB6でコントロールたんまり載せたフォームを
後からサイズ可変にしろ(当然コントロールのサイズ・位置も追随)
とか言われたら殴りたくなるよ俺はorz
Javaなり.net Windows.Formなりが心の底から羨ましくなる。
スレ違いスマソ

577:デフォルトの名無しさん
07/12/20 15:12:49
IE8のβ版が2008年前半にリリースらしいけど
IE8でのhtaの扱いはどうなるんだろうか。

578:デフォルトの名無しさん
07/12/22 20:20:13
HTAでShell.Applicationとか使って、explorerみたいなファイラにチャレンジしてみましたよ
URLﾘﾝｸ(www.vector.co.jp)
最新版 URLﾘﾝｸ(briefcase.yahoo.co.jp)

579:デフォルトの名無しさん
07/12/22 20:54:47
某スレでHTAでファイラ作るとか言ってた人がいたが本当に作る人が出てきたか。
　あれ？もしかして本n(ry

580:デフォルトの名無しさん
07/12/23 12:40:19
その人とは違いますよ。
でも思いつきとは逆に大変だったのは仮想フォルダとかZIPフォルダ、ネットワークのセキュリティ設定に対してで、いまだに収拾ついてません。
そのへんはソースみて笑ってやってください。

581:578
07/12/23 21:01:29
おー、雑誌掲載依頼がきたっ

582:デフォルトの名無しさん
07/12/23 22:56:18
>>581
はやっ！

583:デフォルトの名無しさん
08/01/03 16:49:45
現時点で足りていない、でも普通に考えたら標準的な機能を
あつめたocxをひとつこしらえて、それをデファクトスタンダード
に祭り上げれば HTAは間違いなく流行する

584:デフォルトの名無しさん
08/01/03 17:15:31
あけおめっ　…もう三日か…

MSDN廻ってて見つけたんだけど
Windows Vista 以降における DHTML Editing Control の代用
URLﾘﾝｸ(www.microsoft.com)
HTA作成でも影響しそうなふいんき（←なぜか(ry

Vista向けには
・サードパーティ製の代用コントロールを探す
・必要な機能を <iframe> 要素とスクリプトを使用して再実装
・(HTC、ビヘイビアで代用（機能をカプセル化）// Outlook Web Access で良好
・Windows インストーラ（DHTML Editing Control と TriEdit）を取得
URLﾘﾝｸ(www.microsoft.com)
"まとめ"から引用
『～配布用のライセンスも取得できます。ダウンロードしたものを Windows Vista にインストールすると、コントロールやドキュメントオブジェクトは、Windows の以前のバージョンと同じように使用できます。』
みたいな感じ？Vista持ってないから判らん。

585:デフォルトの名無しさん
08/01/03 17:55:08
つかってねーよ

586:デフォルトの名無しさん
08/01/04 19:09:02

>>584
乙！

587:デフォルトの名無しさん
08/01/04 19:19:46
乙って程のもんか?

588:デフォルトの名無しさん
08/01/04 19:35:26
丙でしょうか？

589:デフォルトの名無しさん
08/01/04 20:04:41
いや、甲かも？

590:デフォルトの名無しさん
08/01/04 21:48:57
丁

591:578
08/01/05 19:20:40
雑誌掲載2つめ！

592:デフォルトの名無しさん
08/01/05 20:49:14
そりゃネタ不足な昨今､自分で売り込めばいくらでも･･･
まあ口先では売り込みなんてしてないと言うんだろうけどw

593:デフォルトの名無しさん
08/01/05 22:48:16
おめでとう。掲載誌贈呈２冊ゲット
次は窓の杜の記事で紹介だね

594:デフォルトの名無しさん
08/01/05 22:54:36
2つというと
Windows100%
IP!
とか？

595:デフォルトの名無しさん
08/01/05 23:16:31
それじゃ悲しすぎる

596:デフォルトの名無しさん
08/01/05 23:50:10
>>583
どうせならWSHを使うときに欲しい機能も含んでほしいな。

597:578
08/01/06 01:46:42
>>594
あたりです。3月号。

598:デフォルトの名無しさん
08/01/06 18:42:58
>>583
小物ツール作るにしてもこれぐらいはほしい。
window.onmove
window.onoledropdrop

あとアイコンの表示も・・・

599:デフォルトの名無しさん
08/01/06 19:13:47
フレームワークなら海外のがいくつかあるne
jshtaframework - Google Code
URLﾘﾝｸ(code.google.com)
HTALite Framwork, rev b
URLﾘﾝｸ(www.scriptinganswers.com)
"HTA Framework Library"（計画中？）
URLﾘﾝｸ(www.scriptinganswers.com)
とか。ocxじゃないやつね。

600:デフォルトの名無しさん
08/01/06 20:07:43
フレームワークもあった方がいいけどそれよりも
絶望的に足りないのは単純機能だよね。
ネットワークソケットとかシリアルインターフェイスとか

601:デフォルトの名無しさん
08/01/06 20:28:01
その辺は問題ない
超初心者以外には

602:デフォルトの名無しさん
08/01/06 21:37:02
>>601
デファクトと呼んでも差し支えの無いお勧めのコントロールってある？

603:デフォルトの名無しさん
08/01/06 22:26:51
うん

604:603
08/01/07 00:11:34
ねーよｗｗｗ

605:デフォルトの名無しさん
08/01/09 00:02:03
スクリプトでGUIが作れるってのは大きい
でもJavaScriptのサンプルがあってもVBScriptのサンプルはなぜか少ない

606:デフォルトの名無しさん
08/01/09 09:00:13
そうでもないか

607:デフォルトの名無しさん
08/01/09 10:12:54
ログファイルを読み込んで処理の結果を表示させたり、
二つのファイルを読み込んで差分を取ったり、
そういう簡素な作業には最適だよね、HTAは。

608:デフォルトの名無しさん
08/01/09 21:04:53
>>602
ネットワークは、ソケットではないけどXMLHTTPが使えると思う。
すまん、やったことないけど。

609:デフォルトの名無しさん
08/01/09 21:11:55
>>608
クライアントだけじゃなくて
HTTPサーバの機能もないと通信できないジャン！

610:デフォルトの名無しさん
08/01/10 23:45:18
(OCX/OLE/ActiveX/COM)関係情報いくつか

　Win32API を使う

Win32API.VB.NET(Windows95/98/Me / プログラミング)
"VBScriptなどからVB.NET経由でWin32APIを呼び出すCOMオブジェクト"
URLﾘﾝｸ(www.vector.co.jp)
-利用者（ユーザ）側でも.NET Frameworkが必要

SFC mini(WindowsNT/2000/XP/Vista / プログラミング)
"VBScript/JScriptでWin32API・構造体・コールバック関数・ウィンドウプロシージャを扱う"
URLﾘﾝｸ(www.vector.co.jp)

　レジストリに登録しない方法
　　ClickOnce（Windows XP以降）

Registration-Free COM - COM/ActiveX
"～ COMコンポーネント(Active X DLL)も使えます。"
URLﾘﾝｸ(www.ailight.jp)

ClickOnce 情報のサイト－ IT+
URLﾘﾝｸ(www.masahiko.info)

コラム - ClickOnceのファイル構成を理解する
"～ Visual Studio 2005 がなかったとしても、.NET Framework 2.0 SDK に含まれる、mage.exe を使用することによって、作成されたアプリケーションの ClickOnce 配布が可能になります。"
URLﾘﾝｸ(vsug.jp)

611:デフォルトの名無しさん
08/01/11 09:22:07
どちらも今更感が･･･

612:デフォルトの名無しさん
08/01/11 17:14:51
powershellでformつかえよ

613:スレタイ嫁
08/01/11 19:04:28
>>585 >>603 >>604 >>611 >>612
あぼーんするから酉つけてくれ。

>>583,602
なにか新しいアクション起こすなら2ch離れる事も考えた方がいいかもしれない。寂しい事だけど。

614:デフォルトの名無しさん
08/01/11 20:54:09
>>578
漏れが作るダサいのと違ってＵＩがかっこいい…

615:デフォルトの名無しさん
08/01/12 23:51:01
LANで接続された2台のXPsp2のPC(A,B)があり、
両方でHTAアプリケーションが立ち上がっているとします。
AのHTAにはボタンが配置されており、これ押下するとBの画面が変わる、
といったことを実現するソリューションはありますか？

616:デフォルトの名無しさん
08/01/13 00:16:23
あります
でもHTA分野の話ではないね
汎用的な物なのでHTAでも使えるってだけで

617:デフォルトの名無しさん
08/01/13 02:34:47
教えてください。
あれからもうすこし調べたところ、共有フォルダへの書き込みを
WMIイベントで監視する方法が使えるかなと思ったのですが、
どうもリアルタイム性に難点があるようで、行き詰まっています。

618:デフォルトの名無しさん
08/01/13 04:10:36
自分で調べてください

619:デフォルトの名無しさん
08/01/13 09:05:21
IFRAME + XMLHTTP で自己解決しそうです。

620:デフォルトの名無しさん
08/01/14 18:29:30
>共有フォルダへの書き込みを
>WMIイベントで監視する方法が使えるかなと思ったのですが、
>どうもリアルタイム性に難点が

調べ方が悪い

621:デフォルトの名無しさん
08/01/15 06:32:39
めんどくさい奴だな

622:デフォルトの名無しさん
08/01/15 13:42:01
>>620
参考にしたサンプルがWSHだったのですが、
それは単一のタスクでイベントをとろうとしたために
やむを得ずポーリングしていたということですね。
HTAコンテナの場合は新たな<script>タグを書くことで
イベントを辛苦できることがわかりましたので、
この方向で進んでみます。

623:デフォルトの名無しさん
08/01/17 00:42:19
>参考にしたサンプルがWSHだったのですが、
>それは単一のタスクでイベントをとろうとしたために
>やむを得ずポーリングしていたということですね。

何がやむを得ずだ？できるだろ、WSHで。

624:デフォルトの名無しさん
08/01/17 12:31:35
>単一のタスクでイベントをとろうとしたために
>やむを得ずポーリングしていた

すいません言い換えます。
「WSHは単一のタスクで動いている環境なので
非同期イベントがとれず、やむを得ずポーリングしていた」
というニュアンスです。
一応下記のようにExecNotificationQueryAsyncを使えばイベントがシンクできることがわかりました。

<object id="objWbemSink"　classid="clsid:75718C9A-F029-11D1-A1AC-00C04FB6C223"></object>
<script language="JScript">
onload = function() {
　new ActiveXObject('WbemScripting.SWbemLocator')
　　.ConnectServer()
　　.ExecNotificationQueryAsync(
　　　objWbemSink, "SELECT * FROM __InstanceCreationEvent WITHIN 1" +
　　　" WHERE TargetInstance ISA 'CIM_DirectoryContainsFile' and" +
　　　" TargetInstance.GroupComponent= 'Win32_Directory.Name=\"c:\\\\\\\\Scripts\"'"
　　);
}
</script>
<script for="objWbemSink" event="OnObjectReady(objWbemObject, objWbemAsyncContext)">
　window.alert(objWbemObject.TargetInstance.Path_ );
</script>
しかしこれでもポーリングしていることに変わりはなく、
あまりスマートな方法とは思えません。
ポーリングせずにイベントをとる方法がほかにあれば、
そちらを検討してみたいと考えています。

625:デフォルトの名無しさん
08/01/18 21:45:14
>「WSHは単一のタスクで動いている環境なので
>非同期イベントがとれず、

とれるけど？

626:デフォルトの名無しさん
08/01/18 22:32:28
ご質問です。
びへいびあ作るなら .htc と .wsc のどっちがお奨めですか？

627:デフォルトの名無しさん
08/01/20 01:19:05
htaでもconnectObjectはしたいわな

628:デフォルトの名無しさん
08/01/20 01:29:25
はぁ？

629:578
08/01/20 15:14:24
jquery.jsってスゴーなライブラリがあるんですね。
URLﾘﾝｸ(charupload.wordpress.com)

これ使って作り直すよ。

630:デフォルトの名無しさん
08/01/25 22:45:47
jQuery、クライアントアプリへも指向性はあるようだ
URLﾘﾝｸ(gihyo.jp)

631:578
08/01/26 12:47:59
テーブルのソートと右クリックメニュー(UIだけ)を入れてみました。
URLﾘﾝｸ(briefcase.yahoo.co.jp)

jQueryマジサイコー！

632:デフォルトの名無しさん
08/02/12 04:00:16
UAタダ漏れなのはホントどうにかならんのか

633:578
08/02/23 02:24:44
静かなので宣伝。
ドラッグドロップでファイル移動するようにした。
その他細かい操作をエクスプローラに近づけた・

634:デフォルトの名無しさん
08/02/24 00:43:05
別にどうでもいいけどな

635:デフォルトの名無しさん
08/02/24 07:01:08
>>633
jqueryをHTAで使うのって便利？
どのへんのクラスだかメソッドだかが使える？

636:デフォルトの名無しさん
08/02/24 07:16:30
ああそっか、 HTAならSkyDriveを統合できるのか

637:デフォルトの名無しさん
08/02/24 18:17:55
HTAをXHTMLで記述するメリットってありますか？

638:デフォルトの名無しさん
08/02/25 20:25:23
まずHTMLをXHTMLするメリットを考えてくれ
そしてそれがHTAで通用するかどうか

639:デフォルトの名無しさん
08/02/26 20:12:24
>>638
普通に考えるとないですよね。
ただ、578のソースとか、たまに記述してあるのを見かけるのでなんでかなと。
・・・と思ったけど、よく見るとXHTMLじゃなくて単にDOCTYPE宣言入れるのが
目的だったようですね。

640:デフォルトの名無しさん
08/02/27 00:38:07
578はxmlじゃねージャン。

ちなみにhtmlでも <hta:application> は閉じておｋ

641:デフォルトの名無しさん
08/02/27 13:41:15
DOCTYPE宣言を入れると窓の大きさの把握がしやすいからな。

642:578
08/02/28 23:43:32
>>635
全然使いこなせてません。
UI系は便利でしたが、レスポンスは落ちました。
>>636
統合ってhttpで?
最新版こっちにしました。
URLﾘﾝｸ(cid-b4b8259365d2529f.skydrive.live.com)
>>639
DOCTYPE宣言はCSSの解釈のためです。
>>641
窓の大きさを把握するうまい方法があったら教えてください。
ダサいやり方しかできてません。

643:デフォルトの名無しさん
08/02/29 14:13:25
htaでJaneの画像ビューア作ってください

644:デフォルトの名無しさん
08/02/29 23:16:28
imgタグにurl指定でFA
そのほかの細かい操作はお好みでどうぞ

645:636
08/02/29 23:20:34
>>642
うぃー。思いついてすぐ大して利便性上がらないことに気付いたのでボツ。

646:デフォルトの名無しさん
08/03/01 21:38:35
HTAが凄いって分かったけど、VBE並の開発環境ってないの？

647:デフォルトの名無しさん
08/03/01 21:52:55
１クリックで走れば十分
いいエディタを選ぶことだ

648:578
08/03/02 02:01:53
>>646
OfficeのProfessionalについてるScriptEditorならJIT有効にすればアタッチさせてデバッグできますよ。
VisualStudioならShell.Application内も参照できました。

649:デフォルトの名無しさん
08/03/02 12:03:42
メモ帳でアプリ作ってるとこにエクスタシー覚えるんだよ。

650:デフォルトの名無しさん
08/03/02 21:08:21
>>648
Thx!
VSで使えるとは・・・
それは素晴らしい

651:デフォルトの名無しさん
08/03/02 21:23:39
>649
ごめん俺サクラエディタ使ってる

652:デフォルトの名無しさん
08/03/03 13:54:34
誰かHTA開発用の伝説のＩＤＥをつくってくれ！
HTAで

653:デフォルトの名無しさん
08/03/06 15:30:45
ｈｔａってwindow閉じるとクッキー消えるのか…？

654:デフォルトの名無しさん
08/03/06 22:55:00
期限付け忘れてないか？
XPSP2でクッキーは使えた記憶があるぞ

655:デフォルトの名無しさん
08/03/07 08:18:38
ありがとう

656:デフォルトの名無しさん
08/03/08 21:07:16
ドラッグでウィンドウ動かすサンプルある？

657:デフォルトの名無しさん
08/03/09 00:35:24
<div>とかじゃなくてウインドウ自体を動かすの？

658:デフォルトの名無しさん
08/03/09 21:24:09
試したことはないが出来そう
クリックでフラグON
mousemoveで差分取って動かす

659:デフォルトの名無しさん
08/03/10 01:26:16
URLﾘﾝｸ(www.stekolla.com)

660:デフォルトの名無しさん
08/03/10 12:45:53
>>656
昔、俺がした質問。
>マウスドラッグでウィンドウの移動を行いたいのですがwindow.moveBy() でアクセスが拒否されます。
>右ボタンならドラッグできるのですが左ボタンでドラッグするにはどうすればよいでしょうか？

<html>
<head>
<hta:application border="none"/>
<script>
var move = new Object();
function mouseDown() {
document.body.setCapture();
move.x = window.event.screenX;
move.y = window.event.screenY;
document.body.attachEvent("onmousemove", mouseMove);
document.body.attachEvent("onmouseup", mouseUp);
}
function mouseMove() {
window.moveBy(window.event.screenX - move.x, window.event.screenY - move.y);
move.x = window.event.screenX;
move.y = window.event.screenY;
}
function mouseUp() {
document.body.detachEvent("onmousemove", mouseMove);
document.body.detachEvent("onmouseup", mouseUp);
document.body.releaseCapture();
}
</script></head>
<body onmousedown="mouseDown()">ドラッグテスト</body></html>

661:デフォルトの名無しさん
08/03/10 12:52:37
リサイズとか移動とかするときに
左ボタン押してるとエラー出るんだよね。厄介な。

662:デフォルトの名無しさん
08/03/11 02:26:06
右クリック仕様だ。
スクロールバーだと左ボタンでもついてくるな。visitaだが。

<html><hta:application border="none" contextmenu='no'/>
<body onmousedown="mouseDown()"><div id=d>ドラッグテスト</div><body></html>
<script>
resizeTo(200,100);
d.style.height=1300;
var move = new Object();
function mouseDown() {
document.body.setCapture();
move.x = window.event.screenX;
move.y = window.event.screenY;
document.body.attachEvent("onmousemove", mouseMove);
document.body.attachEvent("onmouseup", mouseUp);
}
function mouseMove() {
try{
moveBy(window.event.screenX - move.x, window.event.screenY - move.y)
}catch(e){;}
move.x = window.event.screenX;
move.y = window.event.screenY;
}
function mouseUp() {
document.body.detachEvent("onmousemove", mouseMove);
document.body.detachEvent("onmouseup", mouseUp);
document.body.releaseCapture();
}
</script>

663:デフォルトの名無しさん
08/03/11 19:27:47
タイトルバーをドラッグしたらウィンドウ移動できたよ！ﾋｬｯﾊｰｰｰｰｰｰﾂ!!!

664:デフォルトの名無しさん
08/03/11 19:59:48
3点

665:656
08/03/12 20:30:12
亀だけど㌧
>>662のソースだとうまくいくな。
ただ左ドラッグで動かないようにするのはどの部分なんだ？
単純に左クリックだったらreturn false;とかならわかりやすいんだが。
しかも>>660との違いがいまいちﾜｶﾝﾈ
単にエラーになってるけどtry～catchで無視されてるってだけか？

666:デフォルトの名無しさん
08/03/12 21:31:01
let'snoteのヘルプがHTAだった。
もう十分必要なところで流行ってるじゃね？

667:662
08/03/12 23:39:30
>>665
その通り、catch(e){何もしない}
他の違いはスクロールバーをアクティブにさせているのとcontextmenu='no'

668:デフォルトの名無しさん
08/03/12 23:51:21
でも右で移動って不自然だよな。
こういうちょっとした所で残念賞なんだよなhtaは

669:デフォルトの名無しさん
08/03/15 15:42:11
<script language="javascript"></script>内で、ファイル保存、ファイルオープン、フォルダセレクトのダイアログを表示させる方法を教えてください
確かに前使ってた記憶があるんだが、ソースもないし検索してもさっぱり見つからない

670:デフォルトの名無しさん
08/03/15 16:00:08
showModalDialog

671:デフォルトの名無しさん
08/03/15 18:03:09
タグをもっと増やして欲しい。

672:デフォルトの名無しさん
08/03/15 18:10:14
そこでHTCですよ

673:デフォルトの名無しさん
08/03/16 18:57:33
>>669
URLﾘﾝｸ(scripting.cocolog-nifty.com)
これ嫁

674:デフォルトの名無しさん
08/03/18 02:35:08
vistaのコンパネって実はhtaだったりしないかなぁ
htaだったらsauceを参考にしたい部分が山ほど有るんだが

675:デフォルトの名無しさん
08/03/18 02:40:13
sauceってフランス語？

676:デフォルトの名無しさん
08/03/18 03:24:30
英語にあるけど？

677:デフォルトの名無しさん
08/03/18 09:14:54
この文脈ではsourceだろうな。

678:デフォルトの名無しさん
08/03/19 15:45:27
>>674
しらべりゃわかるだろ？

679:デフォルトの名無しさん
08/03/19 18:52:18
そりゃ調べて分からない事なんて無いな

680:デフォルトの名無しさん
08/03/19 18:53:42
>>679
驕りすぎ。

人間は万物の長とでも思ってるのか？

681:デフォルトの名無しさん
08/03/19 22:59:56
万物の長の意味がわかってるのか？

682:デフォルトの名無しさん
08/03/19 23:40:39
中国の城

683:デフォルトの名無しさん
08/03/20 01:05:27
Ctrl+Pできる？

684:デフォルトの名無しさん
08/03/20 10:48:16
>>683
できるにきまってる

685:デフォルトの名無しさん
08/03/20 11:25:39
いい加減に城

686:デフォルトの名無しさん
08/03/20 12:56:05
できるならhtmlとれる

687:デフォルトの名無しさん
08/03/20 21:14:47
それは右クリックソース表示とは違うのか
とられたくなければ、キーイベントnullでreturnしとけばよい

688:デフォルトの名無しさん
08/03/24 12:57:14
なんかの間違いで半年ぶりくらいにこのスレ開くが
案外伸びてるな。

689:デフォルトの名無しさん
08/03/26 14:26:06
コンパネで右クリックソース表示できんだろ？

690:デフォルトの名無しさん
08/03/26 21:08:48
タスクマネージャーでmshtaが起動してないからHTAのわけないんだよ

691:デフォルトの名無しさん
08/03/26 21:18:26
>>690
リソース内のファイル拡張子は .hta だ。

692:デフォルトの名無しさん
08/03/27 00:18:46
タイトルバーをクリックしたときのイベントって拾えますか？

693:デフォルトの名無しさん
08/03/28 17:09:52
無理じゃね？なんとなく

694:デフォルトの名無しさん
08/03/28 17:56:20
タイトルバーなくして、自分でタイトルバーもどきを作れば？

695:デフォルトの名無しさん
08/03/29 13:01:30
タイトルバーの機能って何だ？
左端のアイコンをクリックスるとメニューが出る
右端にクローズとか最大化とかのボタンを設置
それ以外をドラッグするとウィンドウ全体をスクロール
ダブルクリックすると最大化←→解除

696:デフォルトの名無しさん
08/03/29 13:40:00
<hta:application caption="no">
<img src="title_Bar_modoki.jpg" style="position:absolute;">

697:デフォルトの名無しさん
08/04/01 19:28:40
htaをexeにしようと思ってhtabox使ったんだが
アイコンが強制的に変えられる。
なんかアイコン変えるソフトってある？

698:デフォルトの名無しさん
08/04/01 20:29:45
こんなレベルの奴がHTA使ってるなんて信じられないぜ（　ﾟдﾟ）ﾎﾟｶｰﾝ

あ、もしかして4/1ネタ？

699:デフォルトの名無しさん
08/04/03 18:51:16
>>698より省力なレスをしてやろう
>>697 resourse hacker

700:デフォルトの名無しさん
08/04/04 00:20:27
resourse（笑）

701:デフォルトの名無しさん
08/04/04 01:04:06
resauce(正)

702:デフォルトの名無しさん
08/04/04 02:21:27
まったく持って(正)でないし
IMEで英語辞書ONにしてリソースで変換したほうが早い

703:デフォルトの名無しさん
08/04/04 16:58:24
まったく持って（笑）

704:デフォルトの名無しさん
08/04/04 17:02:10
国語辞書をまったく持ってないのか？

705:デフォルトの名無しさん
08/04/04 17:08:34
>>704ｗｗ

706:デフォルトの名無しさん
08/04/04 21:51:06
遺憾と言わざる負えない

707:デフォルトの名無しさん
08/04/07 23:11:52
書いた後でcとsに気が付いたけどわざわざ訂正するまでもないかと思った。

708:デフォルトの名無しさん
08/04/08 00:53:11
HTAの中で
<a href="URLﾘﾝｸ(www.yahoo.co.jp)" target="_blank">ほげ</a>
と書いてこれをクリックすると、標準のブラウザーではなくIEでリンク先が開いてしまいます
標準のブラウザーで開くにはどうしたら良いのでしょうか

709:デフォルトの名無しさん
08/04/08 01:02:12
レジストリから標準のブラウザを調べて
WshShell.Run()する

710:デフォルトの名無しさん
08/04/08 01:05:58
直接url指定でいけるんじゃね？

711:デフォルトの名無しさん
08/04/08 01:08:33
言われてみればそうだね

712:デフォルトの名無しさん
08/04/08 01:18:13
<html><head>
<script type="text/jscript">
var WshShell = new ActiveXObject("WScript.Shell");
function go() { WshShell.Run(event.srcElement.href); return false; }
</script></head>
<body><div><a href="URLﾘﾝｸ(www.yahoo.co.jp)" onclick="return go()">Yahoo!</a></div></body>
</html>

713:デフォルトの名無しさん
08/04/12 01:18:12
じゃあHTA内でURLを開くには？

714:デフォルトの名無しさん
08/04/12 01:25:38
iframe

715:デフォルトの名無しさん
08/04/12 09:14:31
<object type="text/html" data="URLﾘﾝｸ(google.com)">
でもいけるはず

716:デフォルトの名無しさん
08/04/13 13:25:59
HTAの中にiframeでhtmlを表示してるのですが
1.親のHTAからiframeの中のhtmlのオブジェクトにアクセスする
2.子のhtmlが「自分は今HTAの中で実行されている」or「自分は今html単体で実行されている」かを判断する
にはどうしたら良いのか教えてください

javascript iframe　でググったサンプルを試してもことごとく使えないのですが、htaの時にはセキュリティかかってるのかな

717:デフォルトの名無しさん
08/04/13 13:38:41
<title>親です。</title>
<iframe src="kodomo.htm" application="yes"></iframe>

<title>子です。</title>
<script>
document.write(parent.document.title);
</script>

718:デフォルトの名無しさん
08/04/13 14:25:06
ありがとう

719:デフォルトの名無しさん
08/04/13 14:33:16
htaと同じく無セキュリティ状態になるから外のWEBは表示しないほうがいいぞ。

720:デフォルトの名無しさん
08/04/14 17:20:37
function adoSaveText(filename, text, charset){//テキストファイルを保存する
/*charset の値の例:
_autodetect, euc-jp, iso-2022-jp, shift_jis, unicode, utf-8,...
*/
try {
var stream, text;
stream = new ActiveXObject("ADODB.Stream");
stream.type = 2;
stream.charset = charset;
stream.open();
stream.writeText(text);
stream.saveToFile(filename, 2);
stream.close();
}catch(e){
return e;
}
}
rez=adoSaveText("ほにゃらら.txt","text","unicode")
で、
rez['name']=Error
rez['number']=-2146825284
rez['description']=ファイルへ書き込めませんでした。
rez['message']=ファイルへ書き込めませんでした。

な、エラーが返ってきたのですが、当然"ほにゃらら.txt"を開いているアプリケーションはありませんし
"ほにゃらら.txt"をリネームすることも出来ます

急に何の前触れもなく発生するんですが、原因分かる人教えてください

721:デフォルトの名無しさん
08/04/14 17:42:10
ADODB.Stream htaでぐぐれんこん

722:デフォルトの名無しさん
08/04/14 18:38:58
もちろんググったが、セキュリティが理由で書き込めないのしか見つからない
本当に「いきなり」書き込めなくなるんだ

で、諦めて放置してたら書き込めるようになっていたりする

723:1
08/04/14 22:52:07
で、諦めて放置してたら書き込めるようになっていたりする

ってもう解決したみたいに言っちゃったけど、>>720の原因はまだ分かっていないので回答よろしくお願いします

724:デフォルトの名無しさん
08/04/14 22:52:49
名前欄は間違えた

725:デフォルトの名無しさん
08/04/15 00:52:42
自己解決

726:デフォルトの名無しさん
08/04/15 02:20:56
教えて

727:デフォルトの名無しさん
08/04/15 13:28:09
＞ファイルへ書き込めませんでした。
は
＞セキュリティが理由で書き込めないの
だろ？

728:デフォルトの名無しさん
08/04/15 15:03:27
フォルダの権限とか

729:デフォルトの名無しさん
08/04/15 18:10:00
>>727
セキュリティを返るような事は一切していないのに書き込めなくなるんだよ

730:デフォルトの名無しさん
08/04/15 18:11:55
どう解決したのか教えてくれよ

731:デフォルトの名無しさん
08/04/15 18:31:30
>716,718,720,722-725,729が俺なんだけど

配列Aのデータを
for(i=0;i<A.length;i++){
　A[i]をファイル"ほにゃらら.txt"に書き込み
　インラインフレームのsrcを"ほにゃらら.txt"にして、インラインフレームを更新
}
って事をしていた
で、A[0]をファイルに書き込むのは成功するんだけど、A[1]以降は必ず失敗していた

配列Aの長さは毎回変わるから、A.length=1の時は正常に書き込めていて
A.length>1&&i>1の時だけファイルの書き込みエラーが発生していたんだけど、配列の長さは手動で決定している訳じゃないから
＞本当に「いきなり」書き込めなくなるんだ
と、思ったわけ

で、ここまで来れば分かると思うけど
インラインフレームのsrcを"ほにゃらら.txt"にして、インラインフレームを更新
ってのが原因だった

インラインフレームの更新は
document.getElementById('log').src="ほにゃらら.txt";
こうやって行っていたんだけど、これは、インラインフレームが読み込み中
つまり"ほにゃらら.txt"をロックしている時に次の命令（＝A[i]をファイル"ほにゃらら.txt"に書き込み）に移行しちゃって
インラインフレームとして読み込み中の"ほにゃらら.txt"に書き込もうとしてエラーが発生していたというわけ

おしまい

732:デフォルトの名無しさん
08/04/15 19:25:24
ありがと。

733:デフォルトの名無しさん
08/04/15 20:27:09
>な、エラーが返ってきたのですが、当然"ほにゃらら.txt"を開いているアプリケーションはありませんし

が嘘だったってこと？

734:デフォルトの名無しさん
08/04/15 20:43:15
なら分かるわけがないな

735:デフォルトの名無しさん
08/04/15 20:47:14
>>733
for(i=0;i<A.length;i++){
　A[i]をファイル"ほにゃらら.txt"に書き込み
　インラインフレームのsrcを"ほにゃらら.txt"にして、インラインフレームを更新
}
を、実行したら2ループ目移行は上記の理由でエラーになる
それが「エラーが起きて書き込めない」って思った理由

インラインフレームの更新は人間にとっては一瞬だから
テストしたらエラーが出る
↓←この間に読み込みが終わった
うーん、もしかしてファイルにロックがかかってるのか？
チェックしてみよう

まさかmshta.exe内部でファイルロックしてエラー起こしてるとはね

736:デフォルトの名無しさん
08/04/16 13:58:10
まさか自分で開いておきながら
>な、エラーが返ってきたのですが、当然"ほにゃらら.txt"を開いているアプリケーションはありませんし
とはね

737:デフォルトの名無しさん
08/04/16 18:42:10
もうやめてっ！　とっくに731のライフはゼロよ！！

738:デフォルトの名無しさん
08/04/16 20:16:32
>>720を読めば「ロックしているアプリケーションは無いのに書き込めない理由が分からない
ロックしているアプリケーションがない根拠はリネーム出来るから」って分かりそうなものだが
分からなかったのか

739:デフォルトの名無しさん
08/04/17 12:59:40
意味不明

740:デフォルトの名無しさん
08/04/17 19:28:22
まぁ本人には意味分かって当然だよな。

741:デフォルトの名無しさん
08/04/17 21:23:08
そりゃリネームや同一ドライブ上の移動ならね
ファイルではなくファイルとは別に管理されてる
「ファイルの置かれてる場所」の情報を弄るだけだから
まあ、そういうことも出来ないようなロックの仕方もあるけどね

742:MagicHu
08/04/18 00:10:23
首先用 ExtractIcon 获取图像句柄然后用 OleCreatePictureIndirect 函数保存图像
まず、API関数ExtractIcon使って、IconのHandlerを取得する。
取得したHandlerがOleCreatePictureIndirectの引数として、HandlerのIconが保存できます
道が見つかりました、ただし、また試してなかった。

743:デフォルトの名無しさん
08/04/18 01:22:23
2chもグローバルになったもんだなぁ

744:デフォルトの名無しさん
08/04/18 01:42:12
>>741
またわけわからんことほざいて

745:デフォルトの名無しさん
08/04/18 22:09:14
>>742
日本語でおｋ

746:MagicHu
08/04/19 16:26:16
EXE から　iconを取得
HTA：
<html><head><title>タイトル</title>
<script language=vbscript>

Sub window_onload()

Set myXlsAPP = CreateObject("Excel.Application")
myXlsAPP.Visible = False
Set myTEST = myXlsAPP.Workbooks.Open("c:\book1.xls")
myXlsAPP.Run("SaveIcon")
myTEST.Close()
myXlsAPP.Quit
End Sub
</script>
</head>
<Body>
</Body>
<input type = "image" src ="c:\cd.ico" alt="Ea" style="Height:20;Weidth:20">
</html>

747:MagicHu
08/04/19 16:32:31
VBA URLﾘﾝｸ(www.china-askpro.com)
中国の資料。Sourceが長いすぎ、すみません、この掲示板に書き込みできない。

748:MagicHu
08/04/19 16:34:04
Public Sub SaveIcon()
hIcon = Excel.ExecuteExcel4Macro("CALL(""shell32"",""ExtractIconA"",""JJCJ"",0,""D:\Program Files\Warcraft III\Frozen Throne.exe"",0)")
' DestroyIcon hIcon
Dim icn As StdPicture
Set icn = CreateOlePicture(hIcon)
SavePicture icn, "c:\cd.ico"
End Sub

749:MagicHu
08/04/19 16:40:11
Public Const PICTYPE_ICON = 3 ' The picture type is an icon. When this value occurs in the PICTDESC structure, it means that the icon field of that structure contains the relevant initialization parameters.

' Type - OleCreatePictureIndirect
Public Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type

' Type - OleCreatePictureIndirect / OleLoadPicture
Public Type PICTDESC_ICON 'picType = PICTYPE_ICON
cbSizeOfStruct As Long 'UINT // Size of the PICTDESC structure.
PicType As Long 'UINT // Type of picture described by this structure, which can be any of the following values: PICTYPE_UNINITIALIZED, PICTYPE_NONE, PICTYPE_BITMAP, PICTYPE_METAFILE, PICTYPE_ICON, PICTYPE_ENHMETAFILE
hIcon As Long 'HICON // The HICON identifying the icon assigned to the picture object.
End Type

Public Declare Function OleCreatePictureIndirect Lib "OLEPRO32.DLL" (ByRef PicDesc As Any, ByRef RefIID As GUID, ByVal fPictureOwnsHandle As Long, ByRef IPic As StdPicture) As Long 'As IPicture) As Long

750:MagicHu
08/04/19 16:40:45
Public Function CreateOlePicture(ByVal PictureHandle As Long, _
Optional ByVal BitmapPalette As Long = 0, _
Optional ByVal MetaHeight As Long = -1, _
Optional ByVal MetaWidth As Long = -1, _
Optional ByRef Return_ErrNum As Long, _
Optional ByRef Return_ErrDesc As String) As StdPicture
On Error Resume Next

Dim ReturnValue As Long
Dim PicInfo_ICON As PICTDESC_ICON
Dim ThePicture As StdPicture 'IPicture
Dim rIID As GUID

' Set the correct GUID for the "OleCreatePictureIndirect" API
With rIID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With

PicInfo_ICON.cbSizeOfStruct = Len(PicInfo_BMP)
PicInfo_ICON.PicType = PICTYPE_ICON
PicInfo_ICON.hIcon = PictureHandle
ReturnValue = OleCreatePictureIndirect(PicInfo_ICON, rIID, 1, ThePicture)
' Return the new picture
Set CreateOlePicture = ThePicture
End Function

次ページ