frmmaterials.frm

3ds文件浏览程序

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{34A5E085-7527-11D2-9718-000000000000}#2.1#0"; "glxCtl.ocx"
Begin VB.Form frmMaterials 
   Caption         =   "Materials"
   ClientHeight    =   5565
   ClientLeft      =   2325
   ClientTop       =   2820
   ClientWidth     =   5505
   LinkTopic       =   "Form1"
   ScaleHeight     =   371
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   367
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   5505
      _ExtentX        =   9710
      _ExtentY        =   741
      ButtonWidth     =   609
      ButtonHeight    =   582
      Appearance      =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   1
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "texture"
            Style           =   1
            Value           =   1
         EndProperty
      EndProperty
   End
   Begin glCtl.glxCtl glxCtl1 
      Height          =   3525
      Left            =   180
      TabIndex        =   0
      Top             =   270
      Width           =   3390
      _ExtentX        =   5980
      _ExtentY        =   6218
      BorderStyle     =   1
   End
End
Attribute VB_Name = "frmMaterials"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public GLM As CGLM
Dim Ready As Boolean

Private Sub Form_Load()
    Toolbar1.ImageList = frmMain.ILTree
    Toolbar1.Buttons(1).Image = 28
    Set GLM = New CGLM
    glxCtl1.Init
    With frmMain
        Move .Left + 200, .Top + 200
    End With
    Ready = True
End Sub

Private Sub Form_Resize()
Dim w&, h&
    w = ScaleWidth ' - VS.width
    If w < 1 Then w = 1
    h = ScaleHeight - Toolbar1.height
    If h < 1 Then h = 1
    glxCtl1.Move 0, Toolbar1.height, w, h
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set GLM = Nothing
End Sub

Private Sub glxCtl1_KeyDown(KeyCode As Integer, Shift As Integer)
    GLM.KeyDown KeyCode, Shift
End Sub


Private Sub glxCtl1_Draw()
GLM.Draw
End Sub

Private Sub glxCtl1_InitGL()
GLM.InitGL
End Sub

Private Sub glxCtl1_Init()
GLM.Init
End Sub

Private Sub glxCtl1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
GLM.MouseDown Button, Shift, x, y
End Sub

Private Sub glxCtl1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
GLM.MouseMove Button, Shift, x, y
End Sub

Private Sub glxCtl1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
GLM.MouseUp Button, Shift, x, y
End Sub

Private Sub glxCtl1_Paint()
If Ready Then glxCtl1.Render
End Sub

Private Sub glxCtl1_Pick(items() As Long)
'
End Sub

Private Sub glxCtl1_Resize(width As Long, height As Long, default As Boolean)
default = GLM.Reshape(width, height)
End Sub

Private Sub VS_Change()

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "texture":
        GLM.Textures = (Button.Value = 1)
        glxCtl1.Render
    End Select
End Sub