Otočenia bitmapy a následne vykreslenie do picturebox – .NET – Fórum – Programujte.com

Zdravím, mám nasledujúci kód na otáčanie hodinových ručičiek (bitmapy) v picturebox

	Dim btmp As New Bitmap(My.Resources.hodinova, velkosthodiny, velkosthodiny)
        Static ang As Decimal = 0
        Dim W As Integer = btmp.Width
        Dim H As Integer = btmp.Height
        Dim gr As Graphics = e.Graphics
        Dim m As Matrix = New Matrix
        m.RotateAt(ang, New Point(W \ 2 + 2, H \ 2 + 2))
        gr.Transform = m
        gr.DrawImage(btmp, poziciahodiny)
        ang = (ang + prirastok) Mod 360

Dokým je bod poziciahodiny nastavena na (0,0) tak sa hodinová ručička bez problémov otáča tak ako má, ale keď ju chcem nastaviť na napr. (150, 150), keď ju chcem dať dostredu picturebox začne sa mi otáčať okolo úplne inej osi.

Nemalo by so premennou poziciahodiny nastavovat pozicia lavehohorného rohu bitmapy vzhladom na picturebox ? Prečo sa neotáča rovnako akurat v inej pozicii v picturebox ?

Vopred ďakujem za akekolvek odpovede.

#1 Trebor
Já bych rozhodně neotáčel obrázek ručičky, nýbrž jej stále vykresloval skrz Graphics!

graphics.RotateTransform(angle);

a mozes mi prosim ta v rychlosti napisat ako pracovat s tým rotatetransform ? lebo ze to sa neaplikuje na uz existujuci obrazok a nech skusam ako skusam furt mi to nefunguje.

#3 Trebor
Graphics je abstraktní třída pracující s Image. Takže:

Graphics.FromImage(Image.FromFile("rucicka.png")).RotateTransform(angle);

Záleží na tom, jak to chceš poskládat. Já bych vedl Graphics PictureBoxu a ručičky - ručičku (Image) budeš vykreslovat do PictureBoxu a otáčet za pomoci Graphics z Image - tím to bude dít jak si přeješ...

No už som to tam nejak spratal. Díky a ešte mám jeden problém (už nie hodinky ale tiež tam ide o točenie obrázkov) Mám niečo ako koleso štastia aj s jazýčkom, ktorý a zachytáva o koleso. Mám nastavené

JazycekBox.parent = KolesoBox

otocim kolesom pomocou KolesoBox.Invalidate() a následne, chcem vykresliť aj JazycekBox, lebo ten ma na pozadi stale to nepootocene koleso no ked dam JazycekoBox.Invalidate(), tak on ako keby vykreslil zase aj KolesoBox, cize som "uväznaný" v nekonečnej slučke a nikdy nemôžem dostať po vykreslení aby bolo aj pozadie jazycku spravne vykreslene

Připojen obrázek.

Nevieš mi pls poradit ako na to ? Zatial díky.

#5 Trebor
Kdybych ten kód viděl...

Private Sub PictureBox2_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox2.Paint
        btmp = New Bitmap(PictureBox2.Image, New Size(PictureBox2.Width, PictureBox2.Height))
        Dim W As Integer = btmp.Width
        Dim H As Integer = btmp.Height
        Dim gr As Graphics = e.Graphics
        Dim m As Matrix = New Matrix
        m.RotateAt(ang, New Point(W \ 2, H \ 2))
        gr.Transform = m
        gr.DrawImage(btmp, New Point(0, 0))
    End Sub



    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        PictureBox1.Invalidate()
        PictureBox2.Invalidate()
    End Sub



    Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
        btmp2 = New Bitmap(PictureBox1.Image, New Size(PictureBox1.Height, PictureBox1.Height))
        Dim W2 As Integer = btmp2.Width
        Dim H2 As Integer = btmp2.Height
        Dim gr2 As Graphics = e.Graphics
        Dim m2 As Matrix = New Matrix
        m2.RotateAt(ang2, New Point(W2 \ 2, H2 \ 2))
        gr2.Transform = m2
        gr2.DrawImage(btmp2, New Point(0, 0))
        ang2 -= 3
    End Sub

Picturebox1 je koleso a picturebox2 je jazycek a ma nastaveny parent = picturebox1

#7 Trebor
Pardon - já bych to udělal zcela jinak - bez prasáren atd. Takto se hrabat ve zbytečně složitém kódu - na to si budu muset udělat čas... (Momentálně jej nemám.) Doporučuji naučit se konečně OOP! Tedy oddělovat grafiku od logiky a oddělovat vrstvy programu... Nejprve udělat jádro programu - zcela nezaujatou knihovnu, kterou by šlo přidávat do jakéhokoliv projektu - a až na tu lepit další vrstvu - více zaujatou. Takto se má programovat - ne naplácat vše do grafické části programu - v tom se nedá vyznat a není divu, že to pak nejede...

#7 Trebor
MatejIAndrle@email.cz - můžeš mi prosím napsat na mail, trochu s tebou cosi proberu - sem pak vložíš řešení...