Hej
Jag har en Imagebox där jag laddar in en bild, hur får jag den att rotera 180 grader. Så att bilden blir upp och ner?.
Tack på förhand

Jag har hittat en liten bra kod till picturebox, men jag fattar inte hur man ändrar till image.
någon annan som kanske kan. Här kommer den koden.
<code>Private Sub Command2_Click()
'flip vertical
Picture2.Cls
px% = Picture1.ScaleWidth
py% = Picture1.ScaleHeight
retval% = StretchBlt(Picture2.hdc, 0, py%, px%, -py%, Picture1.hdc, 0, 0, px%, py%, SRCCOPY)

End Sub


Global Const SRCCOPY = &HCC0020
Global Const Pi = 3.14159265359

Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long


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


Declare Function StretchBlt Lib "gdi32" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

</code>

Glöm inte att Google är fantastiskt sök på "Rotate Image"
Planet-source är en kanonsite att hitta bra kod på, Vb-Accelerator är en anna mfl. mfl.
Eftersom Imagecontrollen inte har något hDC (handtag) måste du köra PictureBox.

http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&txtCriteria=Rotate+Image&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1&B1=Quick+Search
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=51162&lngWId=1

Jag får hitta på en annan lösning då, sedan jag har image innan i programmet och skulle göra en ny funktion. så bara för att slippa göra om allt så hade det varit lättare om man bara kunnat rotera den. Dina sidor du angav har jag lusläst, men inte hittat det jag söker.

//Jocke