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

Allen 2011-09-14 18:01:40 5673 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:

对居家学佛的八点建议 2010-09-25

[转]搭建Linux新闻组(全) 2010-05-21

不错的创意：美女时钟-1440分钟美女来计时 2010-01-13

七里香 2006-07-14

中央电脑一定会发现许乐和封余的关系 2009-06-18

国内.360安全卫士报复性封杀安全竞争对手及QQ软件 2010-10-30

mylf.cn 可以注册 2010-10-14

祖国60岁生日--向千千万万的共和国烈士致敬! 2009-09-30

Delphi调用外部程序函数：WinExec() 和Shel 2010-07-21

个人的爱憎~~ 2003-08-20

我们这成了重疫区，形式严峻 2009-09-14

Fedora是什么，与Redhat的关系 2009-06-21

老婆飞回来了 2009-12-16

一个用bat/批处理做的小计算器 2009-06-09

mysql忘记密码解决办法 2011-06-07

晒晒第一次做的馅饼~~ 2009-02-24

酒后发泄一下 2010-01-25

[转]谈谈Oracle10g 管理系统全局区(SGA) 2009-11-21

关于Z-Blog版权的说明 2009-06-11

ASP，让人好纠结。。。 2009-08-27