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