Solved

How to create a screen saver in VB?

Posted on 1998-07-17
5
162 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
ID: 1466125
I will send you a sample project of screen saver let me know your e-mail ID
0
 
LVL 9

Expert Comment

by:Dalin
ID: 1466126
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
ID: 1466127
Thank you very much Dalin!
0
 
LVL 9

Expert Comment

by:Dalin
ID: 1466128
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
ID: 1466129
Thank you, rob2000.
Good luck in your project.
Regards
Dalin
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

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

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
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…

809 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