KeyPress example for Access 2.0

This example demonstrates the KeyPress event.

Sub LEAD1_KeyPress (KeyAscii As Integer)

    'This example uses the KeyPress event to implement a custom scale mode.
    'There is no particular reason to put this code in this event, except that
    'we needed examples of both the event and the scale mode.

    If KeyAscii = 67 Then 'Uppercase C
        'This example sets an custom scale mode and uses it to crop the
        'display. Keep in mind that the actual height and width do not change.
        'Only the unit of measure changes.

        'Change the scale so that origin is moved one-third right and one-third down
        Me![LEAD1].Object.ScaleLeft = -1
        Me![LEAD1].Object.ScaleTop = -1
        Me![LEAD1].Object.ScaleWidth = 3
        Me![LEAD1].Object.ScaleHeight = 3

        'Crop the display so that it takes up the middle third of the height and width
        Me![LEAD1].Object.DstClipLeft = 0
        Me![LEAD1].Object.DstClipTop = 0
        Me![LEAD1].Object.DstClipWidth = 1
        Me![LEAD1].Object.DstClipHeight = 1

        Me![LEAD1].Object.ForceRepaint
    End If

End Sub