Option Strict Off
Option Explicit On
Friend Class Form1
        Inherits System.Windows.Forms.Form
        
        Private Sub cmdCreateThumNail_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCreateThumNail.Click
        'サムネイル生成
        PicThumnail.Image = PicOrg.Image.GetThumbnailImage(CInt(cmbSize(0).Text), CInt(cmbSize(1).Text), Nothing, New IntPtr())
        End Sub
        
        Private Sub cmdSave_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSave.Click
                'サムネイル保存
        Dim Ofd As New SaveFileDialog() 'ファイルダイアログ


        With Ofd
            .Title = "名前を付けて保存"
            .FileName = "無題.JPG"
            .InitialDirectory = My.Application.Info.DirectoryPath
            .Filter = "画像ファイル|*.jpg;*.jpeg;|すべてのファイル|*.*"
            .FilterIndex = 1
            .RestoreDirectory = True

            'ダイアログを表示
            If .ShowDialog() = DialogResult.OK Then

                Try
                    'JPEGで保存
                    PicThumnail.Image.Save(.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
                Catch
                    MsgBox(Err.Number & " " & Err.Description)
                End Try

            End If

        End With
    End Sub
        
    Private Sub cmdOpenFile_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOpenFile.Click

        Dim Ofd As New OpenFileDialog() 'ファイルダイアログ

        With Ofd
            .Title = "画像ファイルを選択"
            .InitialDirectory = My.Application.Info.DirectoryPath
            .Filter = "画像ファイル(bmp,jpg,jpeg,gif)|*.bmp;*.jpg;*.jpeg;*.gif;|すべてのファイル|*.*"
            .FilterIndex = 1

            If .ShowDialog() = DialogResult.OK Then
                If Dir(.FileName) <> "" Then
                    Try
                        PicOrg.Image = System.Drawing.Image.FromFile(.FileName)
                    Catch
                        MsgBox(Err.Number & " " & Err.Description)
                    End Try
                End If
            End If

        End With

    End Sub
        
    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        Me.Text = "サムネイル生成／JPEG保存"
        cmbSize(0).Text = "120" 'サムネイル幅
        cmbSize(1).Text = " 90" '　　　　　高さ
    End Sub

End Class