[RESOLVED] Kiosk timer issue

[Pasvorto]

I am writing a simple little kisok app that displays the number of days since the last accident and scrolls through a series of safety jpgs.

When the program loads it asks for date of last reportable accident and stores it. No problem there. I am having 2 issues right now.

1. I have a timer for scrolling the pictures. I want to be able to break into the loop and update the date & close the program, if necessary. I have the proper code in the keydown event. It works fine if the timer is not working.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF12 Then
    StartDate = InputBox("Enter date of last accident")
    lbldays.Caption = DateDiff("d", StartDate, Now)
    '---------------------
    '--set the color
    '---------------------
    SetColor
ElseIf KeyCode = vbKeyF11 Then
    End
End If
End Sub

The timer code is where the issue lies, I think. I tried adding a DoEvents, but that didn't do it. I update the days field again to take care of midneght date change. Not much overhead involved.

Private Sub Timer1_Timer()
'
'-----------------------------------
' loop through safety pictures
'-----------------------------------
'
lbldays.Caption = DateDiff("d", StartDate, Now)

GetPicture

'---------------------
'--set the color
'---------------------
SetColor

End Sub

The loop for getting the picture. It is in test mode right now, so I only have 2 pictures.

Public Function GetPicture()
Dim pic As Integer

pic = Int(Rnd(1) * 2) + 1
Dim xx As Picture
Set xx = LoadPicture("C:\safety" & Trim(pic) & ".jpg")
Picture1.Picture = xx
End Function

I need, in the GetPicture function, to be able to center the picture (horizontally and vertically). Right now, they all just align to the upper left corner and do not fill the whole picture frame area.

[Pasvorto]

OK, I got the picture stuff fixed. Now, it is just hwo to break into the timer loop to check for a key press.

[akhileshbc]

Why don't you disable the timer, like this:

Timer1.Enabled=False    '~~~> Disable Timer
StartDate = InputBox("Enter date of last accident")
Timer1.Enabled=True     '~~~> Enable Timer

...

[akhileshbc]

Using End for unloading the application is not a good practice....

Links:
* Why is using the 'End' statement (or VB's "stop" button) a bad idea?
* Classic VB - How should I close my form/program/class?
...

[Pasvorto]

I need to know when to disbale the timer. Certainly not on every loop. Somehowm, it needs to allow the system (DoEvents) to check for a function key press.

[akhileshbc]

Have you changed the KeyPreview property of the Form to TRUE ....???
Will that help you...??? ...

[Pasvorto]

That was it! You da man!