Bonjour,
Je cherche 2 ou 3 codes dans des sources mis à disposition sur le forum... Je suis arrivé au point d'utiliser :
sauvegarder:
dlg.Filter = "images bmp|*.bmp|images wmf|*.wmf|icones|*.ico|curseurs|*.cur|fichiers rle|*.rle|metafichiers etendus|*.emf|images gif|*.gif|images jpg|*.jpg|images jpeg|*.jpeg|images GD Picture|*.gdp|tous|*.*"
dlg.Action = 2
If dlg.FileName = "" Then GoTo sauvegarder
nom$ = dlg.FileName
Call SavePicture(Picture1.Image, nom$)
Mais le problème c'est qu'il ne veut pas Annuler... Car quand je fait annuler une autre fenêtre apparaît, de même pour la croix...
Donc est-il possible de me corriger ce petit problème ?? Pour que mon programme soit fiable ?
D'avance Merci !
PS : Et si vous avez le temps que pensez vous de :
Sub coulchange(toto As PictureBox, coulanc, coulnouv)
Dim htoto As Long, X As Integer, Y As Integer, X1 As Integer, Y1 As Integer
Dim coulanc0 As Long, crnewcolor As Long, couleuranc0 As Long
toto.AutoRedraw = True
crnewcolor = coulnouv
mbrush = CreateSolidBrush(crnewcolor)
htoto = toto.hdc
SelectObject toto.hdc, mbrush
X1 toto.ScaleWidth: Y1 toto.ScaleHeight
For X = 0 To X1
For Y = 0 To Y1
couleuranc0 = GetPixel(htoto, X, Y) 'lecture de la couleur actuelle du pixel
If couleuranc0 = coulanc Then
ExtFloodFill htoto, X, Y, couleuranc0, FLOODFILLSURFACE
End If
Next Y
Next X
toto.AutoRedraw = False
toto.Refresh
DeleteObject mbrush
End Sub
Il y a-t-il un moyen pour que les couleurs se change plus vite ?
Encore un grand Merci !
@++ Horace