Bonjour à tous,

J'ai besoin de récupérer par le code la hauteur et largeur d'un fichier .bmp.

Du coup j'ai fait une fonction :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Public Function DimensionAffiche(ByVal NumImage As Object, ByVal CategorieImage As String, ByVal LouH As String) As Integer
 
        'Déclare une variable pour recevoir l'image recherchée et le résultat
        Dim Image As New PictureBox
        Dim Resultat As Integer
        Image.ImageLocation = CheminFichier(NumImage, CategorieImage)
        Resultat = If(LouH = "L", Image.Size.Width, Image.Size.Height)
        Image.Dispose()
        Return Resultat
 
    End Function
En fait, je me demande s'il n'existe pas une autre méthode, une autre façon de faire, un moyen plus rapide et plus optimisé en temps processeur.

Merci pour vos commentaires.