Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
マルチtiffの作成方法が知りたい
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30499#CommentId84008
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
魔界の仮面弁士
 (社会人)
投稿日時
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/