[转]设置MSFLEXGRID控件可编辑示例|VB技巧,编程,TTTBLOG

Allen 2011-09-14 18:01:40 5726 1 0 0 0

在MSFLEXGRID控件中每一个CELL格的内容是不可以由用户直接编辑的，但是我们可以通过一些小技巧来方便的实现这编辑功能来扩展MSFLEXGRID的应用（在实际应用中这是很常用的功能）。

你只需按下面的做即可轻松实现编辑MSFLEXGRID控件数据的功能

例：

在窗体上放一文本框text1，和一MSFLEXGRID控件flexgrid1，然后加入下例代码：

Private Sub Form_Load()
Text1.Move -10000, -10000, 1, 1
End Sub

Private Sub MSFlexGrid1_EnterCell()
MSFlexGrid1.CellBackColor = vbBlue
MSFlexGrid1.CellForeColor = vbWhite
Text1.Text = MSFlexGrid1.Text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub MSFlexGrid1_LeaveCell()
MSFlexGrid1.CellBackColor = vbWhite
MSFlexGrid1.CellForeColor = vbBlue
End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Text1.SetFocus
End Sub

Private Sub Text1_Change()
MSFlexGrid1.Text = Text1.Text
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown
KeyCode = 0
End Select
End Sub

ok,这样一个可编辑的MSFLEXGRID控件就完成了!!

(来源：http://tech.ddvip.com/2006-07/11539061145751.html)

Tag:

查询临时表空间和回滚表空间的情况 2011-08-02

[转]使用Windows 2003新闻组服务器和客户端 2010-05-21

Dos下日期时间的引用 2011-04-01

TTT BLOG站点留言 2020-06-03

已知有如下代码 2011-01-25

安装RPM套件rpm-build错误解决：NOKEY、elf 2010-04-27

今天女儿去幼儿园反应激烈，感觉不太正常! 2009-10-10

最后一丝顾虑消失了！ 2009-04-04

昨天看了天下无贼，今天贼就把我的手机偷了 2009-03-20

装完XP操作系统后必须做的10件大事 2010-10-19

今天赞美了一个陌生女孩的手，不知道是不是很无耻。。。 2008-12-13

今天参观了中国铁道博物馆 2012-07-09

为生在中国而自豪~~ 2009-07-02

关于庆余年最后一章的疑问 2009-02-27

发布一下<庆余年>的分卷完整版(手工编辑整理) 2009-02-28

扑克王与呖咕呖咕新年财--最新赌片有感 2009-10-27

腾讯诉360宣判：360公开消除影响30天并赔40万 2011-04-26

60年一甲子，中印对比 2009-08-24

高盛：只要能赚钱，不在乎为谁做，也不在乎怎么做 2010-04-30

整理TTT BLOG，删除部分插件 2011-05-18