菜鸟提问，如何知道在MSFLEXGRID控件的表格中加入类似CheckBox控件的选择框，谢谢！急……

Question

http://www.csdn.net/expert/topic/940/940822.xml?temp=.6519434
看看，也许会有点启示吧

Answer 1

其实就给它的单元格加上checkbox就可以，不过大小和位置要与鼠标当前所选定的单元格同步，等会我给你找一个例程。

Answer 2

在窗体上放一个checkbox框，然后在你的mousedown事件中添加代码，使你的 鼠标在哪个单元格动作，你的checkbox的大小（。height,.width属性）就和那个单元格一样大，然后根据mousedown事件提供的鼠标当前位置（x,y)使你的checkbox位置与动作的单元格位置一样

Answer 3

http://www.host69.com/user/junwhj/index.html

Answer 4

在MSFLEXGRID控件的EnterCell,LeaveCell添加代码，设置CheckBox的位置，使它正好盖住单元格。下面的程序用的是TextBox,道理是一样的。
Private Sub MSFlexGrid2_EnterCell()
If newtemplet_Flag = True Then
Text8.Top = MSFlexGrid2.CellTop + MSFlexGrid2.Top + Frame3.Top
Text8.Left = MSFlexGrid2.CellLeft + MSFlexGrid2.Left + Frame3.Left
Text8.width = MSFlexGrid2.CellWidth - 2 * Screen.TwipsPerPixelX
Text8.Height = MSFlexGrid2.CellHeight - 2 * Screen.TwipsPerPixelY
Text8.Text = MSFlexGrid2.Text
Text8.Visible = True
Text8.ZOrder 0
Text8.SetFocus
End If
End Sub
Private Sub MSFlexGrid2_LeaveCell()
If newtemplet_Flag = True Then
If Text8.Visible = True Then
MSFlexGrid2.Text = Text8.Text
If MSFlexGrid2.TextMatrix(0, MSFlexGrid2.Col) = "属性名" Then
 MSFlexGrid2.CellForeColor = vbBlue
End If
Text8.Visible = False
End If
End If
End Sub