Equivalent de GetThumbnailImage en vb6

Version imprimable

12/02/2007, 13h21
morgan47

Equivalent de GetThumbnailImage en vb6

Salut,
Existe t'il un équivalent de GetThumbnailImage en vb6 ca rje voudrai redimensionner des image contenu dasn une picturebox?
Merci
12/02/2007, 14h54
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.

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:

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

12/02/2007, 22h07
Delbeke

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

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:

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

13/02/2007, 08h00
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 ^^