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

  • Today's competitive marketplace requires the organization to frequently release and deploy applications at the pace of user demands, with reduced cost, risk, and increased quality. This book defines the basics of application release and deployment, and provides best practices for implementation with resources for a deeper dive. Inside you will find: The business and technical drivers behind automated application release and deployment. Evaluation guides for application release and deployment solutions. …

  • In its latest email archiving report, Info-Tech Research Group acknowledged CommVault for its "holistic content archiving solution" that offers extensive feature functionality for email archiving. Read the Info-Tech Email Archiving Vendor Landscape and learn why CommVault ranks as a 'Champion.'

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds