12
Октябрь
2009
Запись текста в ячейку FlexGrid
Запись текста в ячейку FlexGrid
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then MSFlexGrid1.Text = "" End If End Sub Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then MSFlexGrid1.Row = MSFlexGrid1.Row + 1 End If Exit Sub End If If KeyAscii = 8 Then If Len(MSFlexGrid1.Text) > 0 Then MSFlexGrid1.Text = Left(MSFlexGrid1.Text, Len(MSFlexGrid1.Text) - 1) End If ElseIf KeyAscii < 32 Then Exit Sub Else MSFlexGrid1.Text = MSFlexGrid1.Text & Chr(KeyAscii) End If End Sub