VB编程题!!真心求教!!VB高手请进!!!
|
追问:谢谢你的回答!!可我上面的列表框用的都是ListBOX啊!!下面的填空用的是TextBox
|
追问:谢谢你的回答!!可我上面的列表框用的都是ListBOX啊!!下面的填空用的是TextBox
答案:'左lstItem 右lstSelect 下txtItem,Button1
Private Sub lstItem_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstItem.MouseDoubleClick
With lstItem
If Not .SelectedItem Is Nothing AndAlso lstSelect.Items.IndexOf(.SelectedItem) < 0 Then lstSelect.Items.Add(.SelectedItem)
End WithEnd Sub
Private Sub lstSelect_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstSelect.MouseDoubleClick
With lstSelect
If Not .SelectedItem Is Nothing Then .Items.Remove(.SelectedItem)
End With
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If lstItem.Items.IndexOf(Me.txtItem.Text) < 0 Then Me.lstItem.Items.Add(Me.txtItem.Text)End Sub