Visual Basic 6 - ruotare un immagine

GRANDE ! E GRAZIE PROVO SUBITO !!!!!!!!!!

Di niente!!! é sempre un piacere aiutare gli altri
P.S.Se ci sono prob postami

Mi da errore sul picture1.clear !!!!!!!

e l immagine gira di 90 ma all' impazzata!!!

non si ferma a 90, 180 , 270 , 0

Scusa,leva il picture1.clear per l'altro non sò come fare

Public Sub rotateimage()
Dim x As Integer
Dim x As Long
Dim y As Long
Picture2.Height = Picture1.Width
Picture2.Width = Picture1.Height
For x = 0 To Picture1.Width
For y = 0 To Picture1.Height
Call SetPixel(Picture2.hdc, _
y, x, GetPixel(Picture1.hdc, x, y))
Next
If x Mod 50 = 0 Then
DoEvents
Picture2.Refresh
End If
Next
DoEvents
Picture2.Refresh
Picture1.Clear
Picture1.Visible = False
End Sub 

questo codice ha una Alta densità di errori. o di cose che sinceramente eviterei di fare

[b]Public Sub rotateimage()[/b] 'vedi fondo post
[b]Dim x As Integer[/b] 'doppia dichiarazione,giusto long
Dim x As Long
Dim y As Long
Picture2.Height = Picture1.Width
Picture2.Width = Picture1.Height
For x = 0 To Picture1.Width
For y = 0 To Picture1.Height
Call SetPixel(Picture2.hdc, y, x, GetPixel(Picture1.hdc, x, y))
[b]Next[/b]' specifica cosa nei cicli annidati se no ti perdi
[b]If x Mod 50 = 0 Then
DoEvents
Picture2.Refresh
End If[/b] 'bizzarro metodo ma carino
[b]Next[/b] 'vedi 2 commenti fa
DoEvents
Picture2.Refresh
[b]Picture1.Clear
Picture1.Visible = False[/b] ' questi non li ho proprio capiti...
End Sub 

consiglio di fare piuttosto una sub con un'argomento. così si crea una sub generica e con minore possibilità di errori per oggetti mal associati

private sub rotateimage(image as picturebox)
..
end sub

creerei anche la seconda picturebox da codice invece di improvvisarla già fatta.

[edit] manca anche la "pulizia" della picture 2 all'inizio del codice e il trasporto di immagine alla fine..[/edit]


Ps: moet, dove l'hai messo il "call rotateimage"?
in un command?

L ho provato con un command si

Non pensavo che per girare un immagine c era tutto sto lavoro !

Si per ora non funziona...

Nessuna news ?