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