Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
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 5879 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

doc.png DOCUMENTATION
forum.png   FORUM GAMBAS
logiciel.png LOGICIELS GB
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
actualite et medias
compteur gratuit
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^