Discussion :

[morgan47]

Salut,
Existe t'il un équivalent de GetThumbnailImage en vb6 ca rje voudrai redimensionner des image contenu dasn une picturebox?
Merci

[zazaraignée]

Salut

Tu peux facilement redimentionner une image via le contrôle Image. Tu peux aussi utiliser l'objet Picture. Pour le contrôle Image c'est plutôt facile. Pour l'objet Picture, je n'ai pas la référence toute fraîche... faudra chercher. À moins que quelqu'un d'autre n'aie une idée.

[morgan47]

Et bien j'ai essayé de faire avec image, mais ca me marque : erreur de compilation : utilisation incorrecte de la proprièté.

Voici le code que j'utilise:

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
 
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
        ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _
        ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
 
Private Declare Function GetDesktopWindow Lib "USER32" () As Long
Private Declare Function GetDC Lib "user32.dll" ( _
     ByVal hwnd As Long) As Long
Private Const SRCCOPY = &HCC0020
 
Private Sub Command1_Click()
x = BitBlt(Picture1.hDC, 20, 20, 1500, 1500, GetDC(GetDesktopWindow()), 10, 10, SRCCOPY)
End Sub
 
Private Sub Form_Load()
Picture1.Width = Screen.Width
Picture1.Height = Screen.Height
 
 
x = BitBlt(Picture1.hDC, 0, 0, 800, 600, GetDC(GetDesktopWindow()), 100, 100, SRCCOPY)
Picture1.Image.Height = 120
Picture1.Image.Width = 120
 
 
Form1.Refresh ' Montre l'image une fois la page rafraîchit
End Sub

[Delbeke]

Essaye un Picture1.Refresh a la place du form1.refresh

[ProgElecT]

Si j'osai, il me semble bien que Picture1.Image.Height ou Picture1.Image.Width sont en lecture seulement
essayer peut être, (non experimenté)

Code :

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

1
2
3
4
5
6
7
8
9
Dim A
Dim B
A = Picture1.Image.Height
A = ScaleY(A, vbHimetric, vbTwips)
Picture1.Height = A
B = Picture1.Image.Width
B = ScaleX(B, vbHimetric, vbTwips)
Picture1.Width = B
Picture1.Refresh

[morgan47]

Merci poru ton code.
Mais je viens de testé, cela redimensionne juste la picture box, et non l'image qu'il contient.
Ca a l'air la galère pour le faire ^^