Salut

Voici le tout ptit programme
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
24
25
26
27
28
Private Declare Function GetBitmapDimensionEx Lib "gdi32" ( _
                         ByVal hBitmap As Long, _
                         lpDimension As Size) As Long
 
Private Type Size
        cx As Long
        cy As Long
End Type
 
Private Sub cmdParcourir_Click()
'    Dim liResultat As Long
    Dim laSize As Size, laPic As Picture
    With dlgOuvrir
        .DialogTitle = "Ouvrir un bitmap"
        .Filter = "Bitmap (.bmp)|*.bmp;*.BMP"
        .InitDir = "D:\DEC_Info\2006 Hi\420-407 POO"
        .ShowOpen
        txtFichier.Text = .FileName
        Set laPic = LoadPicture(.FileName)
        If .FileName <> "" Then
            picImage.Picture = LoadPicture(.FileName)
'            liResultat = GetBitmapDimensionEx(laPic.Handle, laSize)
            GetBitmapDimensionEx(laPic.Handle, laSize)
            txtLarg.Text = laSize.cx
            txtHaut.Text = CStr(laSize.cy)
        End If
    End With
End Sub
Et mes textBox txtLarg et txtHaut affichent des zéros.

J'ai cherché chez DocVB et MSDN et sur Développez, bien sur, mais je n'ai rien trouvé pour faire mon bonheur.

J'ai même essayé avec ou sans valeur de retour. Que dale!

Avez-vous une idée de l'origine du problème? Ce doit être un code d'erreur numéro 18 (18 pouces devant l'écran! ), mais comme mes recherches sont infructueuses...