Private Sub Grid1_KeyPress(KeyAscii As Integer)
With Grid1
If KeyAscii <> vbKeyReturn Then
c = .Col: R = .Row
txtgrid.Left = .Left + .ColPos(c)
txtgrid.Top = .Top + .RowPos(R)
txtgrid.Width = .ColWidth(c)
txtgrid.Height = .RowHeight(R)
If .TextMatrix(R, c) <> "" Then
txtgrid.Text = .TextMatrix(R, c)
txtgrid.SelStart = 0
txtgrid.SelLength = Len(txtgrid.Text)
Else
txtgrid.Text = ""
End If
txtgrid.Visible = True
txtgrid.SetFocus
End If
End With
End Sub
我的这段代码是键盘击下时激活txtgrid文本框控件,击下的这个键值没有到文本框中;但我的要求是击第一个键时,键值要输到txtgrid文本框,如我击1,文本框出现1

我平时是这样用的：
Private Sub Grid1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
Case Else
Select Case KeyAscii
Case 47 '/ 删除

Case 42 '* 插入

Case 45 '- 保存

Case 43 '+ 新单

Case 27

Case Else
TxtGrid.Top = Grid1.CellTop + Grid1.Top + 10
TxtGrid.Left = Grid1.CellLeft + Grid1.Left + 10
TxtGrid.Width = Grid1.CellWidth - 2 * Screen.TwipsPerPixelX
TxtGrid.Height = Grid1.CellHeight - 2 * Screen.TwipsPerPixelY
TxtGrid.Text = UCase(Grid1.Text)
TxtGrid.Visible = True
TxtGrid.ZOrder 0 ' 把 TxtGrid 放到最前面！
TxtGrid.SetFocus
TxtGrid.SelLength = 200
SendKeys Chr$(KeyAscii)
End Select
End Select
End Sub

[此贴子已经被Joforn于2007-7-4 23:43:25编辑过]

感觉跟这个类似!你看看是不是

谢谢,你这个很不错,但我想要的是Excel那种样式,就是鼠标单击单元格只是选中单元格,并不激活text控件,双击激活text控件,键盘击键激活,并且在text控件得到击键盘的第一个键值!

建议你使用 vsflexgrid吧！如果这样的话，他本身自带了这种功能

那MSHFlexGrid就不能完成这个功能了吗?照理讲MSHFlexGrid不会这么差劲的吧?还是请教高手!

不是很懂