選んだ行の削除
VB6.0 SPREAD3.0
SPREADで何行か表示している時に削除したい行をクリックし、その行に色（黄色）をつけ、その色のついた行を削除ボタンを押したら削除する・・・という仕様にしたいと思っております。
そして以下のように書いてみたのですが、問題があり、
(1)クリックした行の色が変わると同時に何故だか最終行の文字の色が黄色に変わってしまう。
(2)例えば一行目をクリックしてから３行目をクリックすると一行目の文字の色が黄色になってしまい、もとに戻らない。
(3)行を選択しないまま削除ボタンを押すと下から順に行が削除されてしまう。
という３つの問題があり、解決できないでいます。
なにかアドバイスがありましたらよろしくお願いします。
'---クリックした行の色を反転---
Private Sub spread_Click(ByVal Col As Long, ByVal Row As Long)
With oSpmain
.ReDraw = False
.Row = .Row: .Col = -1:
.BackColor = vbWhite
.ForeColor = RGB(255, 300, 0)
.BlockMode = True
.Row = Row: .Row2 = Row
.Col = 1: .Col2 = .MaxCols
.BackColor = .ForeColor
.ForeColor = vbWhite Xor .ForeColor
.BlockMode = False
.ReDraw = True
End With
End Sub
'---削除ボタン---
Private Sub sakujyo_Click()
With spread
.BlockMode = True
.Action = ActionDeleteRow
.BlockMode = False
.MaxRows = .MaxRows - 1
End With
End Sub
お礼
うわ！！これははじめてです！！すごーい こういう方法もあったんですね ( ；∀；) カンドー！！