Visual Basic FAQ

Запись текста в ячейку 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

Запись опубликована on 12.10.2009 at 9:00 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.