Получить свойства выбранного изображения

Question

Я пишу в 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 во второй форме как изображение, которое они выбрали.

Любая помощь будет принята с благодарностью.

Answer 1

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