Discussion :

[hacker59]

bonjour , j'ai creer un logiciel qui extraire les icon des fichier exécutable. Mais voila j'ai un petite probleme quans je extraire icon l'image n'est pas correcte.
dans mon projet:
openfiledialog
savefiledialog
textbox 1 et 2
3 button
voici une partie de mes codes pour extraction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim bm As New Bitmap(PictureBox1.Image)
        Dim ico As Icon = Icon.FromHandle(bm.GetHicon)
        Dim fs As New System.IO.FileStream(".ico", IO.FileMode.CreateNew)
        ico.Save(fs)
        fs.Close()
        MsgBox("L'icone à bien été copier !", MsgBoxStyle.OkOnly, "Réussi!")
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub

comment on fait pour extraire icon correctement comme Mozilla?
voici en image mon projet + la différence couleur de icon.

[gta126]

Bonjour,

Ce problème est du au faut que lorsque vous extrayez l'icône de l'exécutable, vous n'extrayez pas la version 32 bits de l'icône.

voici un lien qui pourrait vous aidez http://social.msdn.microsoft.com/For...3-e24c1f95f95b. Le code de ce lien utilise la fonction ExtractIcon de l'API Windows

[hacker59]

bonjour, je voudrais savoir comment on fait pour afficher la taille d'un fichier.
comme ex : octet, ko, Mo, Go
voici mes codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim lire As String
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim OpenFileDialog1 As New OpenFileDialog()
        OpenFileDialog1.Filter = "All Files (*.*)|*.*"
        If DialogResult.OK = OpenFileDialog1.ShowDialog Then
            TextBox1.Text = OpenFileDialog1.FileName
            Label2.Text = Path.GetFileName(OpenFileDialog1.FileName)
            PictureBox1.Image = Icon.ExtractAssociatedIcon(TextBox1.Text).ToBitmap
        End If
    End Sub
Private Sub valeur(ByVal Taille As String)
        If Taille < 1024 Then
            lire = Taille & " Octets"
        ElseIf Taille >= 1024 And Taille < 1048576 Then
            lire = ((Taille / 1024) & 2) & " Ko"
 
        ElseIf Taille >= 1048576 And Taille < 1073741824 Then
            lire = ((Taille / 1048576) & 2) & " Mo"
 
        ElseIf Taille >= 1073741824 And Taille < 1099511627776 Then
            lire = ((Taille / 1073741824) & 2) & " Go"
        End If
    End Sub

dans label4.text , je voudrais afficher la taille du fichier.comment on pourrais ecrit. merci
voici en image mon projet:

[gta126]

Vous devez utiliser la taille en octet et la diviser par 1024.

Utilisez l'opérateur de division entiere (\ en C#) et de modulo (% en C#). Je ne les connais pas en VB.NET.

[hacker59]

voila , j'ai trouver une partie de solution a mon probleme. mais voila , comment je peux avoir la bonne taille des fichiers.
voici mes codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim OpenFileDialog1 As New OpenFileDialog()
        OpenFileDialog1.Filter = "All Files (*.*)|*.*"
        If DialogResult.OK = OpenFileDialog1.ShowDialog Then
            TextBox1.Text = OpenFileDialog1.FileName
            Label2.Text = Path.GetFileName(OpenFileDialog1.FileName)
            Label4.Text = ((OpenFileDialog1.FileName.Length / "1").ToString & " Ko")
            PictureBox1.Image = Icon.ExtractAssociatedIcon(TextBox1.Text).ToBitmap
        End If
    End Sub

comme vous voyer normalement le fichier.txt ça taille , il dois être 1 octets
mais avec mon programme me donne une taille différent. comment on peut corriger dans label4.texte
voici en image:

[hacker59]

bonjour, j'ai modifier mon codes mais il me donne comme une erreur.
mes codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim bm As New Bitmap(PictureBox1.Image)
        Dim fs As New System.IO.FileStream(copier & ".ico", IO.FileMode.CreateNew)
        bm.Save(fs, System.Drawing.Imaging.ImageFormat.Icon)
        fs.Close()
        MsgBox("L'icone à bien été copier !", MsgBoxStyle.OkOnly, "Réussi!")
        TextBox1.Clear()
        TextBox2.Clear()
        Label2.Text = Nothing
        PictureBox1.Image = Nothing
    End Sub

peut-il corriger mon probleme . merci
voici en image