JavascriptProva

domenica 24 giugno 2018

Immagine spostabile su video

Creare un controllo immagine in vb, come si fa?
C'è la picturebox.
Studiamola...

La proprietà SizeMode impostata su AutoSize mi sembra la scelta migliore.
Ora devo studiare come renderla mobile. Iniziamo quindi a studiarne le coordinate.

Il principio per rendere mobile un'immagine parte dalla conoscenza delle coordinate del puntatore. Come si conoscono in VB?
Ecco: ho realizzato abbastanza agevolmente una PictureBox spostabile con il puntatore del mouse (ed eventualmente con il dito su tablet)
Public Class Form1
    Dim initX, initY As Integer
    Dim deltaX, deltaY As Integer
    Dim pressed As Boolean = False

    Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
        initX = e.X
        initY = e.Y
        pressed = True
    End Sub

    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        If pressed Then
            deltaX = e.X - initX
            deltaY = e.Y - initY
            PictureBox1.Left += deltaX
            PictureBox1.Top += deltaY
        End If
    End Sub

    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
        pressed = False
    End Sub
End Class

Nessun commento:

Posta un commento