Option Explicit



Private Sub cmdCreateThumNail_Click()
    'サムネイル生成
    PicThumnail.Picture = CreateThumbnail(PicOrg.Picture, cmbSize(0), cmbSize(1))
End Sub

Private Sub cmdSave_Click()
    'サムネイル保存
    With CommonDialog1
        .DialogTitle = "名前を付けて保存"
        .filename = "無題.JPG"
        .InitDir = App.Path
        .Filter = "画像ファイル|*.jpg;*.jpeg;|すべてのファイル|*.*"
        .FilterIndex = 1
        .MaxFileSize = 1024
        .CancelError = True 'キャンセルイベント発生

        On Error GoTo MyErr 'キャンセル等
        
        .ShowSave
        
        If .filename <> "" Then
            'JPEGで保存
            SavePictureToJpeg PicThumnail.Picture, .filename, 70
        End If
        
        GoTo MyEnd

MyErr:

MyEnd:
        On Error GoTo 0

    End With
End Sub

Private Sub cmdShowFolder_Click()

    On Error GoTo MyErr

    With CommonDialog1
        .DialogTitle = "画像ファイルを選択"
        .InitDir = App.Path
        .Filter = "画像ファイル(bmp,jpg,jpeg,gif)|*.bmp;*.jpg;*.jpeg;*.gif;|すべてのファイル|*.*"
        .FilterIndex = 1
        .MaxFileSize = 1024
        .ShowOpen
        If Dir(.filename) <> "" Then
            PicOrg.Picture = LoadPicture(.filename)
        End If
    End With
      
    GoTo MyEnd

MyErr:
    MsgBox "エラー発生！" & vbCrLf & Err.Number & " " & Err.Description
MyEnd:
    On Error GoTo 0
    
End Sub

Private Sub Form_Load()
    Me.Caption = "サムネイル生成／JPEG保存"
    cmbSize(0).Text = "120" 'サムネイル幅
    cmbSize(1).Text = " 90" '　　　　　高さ
End Sub