关于MSHFlexGrid的问题？

Question

Private Sub Form_Load()
MSHFlexGrid1.Rows = 8
   MSHFlexGrid1.Cols = 5End SubPrivate Sub MSHFlexGrid1_Click()MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) = "★"
end sbu
想在下一次点击时取掉标记怎么做

Answer 1

做一个boolean的值，点击出现为真，再点击则判断此值，如果为真则删掉符号，同时变值为假，循环判断。

Answer 2

Private Sub MSHFlexGrid1_Click()
  if MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) = "" then
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) = "★"
  else
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) = ""
  end if
end sub

Answer 3

Private Sub MSHFlexGrid1_Click()
if MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) = "★" then
    MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) =""
end if
end sub