|
发表于 15-7-2006 12:39 AM
|
显示全部楼层
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
Label1.Text = "1.00"
Case 1
Label1.Text = "2.00"
...
End Select
End Sub |
|