Rotate billede ved hjælp af HScroll

Så vidt jeg ved: det kan du ikke. Du kan ikke rotere billeder vilkårligt. Ved at anvende tegnemetoder (enten den indbyggede Paint eller API BitBlt) kan du rotere i hele 90 graders intervaller.

Hvis du vil lave det du beskriver, er du nødt til at lave de roterede billeder i et tegneprogram, og så skifte billede ved piltryk.

Faktisk kan du ikke engang rotere 90 grader. Du kan spejlvende i X og/eller Y, -det er alt.

/tjacob

Prøv at se her. :-)

http://www.alphalink.com.au/~susak/100_120.html
http://www.alphalink.com.au/~susak/A0119.zip

I stand corrected. -Det var da godt jeg skrev "Såvidt jeg ved" ;-)

Hmmm, sejt, men hvordan filan får jeg lavet den om så hvis man trykker på pil til højre eller venstre på en hscroll så rotere billedet feks. 5 grader den ene eller anden vej ???.

????

Christian H

PS. skal der flere points til så sig til

Jeg har kigget på sjh's link, og såvidt jeg kan se kan den kun rotere i 45 graders intervaller. Det kan så modificeres, men jeg fandt i stedet et andet projekt du måske kan bruge:

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=32615&lngWId=1

Her kan du rotere frit i begge retninger. -Og tilfældigvis har han i dette eksempel netop sat rotationen til 5 grader.
Dette er et noget mere avanceret projekt med API-kald, men du skal sådan set blot indsætte modulet i dit projekt, og så kalde funktionen RotateDC.
(Der er en del fnidder i forhold til dit behov, -det er fordi man kan vælge rotationspunktet -den lille grønne prik- det kan du bare pille væk).
Nu kan du blot kalde funktionen i din HScroll's click-events. (Jeg formoder der findes events til klik på pilene). Hvilken komponent er det for i øvrigt? (altså HScroll'en).

/tjacob

Hej tjacob,

Den har jeg også selv fundet, og har siddet og lejet med et par dage, men jeg har problemer med at få den til at virke i mit eget program ??. Jeg har indsat modulet og det hele, men det virker ikke.
Men mange tak for hjælpen, hvordan jeg får det til at virke med Hscroll har jeg heller ikke fundet ud af endnu !!!.

Mvh.

Christian

Skal man slå noget bestemt til, for at lave API kald ??, jeg har indsat modulet og lavet de 2 pictureboxe og givet dem samme navn, lavet knapperne, men det virker ikke, og den kommer ikke med nogen fejl meddelse ????.

:-(

Christian H

Prøv denne kode i knapperne:

Private Sub cmdRotLeft_Click()

    tmrAuto.Enabled = False
    m_Angle = m_Angle - 5
    If m_Angle < -360 Then m_Angle = 0
   
    picDest.Cls
    RotateDC picDest.hdc, picDest.Width / 30, _
    picDest.Height / 30, picSource.hdc, picSource.Picture.Handle, m_Angle

End Sub

-Jeg har her fjernet den prik billedet roterer om. Rotationspunktet er billedets centrum. I dette tilfælde er det midt på picDest i pixels. DVS X=picDest.Width / 30 (bredden på pictureboxen /15 (omregning fra twips til pixels) /2 (for at finde centrum) OK?

Dette burde virke hvis dine picboxe og knapper hedder det sammme.

/tjacob

Du behøver heller ikke timeren (han bruger den til auto), så du kan også slette: tmrAuto.Enabled = False

PS: har du husket øverst i formen:    Dim m_Angle As Long

Det hjalp :-) > Tjacob, hvis jeg opretter et nyt ?, vil du hjælpe med at få det til at virke sammen med en Hscroll, der er ikke nogen "click procedure" på en sådan, så jeg kan kun få den til at rotere den ene vej

:-)

Christian_H

Selvfølgelig - Vi kan nok klare det her ;-)
Jeg har set på HScroll kontrollen, og det ser ud til at den event du skal bruge er:

Private Sub HScroll1_Change()

End Sub

Jeg bikser lige noget kode sammen ;-)

/tjacob

Lyder godt, det er også der jeg har leget med min kode, og det er nemt nok at få den til at rotere den ene vej, men ikke den anden vej.

Du må lige sige til hvad vi gør med hensyn til point.

:-)

Christian H

Dette forudsætter at du ikke bruger HScrollen til andet:

Indsæt følgende i formen:
Private Sub Form_Load()
    HScroll1.Min = 0
    HScroll1.Max = 1
End Sub

Private Sub HScroll1_Change()
    If HScroll1.Value = 0 Then
        MsgBox "venstre"
    Else
        MsgBox "højre"
    End If
End Sub

Og erstatter de to MsgBoxe med koderne for hhv venstre og højre rotering.

/tjacob

MHT points: 60 points er nok for det hele!

-Jeg skal ikke have flere.

Hmmm, jeg bruger desværre og Hscrollen til andet, så for at det kommer til at virke kræver det at koden kommer til at virke udfra flg. værdier:
min 101
max 201
start værdi 151

???

Christian H

OK -Jeg var faktisk i gang med det ;-)

HÆ hæ hæ, FEDT

Det var faktisk simpelt:

Private Sub HScroll1_Change()

        m_Angle = (HScroll1.Value - 151) * 5
        If m_Angle > 360 Then m_Angle = 0
        If m_Angle < -360 Then m_Angle = 0
        picDest.Cls
        RotateDC picDest.hdc, picDest.Width / 30, _
        picDest.Height / 30, picSource.hdc, picSource.Picture.Handle, m_Angle
   
End Sub

Det virker bare PERFEKT, SUPER 1000 TAK for hjælpen.

:-)

Christian H

Du kan så lege lidt med værdierne: Såvidt jeg kan se kan du ikke rotere billedet mere end 250 grader -hver vej. Det kunne du jo evt. ændre ved at sige (HScroll1.Value - 151) * 7. Så roterer du 7 grader, men når (næsten) hele vejen rundt.

For iøvrigt kan du udelade de to If-sætninger:
I den oprindelige form vil m_Angle altid ligge mellem -250 og 250

Jeg har faktisk allerede ændret koden så den nu ser således ud:

m_Angle = (HScroll1.Value - 151) * 9
        If m_Angle > 135 Then m_Angle = 135
        If m_Angle < -135 Then m_Angle = -135
        picDest.Cls
        RotateDC picDest.hdc, picDest.Width / 30, _
        picDest.Height / 30, picSource.hdc, picSource.Picture.Handle, m_Angle

Så nu rotere den 9 grader hvergang man trykker på HScrollen og max 135 grader hver vej, samtidig med at den bliver på 135 grader den ene vej og  -135 den anden vej selvom man er nået til ydre punkterne på HScrollen. Så det hele spiller nu :-)

:-)

Christian H

OK -Tak for points

S'lidt