コマンドボタンによる一括制御

質問

VB6.0について質問です。
コマンドボタンをクリックすると一括選択でき
もう一度クリックすると一括解除するような処理を行いたいのですが
どのようにやればいいですか？
現在IF文でやっているのですがうまくいきません＞＜

For a = 1 To spdlist.MaxRows
spdlist.Row = a
If spdlist.Text = 0 Then
spdlist.Text = 1
ElseIf spdlist.Text = 1 Then

spdlist2.Text = 0
End If
Next
これだと一括で解除するときにすべて選択されていないとおかしなことになります；；

回答No.3

Trick--x-- · ベストアンサー

VBは触ったことが無いので的外れでしたらごめんなさい。

Flagを一本。
押す→Flag-On→押す→Flag-Off
Flag-Onの時に押す→選択する
Flag-Offの時に押す→解除する

では駄目なの？
ついでに、
何か選択or解除する→Flag-Off
とか。

回答No.2

noname#22222

s_husky です。見落としていましたので訂正します。

Static isKaijo As Boolean
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim L AS Integer

isKaijo = Not isKaijo
J = spdlist.MaxRows
K = Abs(isKaijo = True)
L = Abs(isKaijo = False)
For I = 1 To J
　　spdlist.Row = I
　　spdlist.Text = K
　　spdlist2.Text = L
Next I

回答No.1

noname#22222

Static isKaijo As Boolean
Dim I As Integer
Dim J As Integer
Dim K As Integer

isKaijo = Not isKaijo
J = spdlist.MaxRows
K = Abs(isKaijo = True)
For I = 1 To J
　　spdlist.Row = I
　　spdlist.Text = k
Next I

フリップ・フラップを実現したいのでしたら、こんな感じですか？
質問の主旨が今一理解できませんので的外れかも知れません。
・一括選択後に部分解除するケースがあるので・・・。
・一定時間経過したら isKaijo の値を偽に戻しておきたい・・・。
・単に、一括選択と一括解除を繰り返すなら「成功してます」とも読めるし・・・。
「うーん」