Question

At the design level, enter the text circle, triangle, rectangle, or pentagon in the list box.

Add hexagon to the list during the run time.

When a user pick a shape, a message box should show the number of sides and the title of message box should be name of the shape.

If the user does not make a choice, then program should prompt the user to pick a name of the shape.

Answer 1

Public Class shape

Private Sub shape_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lstShapes.Items.Add("Hexagon")
End Sub

Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If (lstShapes.SelectedIndex = -1) Then
MessageBox.Show("Please select a shape", "Error")
ElseIf (lstShapes.SelectedItem.ToString() = "Circle") Then
MessageBox.Show("Number of Sides: 0", "Circle")
ElseIf (lstShapes.SelectedItem.ToString() = "Triangle") Then
MessageBox.Show("Number of Sides: 3", "Triangle")
ElseIf (lstShapes.SelectedItem.ToString() = "Square") Then
MessageBox.Show("Number of Sides: 4", "Square")
ElseIf (lstShapes.SelectedItem.ToString() = "Rectangle") Then
MessageBox.Show("Number of Sides: 4", "Rectangle")
ElseIf (lstShapes.SelectedItem.ToString() = "Pentagon") Then
MessageBox.Show("Number of Sides: 5", "Pentagon")
ElseIf (lstShapes.SelectedItem.ToString() = "Hexagon") Then
MessageBox.Show("Number of Sides: 6", "Hexagon")
End If
End Sub

End Class

Form1 Select Shape Crcle Trangle Square Rectangle Pentagon OK

Form1 Select Shape Circle Triangle Square Rectangle Pentagon Hexagon OK Square Number of Sides: 4 уре nings OK le