投稿日 | : 2002/10/28(Mon) 16:47 |
投稿者 | : アンパンマン |
Eメール | : |
URL | : |
タイトル | : Re: リストからリストへ |
うまく出来ました。
Dim i As Integer
If List1.ListCount = 0 Then
List1.AddItem List3.List(List3.ListIndex)
Else
For i = 0 To List1.ListCount - 1
If List1.List(i) = List3.List(List3.ListIndex) Then
List1.RemoveItem i
Exit Sub
End If
Next i
List1.AddItem List3.List(List3.ListIndex)
End If