3D Tubes in Visual Basic 6

Environment: Visual Basic 6.0

My purpose for writing this program is to present a visual demo or screen saver-type program. This program, however, is not a a screen saver. It will not be acknowledged by your computer as a screen saver when it is runn, but could be used as the basis for one.

This program presents colors that are shaded with my own sub procedure, which I came up with a while back. I use randoms for the sake of true variety in movement.The following are a few of the random figures generateed in this program.



Click here for larger image



Click here for larger image



Click here for larger image

This is a later version of my original Tube program which had one tube moving around. I have provided comments within the program that I believe are sufficient to explain how it functions. The sub procedures that do not have comment lines should be self-explanatory.

I have not found any bugs or had any problems with this finished version. It has run correctly on my computer using Windows ME Windows. Please feel free to use this program at your own risk. I hope you enjoy watching this.

Editors note: Works on Windows XP as well.

Chris Diemer
Gyrolinc@cs.com

Downloads

Download source code - 5Kb


Comments

  • Thank You!

    Posted by Phuc on 04/13/2012 06:09am

    Great your code. I have been viewed your code example about 3D in vb6. But i don't known do it. Can you help me example how to call *3ds file in to vb6? more times thank you very much!

    Reply
  • Thanks for the posting this material

    Posted by hbmarar on 08/16/2004 02:07am

    I need example codes to learn,and got the one i was looking. let mee try and hope it would be nice stuff.

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Hundreds of millions of users have adopted public cloud storage solutions to satisfy their Private Online File Sharing and Collaboration (OFS) needs. With new headlines on cloud privacy issues appearing almost daily, the need to explore private alternatives has never been stronger. Join ESG Senior Analyst Terri McClure and Connected Data in this on-demand webinar to take a look at the business drivers behind OFS adoption, how organizations can benefit from on-premise deployments, and emerging private OFS …

  • Live Event Date: December 11, 2014 @ 1:00 p.m. ET / 10:00 a.m. PT Market pressures to move more quickly and develop innovative applications are forcing organizations to rethink how they develop and release applications. The combination of public clouds and physical back-end infrastructures are a means to get applications out faster. However, these hybrid solutions complicate DevOps adoption, with application delivery pipelines that span across complex hybrid cloud and non-cloud environments. Check out this …

Most Popular Programming Stories

More for Developers

RSS Feeds