為什麼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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()