Private Sub Command1_Click() If (ImgEdit1.IsClipboardDataAvailable And ImgEdit1.ImageDisplayed) Then ImgEdit1.ClipboardPaste 0, 0 ImgEdit1.CompletePaste End If ImgEdit1.SaveAs App.Path & "\" & "mytest.jpg", wiFileTypeJPG, , 6 End Sub Private Sub Form_Load() ImgEdit1.Image = App.Path & "\" & "06.jpg" ImgEdit1.Display End Sub
If (ImgEdit1.IsClipboardDataAvailable And ImgEdit1.ImageDisplayed) Then
ImgEdit1.ClipboardPaste 0, 0
ImgEdit1.CompletePaste
End If
ImgEdit1.SaveAs App.Path & "\" & "mytest.jpg", wiFileTypeJPG, , 6
End Sub
Private Sub Form_Load()
ImgEdit1.Image = App.Path & "\" & "06.jpg"
ImgEdit1.Display
End Sub