SPREADの行の削除

VB6.0　SPREAD3.0 OS:2000
SPREADでカレント表示した行を削除ボタンを押したら
削除したいのですがやり方がうまくわかりません。

クリックしたらカレント表示
Private Sub oSpmain_Click(ByVal Col As Long, ByVal Row As Long)

With oSpmain
.ReDraw = False
.Row = -1: .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

ここまではできたのですが、削除が思うようにできません。アドバイスお願いします。

No.1 ベストアンサー 回答者： Kuppycat 回答日時： 2005/08/05 14:51

Privatet Sub cmdDeleteRow_Click()

　With fpSpread1
　　.BlockMode = True
　　.Action = ActionDeleteRow
　　.BlockMode = False
　　.MaxRows = .MaxRows - 1
　End With
End Sub

Rowの設定はスプレッドをクリックした際にしているようなので、削除ボタンのクリックイベントを上のように設定してください。
表示調整用に漢字空白入ってます。ご注意。

この回答へのお礼

ありがとうございます！！ちょっと不具合はあるものの
できるようになりました。調整は自分でやりたいと
思います。助かりました。

お礼日時：2005/08/05 15:31