VB-有解無憂

兩個串列框，但按下按鈕串列框1的內容在串列框2出現（此時串列框1的內容還是不變）當再次在串列框1選中串列框2已有的內容是，彈出msgbox

（前面我都會就是不知道重復的怎么寫）求大佬指教

uj5u.com熱心網友回復：

大神都去哪了？

uj5u.com熱心網友回復：

按你說法，應該需要兩個事件，一個按鈕事件，點擊添加；另外一個點擊list點擊事件



Private Sub Command2_Click()    '逐個添加到右側

        Dim i As Long

        If Me.List1.ListIndex = -1 Then Exit Sub    '沒有選中則退出

        For i = 0 To List2.ListCount - 1

            If List1.Text = List2.List(i) Then Exit Sub

        Next i

        List2.AddItem List1.Text    '右側沒有，且左側有選中條目時，添加到右側

End Sub

Private Sub List1_Click()

        Dim i As Long

        For i = 0 To List2.ListCount - 1

            If List1.Text = List2.List(i) Then  '如果右側已存在相同內容

                MsgBox "彈窗提示"

                Exit Sub

            End If

        Next i

End Sub

uj5u.com熱心網友回復：

參考 2 樓 csdn_gdde的回復:

按你說法，應該需要兩個事件，一個按鈕事件，點擊添加；另外一個點擊list點擊事件



Private Sub Command2_Click()    '逐個添加到右側

        Dim i As Long

        If Me.List1.ListIndex = -1 Then Exit Sub    '沒有選中則退出

        For i = 0 To List2.ListCount - 1

            If List1.Text = List2.List(i) Then Exit Sub

        Next i

        List2.AddItem List1.Text    '右側沒有，且左側有選中條目時，添加到右側

End Sub

Private Sub List1_Click()

        Dim i As Long

        For i = 0 To List2.ListCount - 1

            If List1.Text = List2.List(i) Then  '如果右側已存在相同內容

                MsgBox "彈窗提示"

                Exit Sub

            End If

        Next i

End Sub

for i=0 to list2.listcount-1是什么意思

uj5u.com熱心網友回復：

參考 3 樓笙簫_ 的回復:

Quote: 參考 2 樓 csdn_gdde的回復:

按你說法，應該需要兩個事件，一個按鈕事件，點擊添加；另外一個點擊list點擊事件



Private Sub Command2_Click()    '逐個添加到右側

        Dim i As Long

        If Me.List1.ListIndex = -1 Then Exit Sub    '沒有選中則退出

        For i = 0 To List2.ListCount - 1

            If List1.Text = List2.List(i) Then Exit Sub

        Next i

        List2.AddItem List1.Text    '右側沒有，且左側有選中條目時，添加到右側

End Sub

Private Sub List1_Click()

        Dim i As Long

        For i = 0 To List2.ListCount - 1

            If List1.Text = List2.List(i) Then  '如果右側已存在相同內容

                MsgBox "彈窗提示"

                Exit Sub

            End If

        Next i

End Sub

for i=0 to list2.listcount-1是什么意思

回圈呀，判斷右側已有資料

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/10386.html

標籤：VB基礎類

上一篇：vb6.0 MSchart如何把資料庫中的時間設定成X坐標

下一篇：WIN10系統可以安裝VB6