Private Sub ComboBox1_SelectedIndexChanged(作为对象发送,作为EventArgs发送)处理ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex = 0 Then
sword.Visible = True
End If
If ComboBox1.SelectedIndex = 1 Then
sword.Visible = False
End If
If ComboBox1.SelectedIndex = 1 Then
pickaxe.Visible = True
End If
If ComboBox1.SelectedIndex = 0 Then
pickaxe.Visible = False
End If
If ComboBox1.SelectedIndex = 2 Then
mace.Visible = True
End If
If ComboBox1.SelectedIndex = 0 Then
mace.Visible = False
End If
If ComboBox1.SelectedIndex = 3 Then
cutlass.Visible = True
End If
If ComboBox1.SelectedIndex = 0 Then
cutlass.Visible = False
End If
End Sub