Question

vb中Form窗体有一个文本框，一个列表框，一个命令按钮，两个单选按钮，代码怎么写





Answer 1

'Made by xkwy.
Private Sub Command1_Click()
    List1.AddItem Text1.Text
End Sub

Private Sub List1_Click()
    Text1.Text = List1.List(List1.ListIndex)
End Sub

Private Sub Option1_Click()
    If List1.ListIndex < 0 Then MsgBox "You have not select item!", vbCritical
    List1.RemoveItem List1.ListIndex
End Sub

Private Sub Option2_Click()
    If List1.ListIndex < 0 Then MsgBox "You have not select item!", vbCritical
    List1.List(List1.ListIndex) = Text1.Text
End Sub

Answer 2

代码就是你双击打开元件啊，就可以看到对应事件等等的代码！

追问

题目的截图来的....它要我设计一个那样的工程~~~