Convertisseur

Salut à tous,

Je voudrais créer un logiciel qui convertirait les images en icone mais je sais pas comment faire pour la conversion en icone!
Si vous avez des astuces, n'hésitez pas SVP.

tr,
attend je crois que je sais,
si je trouve j'édite ce msg
cordialement

re,

Super j'attend!!! 

re,
après 5 min de recherche sur google et deux minute dans VS, voici le code utilisable avec SZ :

Code:

  Dim icoFile As String = "C:\Users\Gael\Desktop\output.ico" ' future emplacement

        Dim img As Image = Image.FromFile("C:\Users\Gael\Desktop\test.png") ' emplacment du fichier d'origine
        img.Save(icoFile, System.Drawing.Imaging.ImageFormat.Icon)

cordialement

re,

Merci je test!

re,
de rien
cordialement

re,

Euh en fait @fandeonepiece il ne fait que changer l'extension de l'image mais la taille reste intact  . Comment modifier la taille?

re,
en gardant les proportions ?
cordialement

re,

Oui les proportions restent intacts. normalement ça devrait faire du genre 48x48 ou 32x32 mais les proportions restent intacts.

re,
j'ai trouvé, il me faut encore 2 min pour modifier le code
cordialement

re,
voila le code :

Code:

Dim icoFile As String = "C:\Users\Gael\Desktop\output.ico" ' future emplacement

        Dim img As Image = Image.FromFile("C:\Users\Gael\Desktop\test.png") ' emplacment du fichier d'origine

        Dim scale_factor As Single = 24 'entre ici la nouvelle taille
        scale_factor = scale_factor / img.Width

        Dim bm_source As New Bitmap(img)

        Dim bm_dest As New Bitmap( _
            CInt(bm_source.Width * scale_factor), _
            CInt(bm_source.Height * scale_factor))


        Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)

        gr_dest.DrawImage(bm_source, 0, 0, _
            bm_dest.Width + 1, _
            bm_dest.Height + 1)


        img = bm_dest

        img.Save(icoFile, System.Drawing.Imaging.ImageFormat.Icon)

cordialement

re,

Je teste encore une fois. Je te tiens au courant!

re,

Encore un p'tit problème désolé. Comment redimensionner?
Quand je tape la dimension 48, l'icone à les proportions 48x36 et quand je met 48x48 il a les proportions 2304x1730.

re,
impossible,
regarde (source de mon soft de test) : https://mega.co.nz/#!HZESAJ5L!ymx8FgzfRzzCi06XRLW1vG6ahtn0r7nCFpzMQY0TQHY
cordialement

re,

Tu pourrais le mettre sur mediafire, on m'informe que mon navigateur n'est pas commpatible avec MEGA  .

re
https://www.mediafire.com/?7d28r2h1oknr69u

re,

OK Je teste pour voir.

re,

C'est la même chose donc je vais essayer d'utiliser une variable pour les proportions  !
Peut être que ça va marcher.

re,
j'ai compris, mon code ne marche que pour les image carré de bases voici le nouveau code :

Code:


 Dim icoFile As String = "C:\Users\Gael\Desktop\output.ico" ' future emplacement



        Dim img As Image = Image.FromFile("C:\Users\Gael\Desktop\test.png") ' emplacment du fichier d'origine



        Dim scale_factor As Single = 48

        dim widht = scale_factor / img.Width
        dim height = scale_factor / img.heigth

        Dim bm_source As New Bitmap(img)


        Dim bm_dest As New Bitmap( _

            CInt(bm_source.Width * widht), _

            CInt(bm_source.Height * height))


        Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)


        gr_dest.DrawImage(bm_source, 0, 0, _

            bm_dest.Width + 1, _

            bm_dest.Height + 1)

        img = bm_dest

        img.Save(icoFile, System.Drawing.Imaging.ImageFormat.Icon)

cordialement

re,

Est ce normal ce bug?

bm_source n'est pas déclaré il peut être inaccessible...

re,

Ton image n'est pas visible.

Cordialement,
Le réparateur de PC

re,

Euh visible dans quel sens?

re,

elle ne s'affiche pas j'ai que :

bm_source n'est pas déclaré il peut être inaccessible...

Cordialement,
Le réparateur de PC

re,

J'ai la même chose je pense qu'il faudrait revoir une partie du code.

re,

Dans le code ci-dessus, il y a un problème ici :

Dim bm_source As New Bitmap(img

Il manque ) à la fin.

Cordialement,
Le réparateur de PC