6 个解决方案
#1
最好能把代码全部写出来。小弟比较菜,不一定能懂。但可以慢慢研究
#2
自己顶一个,在线等,急用啊大神们
#3
不懂什么积分的,大神们,我所有积分都可以给你们哟。还有10C币
#5
已经发问答了,悬赏68C币。好人一路发
#6
没看懂你说什么。随便打个程序
Private Sub Command1_Click()
If list1.ListIndex <> -1 Then
Call list2.AddItem(list1.Text) '把list1中选中的选项添加到list2中去
Call list1.RemoveItem(list1.ListIndex)
End If
End Sub
Private Sub Command1_Click()
If list1.ListIndex <> -1 Then
Call list2.AddItem(list1.Text) '把list1中选中的选项添加到list2中去
Call list1.RemoveItem(list1.ListIndex)
End If
End Sub
#1
最好能把代码全部写出来。小弟比较菜,不一定能懂。但可以慢慢研究
#2
自己顶一个,在线等,急用啊大神们
#3
不懂什么积分的,大神们,我所有积分都可以给你们哟。还有10C币
#4
#5
已经发问答了,悬赏68C币。好人一路发
#6
没看懂你说什么。随便打个程序
Private Sub Command1_Click()
If list1.ListIndex <> -1 Then
Call list2.AddItem(list1.Text) '把list1中选中的选项添加到list2中去
Call list1.RemoveItem(list1.ListIndex)
End If
End Sub
Private Sub Command1_Click()
If list1.ListIndex <> -1 Then
Call list2.AddItem(list1.Text) '把list1中选中的选项添加到list2中去
Call list1.RemoveItem(list1.ListIndex)
End If
End Sub