現在、ある実行ファイルから外部に置いた複数の画像ファイルを読み込むようにしていますが、その画像ファイルを隠したいので、別の実行ファイル中に画像を埋め込んでEXEを作成し、別のEXEファイルから、画像ファイルを読み込むことはできるのでしょうか?
自分の知ってる範囲では・・・
画像をイメージリスト等に登録しておき、フォーム.Visible=Falseにして
Shell Chr(34) & "Me.exe" & Chr(34) & _
" " & Chr(34) & "3" & Chr(34), vbNormalFocus
という風に起動されると、引数3としてCommand()で受け取れます。
Form_Loadで
mImage = Command()
SavePicture ImageList1.ListImages(mImage).Picture,"BT1.bmp"
Unload Me
としてうけとるか、もしくは起動しっっぱなしでPicture.Boxの子ウィンドウハンドルを取得してキャプチャするか・・・
この程度でしかしりませんが参考までに・・。
書き忘れましたが
>その画像ファイルを隠したいので
という事ですのでShellで画像EXEを起動したあとタイマーを起動して
Private Sub Timer1_Timer()
If Dir$("BT1.bmp") <> "" Then
Set Picture1.Picture=LoadPicture("BT1.bmp")
Kill "BT1.bmp"
Timer1.Enabled = False
End If
End Sub
などとするといいと思います。
クリップボードを使うときも同様に
ありがとうございます。ご紹介していただいた方法をためしてみます。
ツイート | ![]() |