dotNETportal.cz

Neviem si dať rady so zmenou polohy obrázku. Na formulary mám jeden PictureBox a v ňom mám niekoľko obrázkov z ImageListu. Ako sa dá spraviť keď chcem aby sa jeden z obrázkov pohyboval tak ako chodím s kurzorom ? Pozíciu kurzora zisťujem nasledovne:

Dim x As Integer
Dim y As Integer
   Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
       
        Dim mousePos As Point = e.Location
        x = mousePos.X
        y = mousePos.Y
    End Sub

Skuste :

        Dim x As Graphics = PictureBox1.CreateGraphics()
        x.DrawImage(PictureBox1.Image, New Point(e.X, e.Y)) 'e.x - pozicia mysi na osi X

Treba sa s tým kódom pohrať, pridať mazanie pozadia pictureboxu a vyriešiť buffering aby obrázok pri prekreslovaní neblikal. Ako zdroj obrázku môže byť samozrejme aj ImageList.

Vaso.