---

イメージビューワを作る

【注意書き】 ●VB.NET を使っているものとします。 ●動作環境は、Windows XX を使用しているとします。 .NET でも、イメージビューワを作ることが可能です。 この機能を使えば、簡単に、 画像の確認を行うアプリケーションやパスの確認に活用できます。 フォームに次の様なコードを記述します -----------VB.NETコーディングここから------------------- １．フォームに、ピクチャボックスコントロール     を配置します。     下記は、デフォルトのオブジェクトの名前と配置を示しています。    ┏━━━━━━━━━━━━┓    ┃PictureBox1             ┃    ┃                        ┃    ┃                        ┃    ┗━━━━━━━━━━━━┛ ２．フォームをダブルクリックして、     フォームロードイベントのコード編集を開始して、     次のコードを記述します。     Dim MjstrPicPath As String     Private Sub Form1_Load(ByVal sender As System.Object, _     ByVal e As System.EventArgs) Handles MyBase.Load         PictureBox1.AllowDrop = True         PictureBox1.Top = 0         PictureBox1.Left = 0         PictureBox1.Width = Me.Width         PictureBox1.Height = Me.Height     End Sub     Private Sub PictureBox1_DragEnter(ByVal sender As Object, _      ByVal e As System.Windows.Forms.DragEventArgs) _     Handles PictureBox1.DragEnter         '関連連づけの確認をしています。         'この場合、ドラッグアンドドロップの形式であるかどうか？         If e.Data.GetDataPresent(DataFormats.FileDrop) Then             'ドロップ効果を取得             e.Effect = DragDropEffects.Copy         Else             'ドロップ効果を破棄             e.Effect = DragDropEffects.None         End If     End Sub     Private Sub PictureBox1_DragDrop(ByVal sender As Object, _      ByVal e As System.Windows.Forms.DragEventArgs) _     Handles PictureBox1.DragDrop         MjstrPicPath = e.Data.GetData(DataFormats.FileDrop)(0)         If Dir(MjstrPicPath) <> "" Then             PictureBox1.Image = Image.FromFile(MjstrPicPath)             PictureBox1.SetBounds(0, 0, _             PictureBox1.Image.Size.Width + 2, _         PictureBox1.Image.Size.Height + 30)             Me.Width = PictureBox1.Image.Size.Width + 2             Me.Height = PictureBox1.Image.Size.Height + 30         End If     End Sub ３．ビルドして実行します。 ４．フォームに適当な画像ファイルをドラッグアンドドロップで     ドロップします。 ５．フォームに表示された     ピクチャボックスに、ドラッグアンドドロップした     画面全体のイメージが表示されます。 -----------VB.NETコーディングここまで------------------- 本サンプルでは、エクスプローラ等から、ファイルのドラッグアンドドロップ の操作で画像ファイルのパスを受け取っています。 そのパスをもとに、画像をピクチャボックスへ表示するようにしています。

---

---

　

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。