当前位置:编程学习 > VB >>

VB编程题!!真心求教!!VB高手请进!!!

各路高手行行好,帮帮忙!!题目如图,要求双击候选课程列表框里的项目能在已选课程中显示,双击已选课程里的项目撤销,输入要添加的课程名字,按添加可在候选课程中显示!!!用VB2008制作,求哪位高手给个详细的代码!!!谢谢啦!!!
追问:谢谢你的回答!!可我上面的列表框用的都是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 With

End 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

上一个:VB编程 用户控件 有图 请高手进来看一下啊!
下一个:VB编程和C语言到底先学哪个比较好?

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,