'试一下以下代码,将它粘贴到你的MSHFlexgrid控件的Click事件中. '当你单击固定列时,将弹出一个是否要删除此行的提示. '如果控件名称不是MSHFlexgrid1,请改成您的控件的名字.Private Sub MSHFlexGrid1_Click() With MSHFlexGrid1 If .MouseCol = 0 Then '--------------------------在此处理您的响应代码,例如您所说的弹出菜单等.
rep = MsgBox("你确定要删除这一行吗?", vbYesNo + vbQuestion) If rep = vbYes Then .RemoveItem .Row End If
'------------------------------------------- End If End With End Sub
MSHFlexGrid1_SelChange没有以上事件,则触发MSHFlexGrid1_Click,当前点击的行不改变,也只触发MSHFlexGrid1_Click
MSHFlexGrid1控件固定col=0的一列以后,点击col=0列的任意单元格时会将当前行都选中,并且捕获的MSHFlexGrid1.col是1,而不是0!
这样在点击col=0和col=1两列的任意单元格时在click等事件中捕获的MSHFlexGrid1.col都是1,而我现在需要在点击col=0列的单元格时进行数据的处理,比如弹出一个菜单,让用户进行删除该行、插入新行等等操作。
谢谢各位的答复!!!
期望哪位能给予解决。
谢谢!!!!!!!!!!!!!!
'试一下以下代码,将它粘贴到你的MSHFlexgrid控件的Click事件中.
'当你单击固定列时,将弹出一个是否要删除此行的提示.
'如果控件名称不是MSHFlexgrid1,请改成您的控件的名字.Private Sub MSHFlexGrid1_Click()
With MSHFlexGrid1
If .MouseCol = 0 Then
'--------------------------在此处理您的响应代码,例如您所说的弹出菜单等.
rep = MsgBox("你确定要删除这一行吗?", vbYesNo + vbQuestion)
If rep = vbYes Then
.RemoveItem .Row
End If
'-------------------------------------------
End If
End With
End Sub