Rotation af billeder

Du kan mig bekendt ikke rotere billeder i VB - og hvis du kan, kan jeg forestille mig at det er alt andet end simpelt :o(

Jeg tror det er nemmere at have 4 billeder, som hver især er roteret, og
så skifte imellem dem. Så roter billederne i et bileldprogram e.l. (Paint Shop Pro, Corel Photo Paint, ACDSee, ...), og gem dem som billed0grader.jpg, billed90grader.jpg, billed180grader.jpg og billed270grader.jpg

Og når du rotere, så bare loade det ønskede billede:

Picture1.Picture = LoadPicture("c:\billed90grader.jpg")

Hvis du vil opdele i finere rotationsgrader (mindre end 90 grader ad gangen), kan du jo bare gøre det. At indsætte en animation er vist heller ikke helt simpelt...

Har du ikke noget software til at rotere, så send dem til mig, og jeg skal rotere dem for dig :o)

Jeg ville nok loade billederne i forvejen for at mindske den tid det tager at skifte.

Hvis du vil investere i en ActiveX component kan du prøve iocomp
de har netop det du søger, den findes i en shareware version.

> chanoa: Hvordan vil du loade i forvejen og så skifte? Man kunne loade en masse billeder, og så "skifte" mellem dem ved visible=true/false, men hvordan skifter man et billede uden at loade det?

Øhh - ovenstående blev vist lidt knudret - håber du fangede det. Jeg mener, hvordan vil du skifte en picturebox's billede uden at bruge loadpicture..?

> jens_nuuk: jeg går ud fra at du bor i Nuuk - kender du nogen der arbejder i Inuplan? (sorry - ved godt det ikke er en chat - "fy" til mig!)

Du har ret det er ikke en chat. men Ja det gør jeg.
Her er en stump fra Extreme vb forum.

Option Explicit
' Copyright © 1997 by Desaware Inc. All Rights Reserved

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Dim pts(2) As POINTAPI
Dim currentpoint%

Private Declare Function PlgBlt Lib "gdi32" (ByVal hdcDest As Long, lpPoint As POINTAPI, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long) As Long



Private Sub picRotate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim di&
    pts(currentpoint).X = X
    pts(currentpoint).Y = Y
    Select Case currentpoint
        Case 0
            picRotate.Cls
            picRotate.Circle (X, Y), 2, 0
        Case 1
            picRotate.Circle (X, Y), 2, 0
        Case 2
            picRotate.Cls
            di = PlgBlt(picRotate.hDC, pts(0), picSource.hDC, 0, 0, picSource.ScaleWidth, picSource.ScaleHeight, 0, 0, 0)
    End Select
    currentpoint = currentpoint + 1
    If currentpoint = 3 Then currentpoint = 0
End Sub

martin_moth > Jo, du kan lave nogle nye pictureboxes som ikke er synlige, en er nok, så giver du den index 0.

Så laver du et array med filnavne i..

Derefter er koden noget i stil med

for x = 0 to antalpictureboxes
  if x > 0 then ' Index 0 er initialiseret, og vi gider ikke ha' fejl.
    load picturebox(x) ' Initialiser pictureboxen.
  end if
  picturebox(x).picture = loadpicture(picturefiles(x)) ' Hent filen in i picture boxen.
next

Så kan du rotere med noget der ligner denne kode:

for x = 0 to antalbilleder
  billedeboxderskalroteres.picture = picturebox(x).picture
next

Det vil være hurtigere da du læser alle billederne ind i ram fra starten, istedet for at lave diskaktivitet hvergang du skal skifte billede.. Om der er synligt kommer meget an på hvorstore hvert billede er og hvor hurtig harddisken er.

Yep - enig med at det er klart det smarteste at loade alle billederne først - vidste bare ikke hvordan - det ved jeg nu ;o) Tak

martin_moth > No problem... Den med at lave et element og sætte index til 0 for derefter at loade flere runtime, er faktisk ret fedt at kende til.

Det var en spandfuld må jeg sige. Perfekt. Nu skal jeg bare forsøge mig lidt frem, og så kan det jo være jeg voldbrokker mig igen!

Måske var der lige noget her du kan bruge
http://216.26.168.92/tips/tip140.html
/Flemming

rynke10 > Tager den ikke bare og rotere billedet pixel for pixel? Det er da vidst for langsomt til en animation...