Rob4077
asked on
Create a full size blank screen to save burning the monitor
We have a need to display a weekly schedule for all staff to see and the monitor we want to use is an old Plasma TV. It displays the info adequately but is susceptible to image burn.
The form it displays needs to refresh every 10-30 seconds, which is done by updating a temporary table and re-displaying it. That refresh, coupled with the conditional formatting on the base form, causes the screen to flicker anyway so what I thought was I would put a black popup in the timer event so that it displays while the table is refreshed, thereby forming a quasi-screen saver. I've managed to do it but I don't know how to get the system to display the popup window larger than the full screen so as to cover everything.
I am open to suggestions.
The form it displays needs to refresh every 10-30 seconds, which is done by updating a temporary table and re-displaying it. That refresh, coupled with the conditional formatting on the base form, causes the screen to flicker anyway so what I thought was I would put a black popup in the timer event so that it displays while the table is refreshed, thereby forming a quasi-screen saver. I've managed to do it but I don't know how to get the system to display the popup window larger than the full screen so as to cover everything.
I am open to suggestions.
ASKER
Thanks Chaau. How do I then assign those values to the form size? Not sure what property to set to the size?
Use this code in the popup form open event:
Dim h as Integer
Dim w as Integer
h = GetSystemMetrics(SM_CYSCREEN)
w = GetSystemMetrics(SM_CXSCREEN)
Me.Move _
Left:=0, Top:=0, Width:=w, Height:=h
Is it an option to simply upgrade the Monitor to a newer LED screen?
We have an app that has been running for 5 years with no burn in...
Because blanking the screen will only delays the inevitable burn in anyway...
We have an app that has been running for 5 years with no burn in...
Because blanking the screen will only delays the inevitable burn in anyway...
ASKER
Hi Jeffrey, We need this to work for a while. I know it will eventually burn anyway and they'll have to then buy a decent screen. The only other thing I could think of is if there's an easy way to change the colour scheme every time it refreshes but I think that's even harder.
Chaau, Your code only opens a window that's about an 40mm by 20mm positioned under the tab names of the forms. What I need is full size of the whole monitor.
Chaau, Your code only opens a window that's about an 40mm by 20mm positioned under the tab names of the forms. What I need is full size of the whole monitor.
Sorry, forgot to convert to twips. multiply each value by 15:
Me.Move _
Left:=0, Top:=0, Width:=w*15, Height:=h*15
ASKER
How do I work out how to get it to start at the top of the screen instead of under the tabs?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I changed the left and top values to -4000 and increased the multiplier from 15 to 17 and now it works fine. All I had to do was minimise the task bar at the bottom and it's doing what I need. Hopefully that will extend the life of the screen a little
In addition to that use BorderStyle=None
ASKER
IS there a problem with the way I've handled it? Since it works that should be ok I would think????
Shouldn't be a problem unless you have multiple monitors. If you have a second monitor you will see the parts of your popup on the second monitor, as your popup is actually bigger than the monitor size.
Open in new window