コントロールが挿入されます。 サイズを調整し、名前にＩＭＧ１など付けます。
コントロールをダブルクリックすると、 いろいろプロパティ変えられます。 ここでは、雑誌からのコピーで、 IMG1.ClearDisplay IMG1.Image = "" IMG1.Display IMG1.FitTo (0) をバクって、 Private Sub cmdREAD_Click() 'ファイルの存在チェック If Dir(Me![txtINFILE]) = "" Then MsgBox "画像ファイルが見つかりませんよ" Exit Sub End If '画像を表示 IMG1.ClearDisplay IMG1.Image = Me![txtINFILE] IMG1.Display IMG1.FitTo (0) End Sub として、テキストボックスに入力した画像ファイルを表示します。
次に、.ClearDisplay等にカーソルを合わせて、 Ｆ１キーを押すと、ヘルプが出てくるので、 画像の回転関係のプロパティ・メソッドを探します。
.RotateLeft なんてのがあるので、 試してみます。 Private Sub cmdLEFT_Click() IMG1.RotateLeft End Sub Private Sub cmdRIGHT_Click() IMG1.RotateRight End Sub など、左回転ボタン・右回転ボタンを作ります。 無事、回転されましたか？
次は、保存で、 .SaveAs "ファイル名", ファイルタイプ なので、＊ファイルタイプは３のＢＭＰにします。 JPGがないのが残念 Private Sub cmdWRITE_Click() IMG1.SaveAs Me![txtOUTFILE], 3 '3=BMPです End Sub で簡単に保存できます。 一連のテストができたので、 あとは、テーブルに入力ファイル名・出力ファイル名を作成して、 ループで回して、一括変換するなど、 アレンジしてください。 回転のメソッドしか確認していませんが、 いろいろな編集もできそうです。 いろいろ、試してみた下さい。 ＊なにか、カッコイイサンプル作成されたかたは、 ぜひ送ってください。 （メルマガ読者・私が参考にしたいので） 今回、ボクちゃんに言われたから、 やってみたけど、 アルゴリズムしらない私でも ActiveXコントロール で簡単にできました。 まぁ、久しぶりに楽しめた？感じかなぁ？ また、枠外にメールでもらったキビシイご意見載せておきます。 お時間のある人は、みて下さい。 では。。。また。。。 学生さんにもなめられてる 三流プログラマーのＫｅｎ３より ＰＳ.あれから、ボクちゃんからメールこないなぁ、、、 けっこう、楽しみにしてるんだけどなぁ。。 Ｋｅｎ３から質問です、高校生？専門学校？それとも大学生？ですか？ 就職活動がんばってください、、自分に合った会社に入って、、、、 ＊オマエに言われたくないって？ そうですよね。 ---------- 枠外通信？ ---------- もっともなご意見 ------ >On Tue 25 Apr 2000 21:00:00 +0900 >突然のメール失礼します。 > >> ここまで、就職活動中の学生のボクちゃんに、からかわれるなんてね、 >ナメられて当然です。 >BMPファイルの構造なんてものはWinAPIのヘルプに載っているのです。 >日本語のWindows 3.1APIヘルプにすらです。 >そういう資料を読めない探せない、見つけることができない、というようではプ >ロとしては失格でしょう。 > ------ たしかに、読めない・調べられない・見つけられない じゃ、プロとしては失格ですね。 即答できなくても、調べる能力が無いのは、 致命的ですね。 子供のいいわけ だと 勉強オレはやればできるんだ、、、 的な感じかなぁ？ （やればできるじゃなくて、やることができないのが問題なんでしょ） まぁ、プログラムの講座系には、 みなさん期待はしていないので、（他の講座系のマガで補ってください） そんなに気にしてませんが。 逆の意見で、ＢＭＰ構造知らなくてもなど いろいろ、メールいただいたので、 次回の愚痴マガでまとめてみます。