投稿者 魔界の仮面弁士  (社会人) 投稿日時 2020/5/29 23:12:02
> dim 変換画像 as bitmap
> for i= 0 to 2
>  変換画像(i)=Directcast(画像(i),bitmap)
> next
>
> この方法で、エラーはなくなってTiffファイルができていました

そのコードだと、コンパイルエラーになるハズですよ。
「変換画像」が配列になっていませんから。

掲示板投稿時に括弧を書き忘れたのでしょうけれども、
配列の初期化処理が無いので、どちらにしてもエラーになりそう。



> 今でも、VB6.0で可能なものはVB6.0で作ってまして
一応、VB6 でも同じものを作ることはできますね。

「tiffImage.SaveAdd(baseImages(i), ep)」の部分は GdipSaveAdd API に、
「tiffImage.Save(fileName, ici, ep)」は、GdipSaveImageToFile API に置き換えられます。
https://docs.microsoft.com/en-us/windows/win32/gdiplus/-gdiplus-image-flat

ただそのためには、gdiplus.dll で提供される GDI+ Flat API を Declare 宣言する必要が
ありますので、コーディング量は増加してしまうことになります。



VB6 という言語は好きなのですが、自分はもう、スッカリ使わなくなってしまいました…。
VBA 7.x や VBScript 5.8 は、未だに使っているのですけれどね。

そもそも、.NET な方の VB も終焉を迎えつつあるのですよね。ちょっと寂しい。
https://news.mynavi.jp/article/20200316-997140/