Torna al Thread

'La variabile che indica il rettangolo nel quale è incluso il bottone 'nel mio caso il bottone dista 10 px da sinistra, 10 dall'alto 'ed è largo 90 px e alto 45. Dim btn1Rect As New Rectangle(10, 10, 90, 45) 'Devi dichiararne una per ogni bottone, oppure fare un array Dim btn2Rectas As New Rectangle(...) 'La variabile che indica quale bottone è selezionato Dim bottoneSelezionato As String = Nothing Private Sub PictureBox_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove 'quando viene mosso il mouse nella picturebox fai il controllo: 'se il rettangolo 1 contiene il mouse If btn1Rect.Contains(e.Location) Then 'cambi il cursore Cursor = Cursors.Cross 'imposti la variabile per indicare che il mouse è sul bottone 1 bottoneSelezionato = "btn1" 'se il rettangolo 2 contiene il mouse ElseIf (btn2Rect.Contains(e.Location)) Then 'cambi il mouse ... 'imposti la variabile ... ElseIf(...) ... 'se invece nessun rettangolo contiene il mouse Else 'metti il cursore su default Cursor = Cursors.Default 'assegni alla variabile un valore null bottoneSelezionato = Nothing End If End Sub Private Sub PictureBox_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick Select Case bottoneSelezionato Case Nothing Return Case "btn1" 'Fai qualcosa Case "btn2" 'Fai qualcosa d'altro Case ... ' End Sub
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5