Screen Saver

Posted on 2003-02-25
Medium Priority
Last Modified: 2010-05-01
I am trying to write a screensaver and am having the following problems although it runs fine from design

When I let the screensaver run I get a blue bar in the upper left corner of the screen and have to double click to view and then it doesn't cover the full screen
Any suggestions?
Question by:Kersten
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions

Accepted Solution

JRBDEV earned 100 total points
ID: 8022405
hey there... I have a demo screen saver program on my site.


there's a link on the left for Screen saver.  This has the full source code and everthing.

Hope it helps.

Expert Comment

ID: 8023409
you can just insert single line to view ur scr
write this in the function which you are sure to call after fully loading of form and all of initialization
or if u got timer then write this in timer_timer
If (Me.WindowState <> vbMaximized) Then Me.WindowState = vbMaximized

Expert Comment

ID: 8023414
you can just insert single line to view ur scr
write this in the function which you are sure to call after fully loading of form and all of initialization
or if u got timer then write this in timer_timer
If (Me.WindowState <> vbMaximized) Then Me.WindowState = vbMaximized
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

LVL 11

Assisted Solution

Steiner earned 100 total points
ID: 8023827
Set the borderstyle of your form to "none".
Put the following code into a module:

Option Explicit

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Sub SShow()
   Dim DescHwnd As Long, DescRect As RECT
   'Get Desktop Size
   DescHwnd = GetDesktopWindow()
   GetWindowRect DescHwnd, DescRect
   'Show the form in full size and on top
   SetWindowPos Form1.hwnd, -1, 0&, 0&, DescRect.Right, DescRect.Bottom, &H40
End Sub

Now change the name Form1 to your ScreenSaver-Form and call SShow at the point where you want to show the form.


Author Comment

ID: 8026291
Thanks it is now starting correctly.
My screensaver is similar to the one that windows supplies by grabbing images from a file and displaying them. I need to add the effects of fade in, fade out, load right, and load left. I am loading the images onto a picture box control and am attempting to use the animate window api but am not getting the affect. Do I need to switch between 2 different forms and if so how do I accomplish this?


Expert Comment

ID: 8063282
Are u there
LVL 49

Expert Comment

ID: 8972898
Kersten, an EE Moderator will handle this for you.
Moderator, my recommended disposition is:

    Save as PAQ -- No Refund.
    *** i can't tell whick solution helped.

DanRollins -- EE database cleanup volunteer
LVL 11

Expert Comment

ID: 8973679
Split the points?
LVL 11

Expert Comment

ID: 9676753

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses
Course of the Month13 days, 4 hours left to enroll

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question