為什麼MSHFlexGrid1.RemoveItem (MSHFlexGrid1.Row)後要在 MSHFlexGrid1.AddItem "" & Chr(9) & "aaa" & Chr(9) & "bbb"時Grid都不會出現"aaa bbb"呢??????要MSHFlexGrid1.AddItem很多次Grid才會正常呢~~~
Private Sub Form_Load()
MSHFlexGrid1.Rows = 2
MSHFlexGrid1.Cols = 3
MSHFlexGrid1.FixedRows = 1
MSHFlexGrid1.FixedCols = 1
End Sub
Private Sub Command1_Click()
If MSHFlexGrid1 = "" Then
MSHFlexGrid1.TextMatrix(1, 1) = "aaa"
MSHFlexGrid1.TextMatrix(1, 2) = "bbb"
Else
DoEvents
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
MSHFlexGrid1.AddItem "" & Chr(9) & "aaa" & Chr(9) & "bbb"
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
End If
End Sub
Private Sub Command2_Click()
If MSHFlexGrid1.Rows = 2 Then
MSHFlexGrid1.TextMatrix(1, 1) = ""
MSHFlexGrid1.TextMatrix(1, 2) = ""
DoEvents
Else
MSHFlexGrid1.RemoveItem (MSHFlexGrid1.Row)
End If
End
Private Sub Form_Load()
MSHFlexGrid1.Rows = 2
MSHFlexGrid1.Cols = 3
MSHFlexGrid1.FixedRows = 1
MSHFlexGrid1.FixedCols = 1
End Sub
Private Sub Command1_Click()
If MSHFlexGrid1 = "" Then
MSHFlexGrid1.TextMatrix(1, 1) = "aaa"
MSHFlexGrid1.TextMatrix(1, 2) = "bbb"
Else
DoEvents
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
MSHFlexGrid1.AddItem "" & Chr(9) & "aaa" & Chr(9) & "bbb"
MSHFlexGrid1.Row = MSHFlexGrid1.Rows - 1
End If
End Sub
Private Sub Command2_Click()
If MSHFlexGrid1.Rows = 2 Then
MSHFlexGrid1.TextMatrix(1, 1) = ""
MSHFlexGrid1.TextMatrix(1, 2) = ""
DoEvents
Else
MSHFlexGrid1.RemoveItem (MSHFlexGrid1.Row)
End If
End
全站熱搜
留言列表