2

私は vb.net で書いており、Visual Studio 2010 Professional を使用しています

では、私のコードを示してから、何が必要かを説明します。

Imports System.IO.File
Imports System.IO.Directory
Imports System.IO

Public Class ImageSelection

    Private Sub ImageSelectionbtn_Click(sender As System.Object, e As System.EventArgs) Handles ImageSelectionbtn.Click

        With OpenFileDialog1
            .Filter = _
"Image File (*.jpg)|*.jpg|Image File (*.jpeg)|*.jpeg|Image File (*.bmp)|*.bmp|Image File (*.gif)|*.gif"
            .InitialDirectory = System.Environment.SpecialFolder.MyPictures
            .Title = "Select a picture to open"

            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

                ''''Here is where i need help''''
                Dim MyImage = OpenFileDialog1.FileName
                Dim MyImageWidth
                Dim MyImageHeight
                '''''''''''''''''''''''''''''''''

                With MyPicture 'MyPicture form

                    .Width = MyImageWidth
                    .Height = MyImageHeight
                    .PictureBox1.Image = Nothing
                    MyPicture.Show()
                End With
            End If
        End With
    End Sub
End Class

さて、私がやっていることは、ユーザーがボタンをクリックすると、ファイルを開くダイアログ ボックスが表示され、. jpg. jpeg. bmpと 。gif

さて、彼らが自分の写真を選択するとき、その選択された画像から少しの情報を抽出できる方法が必要です。

別のフォーム (フォームがドッキングされた画像ボックスを使用) をその画像のサイズに設定できるように、画像の高さと画像の幅が必要です。

pictureboxまた、選択した画像として 2 番目のフォームを設定する方法についても助けが必要です。

どんな助けでも大歓迎です。

4

1 に答える 1

3 
 With OpenFileDialog1
     .Filter = _
     "Image File (*.jpg)|*.jpg|Image File (*.jpeg)|*.jpeg|Image File (*.bmp)|*.bmp|Image File (*.gif)|*.gif"
     .InitialDirectory = System.Environment.SpecialFolder.MyPictures
     .Title = "Select a picture to open"

     If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
         ''''Here is where i need help''''
         Dim MyImage = OpenFileDialog1.FileName
         Dim image As Image = System.Drawing.Bitmap.FromFile(MyImage) 'Convert to Image from the selected file

         Dim MyImageWidth As Integer = image.Width 'Get The Width
         Dim MyImageHeight As Integer = image.Height 'Get The Height

         '''''''''''''''''''''''''''''''''
         With MyPicture 'MyPicture form

             .Width = MyImageWidth
             .Height = MyImageHeight
             .PictureBox1.Image = image
             MyPicture.Show()
         End With
     End If
 End With
于 2013-03-13T15:16:27.750 に答える