[リストへもどる]
一括表示
投稿時間：2002/10/28(Mon) 13:53
投稿者名：アンパンマン
Ｅメール：
ＵＲＬ　：
タイトル：リストからリストへ
お久しぶりです。

早速ですが、リストボックスのStyleプロパティでチェックボックスにしています。

チェックが入っていれば、もう一つの普通のリストボックスに入れ、入っていない時は、
リストから削除というような事をしたいのですが、どうすればいいでしょうか？

今はItemCheckイベントに書いていますが、
チェックが入ったときはうまくできますが、チェックを消した時に、
リストから削除が出来ません。

リストボックスのチェックが入っているか、いないかの判定をするにはどうすればいいでしょうか？
よろしくお願い致します。

投稿時間：2002/10/28(Mon) 15:17
投稿者名：batchman
Ｅメール：batchman@ae.wakwak.com
ＵＲＬ　：
タイトル：Re: リストからリストへ
> リストボックスのチェックが入っているか、いないかの判定をするにはどうすればいいでしょうか
？

Dim i As Long

For i = 0 to List1.ListCount -1
    If List1.Selected(i) = True Then MsgBox "Check"
Next

投稿時間：2002/10/28(Mon) 16:47
投稿者名：アンパンマン
Ｅメール：
ＵＲＬ　：
タイトル：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