tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: LoadBitmapでVC6のDLLからbitmapを取得して描画。
投稿日: 2008/06/27(Fri) 15:52
投稿者よし
ご返答ありがとうございます。

OleCreatePictureIndirectの検索でK.J.K.さんのサイトにたどり着きました。
http://www.koalanet.ne.jp/~akiya/vbtaste/vbp/#else

サンプルH2PObj2.lzhをダウンロードして、試させてもらっております。
OleCreatePictureIndirectの第二引数のコンパイルエラーで行き詰っております。
エラーは、「Byref引数の型が一致しません。」です。

該当のサンプルは、そのままではコンパイルできないということで、
タイプライブラリの参照設定と、下記の定義を追加いたしました。

Private Type TGUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Private Declare Function OlePictureCreateIndirect _
    Lib "olepro32.dll" Alias "OleCreatePictureIndirect" _
( _
    lpPictDesc As TAutPictDesc, _
    RefIID As TGUID, _
    ByVal fOwn As Long, _
    ByRef lpvObj As Picture _
) As Long

恥ずかしながら結構時間をかけたのですが、解決方法を見つけられませんでした。
大変恐縮ですが、これについてアドバイスいただけますでしょうか。
よろしくお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。