List Box 1 ：aaaaaaaaaaaaaaa
bbbzbbbbbbbbbbb
cccccccccccycccccc
ddddddddddddddd
List box 2 : ？
求VB 大神加QQ： 1024447356 或 微信： lizhiyu0707 救人命啊！！！
uj5u.com熱心網友回復：
Private Sub Command1_Click()
'左邊串列移到右邊串列
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
a = a + 1
End If
Next i
If a = 0 Then
MsgBox "請在左邊的文本框中選擇專案", , "資訊提示"
Exit Sub
End If
List2.AddItem List1.Text
'List1.RemoveItem List1.ListIndex '如果需要清除左邊串列專案，去掉注釋即可
End Sub
Private Sub Command2_Click()
'右邊串列移到左邊串列
For i = 0 To List2.ListCount - 1
If List2.Selected(i) = True Then
a = a + 1
End If
Next i
If a = 0 Then
MsgBox "請在右邊的文本框中選擇專案", , "資訊提示"
Exit Sub
End If
'List1.AddItem List2.Text '如果需要在左邊串列添加專案，去掉注釋即可
List2.RemoveItem List2.ListIndex
End Sub
Private Sub Form_Load()
AA = Array("aaaaaaaaa", "bbbzbbbb", "cccccccc", "ddddddddd", "bbbbbbb", "cccyccc")
BB = UBound(AA)
For i = 0 To BB
List1.AddItem AA(i)
Next i
End Sub
很簡單的，修改AA陣列的資料即可。
uj5u.com熱心網友回復：
俺沒看懂啥意思...........uj5u.com熱心網友回復：
我也沒看懂。
叫你加他微信、QQ詳談呢。
uj5u.com熱心網友回復：
Dim i As Integer
List2.Clear
For i = 0 To List1.ListCount - 1
If InStr(List1.List(i), "y") Then List2.AddItem List1.List(i)
If InStr(List1.List(i), "z") Then List2.AddItem List1.List(i)
Next i
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/73740.html
標籤：VB基礎類