行の挿入と削除
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
行の挿入                          （０２４）
　　　　
Private Sub mnuEditRowInsertUP_Click()
'選択されている行の上側に行を挿入
　　Dim No As Integer
　　No = MsgBox(MSFlexGrid1.Row & "行目の上側に挿入します。", _
　　　　　　　　　　 vbYesNo + vbQuestion, "行の挿入確認")
　　If No = vbYes Then
　　　　MSFlexGrid1.AddItem " ", MSFlexGrid1.Row
　　　　MSFlexGrid1.RowHeight(MSFlexGrid1.Row) = 350　　　　'行の高さ
　　End If
End Sub


Private Sub mnuEditRowInsertDown_Click()
'選択されている行の下側に行を挿入
　　Dim No As Integer
　　No = MsgBox(MSFlexGrid1.Row & "行目の下側に挿入します。", _
　　　　　　　　　　　　vbYesNo + vbQuestion, "行の挿入確認")
　　If No = vbYes Then
　　　　MSFlexGrid1.AddItem " ", MSFlexGrid1.Row + 1
　　　　MSFlexGrid1.RowHeight(MSFlexGrid1.Row + 1) = 350　　'行の高さ
　　End If
End Sub
アクティブセルの行を削除する　　　　　　　　　　　　（０２４）
　　　　　　 Private Sub mnuEditRowDelete_Click()
'現在行の削除設定
　　Dim No As Integer
　　No = MsgBox(MSFlexGrid1.Row & "行目を削除します。", _
　　　　　　　　　　 vbYesNo + vbQuestion, "行の削除確認")
　　If No = vbYes Then
　　　　MSFlexGrid1.RemoveItem MSFlexGrid1.Row
　　End If
End Sub
これらは下記のようなメニューを前もって作成し、そのメニューに書き込んで下さい。

　　


これで一応MSFlexGridコントロールの基本的な使い方が理解頂けたかと思います。
次、以降はよくある質問等などが書いておあります。又MSFlexGrid関係は過去のログの
中でも多く質問や回答があります。ここにない場合は、サイト内検索で過去のログ等を
調べて下さい。
それでも不明の場合は、掲示板の方に質問して見て下さい。




2002/04/27