[分享]Msflexgrid控件扩展功能问题
MSFLEXGRID控件中的每一个CELL格的内容不是用户可以直接编辑的
通过小技巧可以扩展控件的应用 实现编辑MSFLEXGRID控件数据的功能
Option Explicit
Private Sub MSFlexGrid1_EnterCell()
Text1.Text = MSFlexGrid1.Text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
text1_keypress KeyAscii
End Sub
Private Sub Text1_Change()
MSFlexGrid1.Text = Text1.Text
End Sub
Private Sub text1_keypress(KeyAscii As Integer)
Dim i
i = 1
End Sub
这样就可以用TEXT来编辑CELL内容了 早上起来无聊自己想的 也做了相应的实验 感觉还行 不知道实用性怎么样 大家给点意见