虹裏専用ブラウザ 2B 配布場所 【昨日は人にとしあきが2Bを利用されました】【今日は人にとしあきが2Bを利用しています】

雑誌・ブログ・２ちゃんねる等での 2B の紹介はご遠慮くださいませ　

いろいろ迷惑かけて申し訳ない Ver. 1.15.458 でエラーが多発する件についてです．

● IE11について

レスポップアップあたりのイベント処理のイベントパラメータが IHTMLEventObj を実装していない仕様に変更されたらしく エラーになります．

IE11対応が必要になります．

● フレンド関数とか出るエラー

原因不明．

恐らく呼び出せない関数があります．

カスタムIEコンポーネントのClientSiteに実装漏れのCOMインタフェースがあるんだと思います．

● IE11対応

IE10と違う所が多いので安易に対応できない状態です．

IE11での HTMLDivElement などのタグを表すオブジェクトのイベント(onclick とか)をVB6で受信した時のイベントパラメータが IHTMLEventObj を実装してない模様．．．

なぜこんな仕様になった．

Object型で受けて レイトバインド か．そんなの俺が許さん．

 

恐らく IDOMEvent の方かな．

ちなみに HTMLDocument で受ける イベント のパラメータは IHTMLEventObj で大丈夫みたいです．

連想配列のキーを列挙する方法が見つからなかったのですが 調べました．

前回 連想配列はキーをプロパティとして追加することを書きました．

つまり IDispatchEx を実装しています．

IDispatchEx は IDispatchEx：：GetNextDispID を使って現在動的(静的も含めて)に設定されているメンバーを列挙することが出来ます．先頭のディスパッチIDは 1 なので -1 になるまで取り続けます．

ディスパッチIDからメンバー名を取得するときは IDispatchEx：：GetMemberName を使います．

Dim objArgs As IDispatchEx Dim lngDispId As Long Dim strKey As String Set objArgs = (連想配列のインスタンス) '先頭のディスパッチIDは1 lngDispId = 1 Do 'キーを取得 Call objArgs.GetMemberName(lngDispId, strKey) Debug.Print strKey '値を取得 Debug.Print CallByName(objArgs, strKey, VbGet) '次のディスパッチID Call objArgs.GetNextDispID(0, lngDispId, lngDispId) Loop While lngDispId <> -1

最近のExcel VBA には LongPtr や LongLong のような型があるんですね．

LongPtr は環境によって 32bit幅・64bit幅に切り替わる数値型です．用途は ハンドルやアドレスを入れます(ポインタは環境によってサイズが変わるので)．

LongLong は完全な64bit数値のようです．以前のVBAでは 64bit数値を扱う時には bit幅が同じな Currency 型を使うしか無かったのですが 64bit専用の型が登場したわけです．

ただ LongLong は 64bit環境でしか有効にならないそうです．Win32APIでは32bit・64bitかかわらず引数に 64bit 数値が必要な関数がありますし 32bit環境でも浮動少数型を使わずに大きな数値を処理したいことがあるでしょうに．

64bit環境でしか有効にならない型って何に使うんだ？

サポート掲示板を設置してみました．

バグ・要望等がありましたら どうぞ