Anonymní profil Aha – Programujte.com

Potrebujem ze ak uzivatel pride na nejaku stranku zo zoznamu tak sa mu tam nacita stranka ktora bude v zozname hned vedla.

Zasláno z mobilního telefonu.

Dobry den, chcel by som sa opytat ci je nejak mozne zachytit aka stranka sa uzivatelovi prave otvara v chrome, ie alebo firefox ? Da sa to aj bez pouzitia API ? Ak nie tak ako mam s api zacat ? Dakuem.

Zasláno z mobilního telefonu.

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

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.

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.

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.