home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Betrachterstandpunkte.frm < prev    next >
Text File  |  1999-04-07  |  2KB  |  60 lines
  1. VERSION 5.00
  2. Begin VB.Form Betrachterstandpunkte 
  3.    Caption         =   "Demo: Betrachterstandpunkte"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.ComboBox Standpunkte 
  13.       Height          =   315
  14.       Left            =   240
  15.       Style           =   2  'Dropdown List
  16.       TabIndex        =   0
  17.       Top             =   600
  18.       Width           =   3735
  19.    End
  20.    Begin VB.Label Label1 
  21.       Caption         =   "Betrachterstandpunkte im aktuellen Projekt:"
  22.       Height          =   375
  23.       Left            =   240
  24.       TabIndex        =   1
  25.       Top             =   240
  26.       Width           =   4455
  27.    End
  28. End
  29. Attribute VB_Name = "Betrachterstandpunkte"
  30. Attribute VB_GlobalNameSpace = False
  31. Attribute VB_Creatable = False
  32. Attribute VB_PredeclaredId = True
  33. Attribute VB_Exposed = False
  34. Option Explicit
  35.  
  36. Dim prog As ArCon.ArCon
  37.  
  38. Private Sub Form_Load()
  39.     Set prog = New ArCon.ArCon
  40.     prog.StartMe hWnd, ""
  41.     If prog.Mode = AC_NoMode Then Exit Sub
  42.     
  43.     Dim c As Long, i As Long, ndx As Long
  44.     Dim name As String, VRPx As Single, VRPy As Single, VRPz As Single
  45.     Dim EyeX As Single, EyeY As Single, EyeZ As Single, tanViewA2 As Single
  46.     c = prog.PredefinedViewing3DCount - 1
  47.     For i = 0 To c
  48.         prog.GetPredefinedViewing3D i, name, VRPx, VRPy, VRPz, EyeX, EyeY, EyeZ, tanViewA2
  49.         Standpunkte.AddItem name
  50.         Standpunkte.ItemData(Standpunkte.NewIndex) = i
  51.     Next
  52. End Sub
  53.  
  54. Private Sub Standpunkte_Click()
  55.     Dim ndx As Long
  56.     ndx = Standpunkte.ItemData(Standpunkte.ListIndex)
  57.     prog.ActiveView.SelectPredefinedViewing3D ndx
  58. End Sub
  59.  
  60.