Solved

How to create a screen saver in VB?

Posted on 1998-07-17
5
160 Views
Last Modified: 2010-05-03
Hello,
How would one go about creating a screen saver (.scr) in visual basic 5 ?  I know it can be done, but how?

Any help would be great!
Thanx in advance,
Rob
0
Comment
Question by:rob2000
  • 3
5 Comments
 
LVL 1

Expert Comment

by:sirigere
Comment Utility
I will send you a sample project of screen saver let me know your e-mail ID
0
 
LVL 9

Expert Comment

by:Dalin
Comment Utility
rob2000,
Here is the step by step "How to makeer a screen saver" that has been in some paq's that I answered. Let me know if you have anyquestions.

A couple of things are: Make your the boardstyle of your  form (the one you want to show as SS) to none, and show it as maximized.

To sirigere: you should not lock a question when you are not providing an answer.

Regards.
Dalin


Screen savers are simply .exe files renamed to .scr.
There are only a few things you need  to do.

Make the project start up from Sub Main. Do this by going
to Tools | Options | Project and selecting the
Start-up form as Sub Main.
This Sub should look something like this:

  Sub main()
  ' Check to see if we should blank the screen, or display
  ' the Setup dialog box.

   If InStr(Command$, "/c") Then ' looks in command string for screen saver parameters
      SetupForm.Show 1
      ElseIf InStr(Command$, "/s") Then
  BlankForm.Show
      End If

   ' Wait until there are no form visible, then quit.
    While DoEvents() > 0 ' Loop until no forms visible
    Wend
  End Sub

   This is all you really need but this won't look very good.
On the setup form you can put all your parameters and save them to an
INI or the system registry.  You can add routines to the blank form so that
the screen saver actually does something; like animations, flashing colours,
dots and lines etc. etc.   But there are some more important things, the Mouse
Pointer still shows. So, we'll use an API to get rid of it. Put this in the
declarations section of the module:


Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long
                                     
Then add these subs:

 Sub HideMouse()
    While ShowCursor(False) >= 0
    Wend
   End Sub

 Sub ShowMouse()
       While ShowCursor(True) < 0
       Wend
    End Sub

 Call the HideMouse() from the Blankform's Load event
  and the ShowMouse() from the UnLoad.
 
 
0
 

Author Comment

by:rob2000
Comment Utility
Thank you very much Dalin!
0
 
LVL 9

Expert Comment

by:Dalin
Comment Utility
rob2000,
If my answer worked for you, you should reject sirigere's answer and reopen the question so that I can relock in.
Thank you for your attention.
Regards
Dalin
0
 
LVL 9

Accepted Solution

by:
Dalin earned 50 total points
Comment Utility
Thank you, rob2000.
Good luck in your project.
Regards
Dalin
0

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
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…

772 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now