WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteurs en ligne

Où ça, qui ça?
Manipuler les images - fichiers PNG en ICONE
CREER DES ICONES A PARTIR DE FICHIERS PNG


icone.png
Voici une petite application tutoriel pour apprendre à créer des icônes à partir de fichiers images.

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




Date de création : 11/10/2009 @ 14:58
Dernière modification : 11/10/2009 @ 14:58
Catégorie : Manipuler les images
Page lue 3646 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article


Réaction n°1 

par pinky le 16/10/2009 @ 19:32

Salut spheris

Sympa ce petit dimensionneur d'images. tongue

ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^