Is it possible to use images as checkboxes? I'm making a feedback form with a 5 star rating.
At the minute I have pre-existing code to display the a full star indicating that the star is highlighted whenever one of the stars are hovered over by the mouse cursor.
Is it possible to display the full star whenever the star is clicked, I feel as if the previous code may be preventing this from being possible.
![Name: Screenshot_6.jpg
Views: 13
Size: 38.8 KB]()
![Name: Screenshot_7.jpg
Views: 11
Size: 38.2 KB]()
![Name: Screenshot_8.jpg
Views: 10
Size: 37.8 KB]()
At the minute I have pre-existing code to display the a full star indicating that the star is highlighted whenever one of the stars are hovered over by the mouse cursor.
Code:
'Handling Star Rating Hover
'Star 1
Private Sub PBStar1_MouseEnter(sender As Object, e As EventArgs) Handles PBStar1.MouseEnter
PBStar1.Hide()
SStar1.Show()
End Sub
Private Sub PBStar1_MouseLeave(sender As Object, e As EventArgs) Handles PBStar1.MouseLeave
PBStar1.Show()
SStar1.Hide()
End Sub
'Star2
Private Sub PBStar2_MouseEnter(sender As Object, e As EventArgs) Handles PBStar2.MouseEnter
PBStar1.Hide()
PBStar2.Hide()
SStar1.Show()
SStar2.Show()
End Sub
Private Sub PBStar2_MouseLeave(sender As Object, e As EventArgs) Handles PBStar2.MouseLeave
PBStar1.Show()
PBStar2.Show()
SStar1.Hide()
SStar2.Hide()
End Sub
'Star3
Private Sub PBStar3_MouseEnter(sender As Object, e As EventArgs) Handles PBStar3.MouseEnter
PBStar1.Hide()
PBStar2.Hide()
PBStar3.Hide()
SStar1.Show()
SStar2.Show()
SStar3.Show()
End Sub
Private Sub PBStar3_MouseLeave(sender As Object, e As EventArgs) Handles PBStar3.MouseLeave
PBStar1.Show()
PBStar2.Show()
PBStar3.Show()
SStar1.Hide()
SStar2.Hide()
SStar3.Hide()
End Sub
'Star 4
Private Sub PBStar4_MouseEnter(sender As Object, e As EventArgs) Handles PBStar4.MouseEnter
PBStar1.Hide()
PBStar2.Hide()
PBStar3.Hide()
PBStar4.Hide()
SStar1.Show()
SStar2.Show()
SStar3.Show()
SStar4.Show()
End Sub
Private Sub PBStar4_MouseLeave(sender As Object, e As EventArgs) Handles PBStar4.MouseLeave
PBStar1.Show()
PBStar2.Show()
PBStar3.Show()
PBStar4.Show()
SStar1.Hide()
SStar2.Hide()
SStar3.Hide()
SStar4.Hide()
End Sub
'Star 5
Private Sub PBStar5_MouseEnter(sender As Object, e As EventArgs) Handles PBStar5.MouseEnter
PBStar1.Hide()
PBStar2.Hide()
PBStar3.Hide()
PBStar4.Hide()
PBStar5.Hide()
SStar1.Show()
SStar2.Show()
SStar3.Show()
SStar4.Show()
SStar5.Show()
End Sub
Private Sub PBStar5_MouseLeave(sender As Object, e As EventArgs) Handles PBStar5.MouseLeave
PBStar1.Show()
PBStar2.Show()
PBStar3.Show()
PBStar4.Show()
PBStar5.Show()
SStar1.Hide()
SStar2.Hide()
SStar3.Hide()
SStar4.Hide()
SStar5.Hide()
End Sub