Habituellement ca devrais marcher... mais je ne comprend vraiment pas pourquoi avec moi ca ne marche toujours pas... ca retourne toujours la valeur 0 même si une image est inséré... p-e paske jutilise le code suivant pour mettre l'image?!
Sub ShowPict(sfile As String)
Picture1.Picture = LoadPicture(sfile)
delta = Picture1.Width / Picture1.Height
X = Picture2.Width
Y = Picture2.Height
If delta <= 1 Then
Picture2.PaintPicture Picture1, (Picture2.Width - delta * X) \ 2, 0, X * delta, Y
Else
Picture2.PaintPicture Picture1, 0, (Picture2.Height - delta * Y) \ 2, X, Y * delta
End If
End Sub
-------------------------------
Réponse au message :
-------------------------------
sael og blesub
If Picture1.Picture = 0 Then
MsgBox "il n'y a pas d'image"
Else
MsgBox "OK"
End If
-------------------------------
Réponse au message :
-------------------------------
Marche pas..
-------------------------------
Réponse au message :
-------------------------------
If picture2.picture = "" !!!!!!!!!!!!!!!!!
-------------------------------
Réponse au message :
-------------------------------
Salut.. Regardez ce code...
If Picture2.Picture Is Nothing Then
MsgBox ("Hey lniaiseux... charge donc une image pour commencer!!")
Else
MsbBox ("Yéé!")
End If
Kess ya de pas correct la dedans??
Merci d'avance
|