3D wire frame box

[rino_2]

Hi,
I’m sure you have all seen the 3D wire frame boxes that can be rotated with the arrow keys? Does anybody know how to program it? If so I would love to see some code. Thanks

here is some code I wrote, add 4 lines, 2 shapes(rectangles), and 2 timers, and set the form's keypreview property to true

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyLeft Then
        Timer1.Enabled = True
        Timer2.Enabled = False
    ElseIf KeyCode = vbKeyRight Then
        Timer2.Enabled = True
        Timer1.Enabled = fale
    End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Timer1.Enabled = False
    Timer2.Enabled = fale
End Sub

Private Sub Form_Load()
    Shape1.Left = 1770
    Shape1.Top = 1350
    Shape2.Left = 2385
    Shape2.Top = 1695
    Line1.X1 = 2385
    Line2.X1 = 3600
    Line3.X1 = 2385
    Line4.X1 = 3600

    Line1.X2 = 1755
    Line2.X2 = 3000
    Line3.X2 = 1755
    Line4.X2 = 3000

    Line1.Y1 = 1695
    Line2.Y1 = 1695
    Line3.Y1 = 2610
    Line4.Y1 = 2610

    Line1.Y2 = 1350
    Line2.Y2 = 1350
    Line3.Y2 = 2265
    Line4.Y2 = 2265
End Sub

Private Sub Timer1_Timer()
    Shape1.Left = Shape1.Left + 10
    Shape2.Left = Shape2.Left - 10
    Line2.X2 = Line2.X2 + 10
    Line2.X1 = Line2.X1 - 10

    Line1.X2 = Line1.X2 + 10
    Line1.X1 = Line1.X1 - 10

    Line3.X2 = Line3.X2 + 10
    Line3.X1 = Line3.X1 - 10

    Line4.X2 = Line4.X2 + 10
    Line4.X1 = Line4.X1 - 10
End Sub

Private Sub Timer2_Timer()
    Shape1.Left = Shape1.Left - 10
    Shape2.Left = Shape2.Left + 10
    Line2.X2 = Line2.X2 - 10
    Line2.X1 = Line2.X1 + 10

    Line1.X2 = Line1.X2 - 10
    Line1.X1 = Line1.X1 + 10

    Line3.X2 = Line3.X2 - 10
    Line3.X1 = Line3.X1 + 10

    Line4.X2 = Line4.X2 - 10
    Line4.X1 = Line4.X1 + 10
End Sub

oh yeah, set the timers interval to 100
if you want it to be smoother than set it to 1

[parksie]

Take a look at the ROTATE3D program at http://matthart.com

If you want, I can knock up an OpenGL version of this. (Simpler to understand).

[rino_2]

Thanks for the help Guys! Parksie, an OpenGL Version would be nice.

[parksie]

Coming shortly...

[rino_2]

Thanks Parksie, can't wait!

[parksie]

Okay...first, go to http://www.parksie.uklinux.net/simplegl/SimpleGL.html

This will give a short explanation, and a link to the type library. Then download http://www.parksie.uklinux.net/cube.zip for the project file.