Submitted on: 6/26/1999 By:Andy Rowlett Level: Not Given User Rating:
By 100 Users Compatibility:VB 5.0, VB 6.0
Users have accessed this code 8125 times.
Just a little fun here, this program display a rotating bitmap in the top right hand corner of the screen while you work!! Click below or on my name to download..
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzipto decompress it.
Virus note:All files are scanned once-a-day by Planet Source Code for viruses,but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE: 1)Re-scan downloaded files using your personal virus checker before using it. 2)NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code. 3)Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
GREAT CODE!!!
you always can change
the picture to picture in the same size
and sometimes you can change to picture
in other size
The only problem i have
is that i dont have any idea how to
start understanding the code... :)
Thanks for all the positive comments
about the code, I see some of u are
using bigger pictures. If u get
problems when using the bigger pictures
e.g gaps appearing within the picture
try changes the follow line in the
timer control:
tmpval =
BitBlt(StageDC, Cos(degtorad(angle_x +
i)) * (Picture1.Width / 3.2) +
(Picture1.Width / 3.2),
Sin(degtorad(angle_y + i)) * (5) + 2.5,
1, Picture1.Height, LogoDC, i, 0,
SRCAND) ' put spinning logo onto
stage area
Increase the first 3.2
for bigger picture and decrease it for
smaller picture. This adjust the step
size of the angle per line of the
bitmap! (got that!? :)) e.g.
....
tmpval = BitBlt(StageDC,
Cos(degtorad(angle_x + i)) *
(Picture1.Width / 3.7) +
(Picture1.Width / 3.2),
Sin(degtorad(angle_y + i)) * (5) + 2.5,
1, Picture1.Height, LogoDC, i, 0,
SRCAND) ' put spinning logo onto
stage area
The amount u de/increase
it by depends on the size of the
picture, try changing in decimal point
steps!
Hope this helps,
Andy
Great prog.! It's incredible what one
can do
when they put there mind to
it... I played with it
a little and
changed to a few different bmp's,
but
nothing would show up on a black
desktop bg...
any suggestions?
Beautiful, simply beautiful, but I
noticed that the icon in the taskbar
stays after you close the program using
ctr+alt+del. I was also wondering if I
didn't want the icon in the tray, then
how would I take it out?
Thanks alot,
it is some great code!
Add Your Feedback!
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
