Rien de plus facile mais ça ma prit du temps!!!!!
Private Sub Form_Load() Picture1.AutoRedraw = True End Sub
Private Sub save_Click() CD.Filter = "Fichier bitmap (*.bmp)|*.bmp" CD.ShowSave a$ = CD.FileName If a$ = "" Then
Else SavePicture Picture1.Image, a$ End If End Sub
|