Manipuler les images - fichiers PNG en ICONE( Temps de lecture estimé à 1 min 16 sec )
Le code de l 'application est le suivant :
' Gambas class file
'-----------------------------------
  ' Projet    : Création d 'icones
  ' Date      : 10/09
  ' Auteur    : taoteblues (Dr Henri LOQUET)
  ' Détails   : Création d 'icones en 16x16 à 48x48
'-----------------------------------
PUBLIC taille AS Integer = 1
PUBLIC tempFile AS String
PUBLIC mode AS String
PUBLIC SUB Form_Open()
mode = 16
ME.Center
END
PUBLIC SUB Button1_Click()
DIM img AS Image
Ouvrir.ShowModal
IF Module1.monimage <> THEN
img = Image.Load(Module1.monimage)
IF Exist(Module1.monimage) THEN
    IF Lower(File.Ext(Module1.monimage)) = png OR Lower(File.Ext(Module1.monimage)) = jpg OR Lower(File.Ext(Module1.monimage)) = gif THEN
   tempFile = Mid$­(Module1.monimage, 1, Len(Module1.monimage) - 4)
    img = img.Stretch(Val(mode), Val(mode), TRUE)
    img.Save(tempFile & mode & x & mode & .png )
 PictureBox1.Picture =
 PictureBox1.Refresh
 PictureBox1.Picture = Picture.Load(tempFile & mode & x & mode & .png )
 Label1.Text = tempFile & mode & x & mode & .png
 ELSE
 Message.Info( Le fichier n 'est pas dans le bon format: png, jpg ou gif! , Ok )
 ENDIF
 ELSE
  Message.Info( Le fichier n 'existe pas! , Ok )
 ENDIF
 ENDIF
CATCH
  Message.Warning(ERROR.Text)
END
PUBLIC SUB RadioButton2_Click()
  mode = 24
END
PUBLIC SUB RadioButton3_Click()
   mode = 32
END
PUBLIC SUB RadioButton4_Click()
   mode = 48
END
PUBLIC SUB RadioButton1_Click()
   mode = 16
END
PUBLIC SUB ToolButton1_Click()
  Aide.ShowModal
END
);