[VB] Girare un immagine

[jabjoint]

Mi occorreva ruotare un immagine di 90° da cosi':"|" a cosi':"_"
Sapete se esiste un API per far cio', se non esiste cosa mi consigliate? Grazie mille!

[xegallo]

puoi usare benissimo la bitbtl ma è un po' ostica

per vedere come funziona guarda qui

poi ti basta invertire x e y sulla destinazione e la dovrebbe capottare

[jabjoint]

Grazie, Ho provato a fare cosi': pare funzioni:

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Sub Form_Load()

Dim pFile As String
Dim picLoad As IPictureDisp

pFile = "C:\Documents and Settings\" & _
"Ludo\Desktop\caffè.bmp"

Set picLoad = LoadPicture(pFile)
'pic.Height = 1000
'pic.Width = 700
pic.Picture = picLoad

RuotaImage pic.hdc, pic.ScaleHeight, pic.ScaleWidth, pic2.hdc, 0, 0

End Sub

Private Function RuotaImage(Get_hdc1 As Long, Height1 As Long, Width1 As Long, Set_hdc2 As Long, posX As Long, posY As Long)

Dim pColor As Long
Dim x, y As Long

For y = 0 To Height1 - 1
For x = 0 To Width1 - 1
pColor = GetPixel(Get_hdc1, x, y)
SetPixelV Set_hdc2, posX + y, posY + x, pColor
Next x
Next y

End Function