投稿日 | : 2004/08/10(Tue) 21:00 |
投稿者 | : Ichiro |
Eメール | : |
URL | : |
タイトル | : MSFlexGridの行をまとめて削除したい |
MSFlexGridのRemoveItemメソッドで複数行をまとめて削除したいのですが、うまくいきません。
環境はWindowsXPとVB6SP6です。
以下の例で、フォーム上にMSFlexGridとCommand1、Command2の2つのボタンを用意します。
Command1ボタンをクリックするとMSFlexGridに10行を追加します。
Command2ボタンをクリックすればその10行を削除できるはずなのですが
なぜか2,4,6,8行が削除されず「その行はグリッドには含まれていません」というエラーになります。
デバッグモードで見ると変数i=7で止まっています。
何がいけないのでしょうか。ご指導お願いします。
Private Sub Command1_Click()
Dim i As Integer
With MSFlexGrid1
.Rows = 1
.Cols = 1
For i = 1 To 10
.AddItem i
Next i
End With
End Sub
Private Sub Command2_Click()
Dim i As Integer
With MSFlexGrid1
For i = 1 To 10
.RemoveItem i
Next i
End With
End Sub