home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Vorschau.frm < prev    next >
Text File  |  1999-01-27  |  5KB  |  153 lines
  1. VERSION 5.00
  2. Begin VB.Form Vorschau 
  3.    Caption         =   "Vorschau"
  4.    ClientHeight    =   4950
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   9840
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4950
  10.    ScaleWidth      =   9840
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.PictureBox DesignBild 
  13.       AutoSize        =   -1  'True
  14.       Height          =   2895
  15.       Left            =   3240
  16.       ScaleHeight     =   2835
  17.       ScaleWidth      =   2715
  18.       TabIndex        =   5
  19.       Top             =   120
  20.       Width           =   2775
  21.    End
  22.    Begin VB.PictureBox Bild 
  23.       AutoSize        =   -1  'True
  24.       Height          =   2895
  25.       Left            =   120
  26.       ScaleHeight     =   2835
  27.       ScaleWidth      =   2715
  28.       TabIndex        =   4
  29.       Top             =   120
  30.       Width           =   2775
  31.    End
  32.    Begin VB.CommandButton Quit 
  33.       Caption         =   "&Beenden"
  34.       Default         =   -1  'True
  35.       Height          =   615
  36.       Left            =   7800
  37.       TabIndex        =   3
  38.       Top             =   2400
  39.       Width           =   1935
  40.    End
  41.    Begin VB.CommandButton Preview 
  42.       Caption         =   "&Projektvorschau..."
  43.       Height          =   615
  44.       Left            =   7800
  45.       TabIndex        =   2
  46.       Top             =   1560
  47.       Width           =   1935
  48.    End
  49.    Begin VB.CommandButton TextureLoad 
  50.       Caption         =   "&Textur laden..."
  51.       Height          =   615
  52.       Left            =   7800
  53.       TabIndex        =   1
  54.       Top             =   840
  55.       Width           =   1935
  56.    End
  57.    Begin VB.CommandButton ObjectLoad 
  58.       Caption         =   "&Objekt laden..."
  59.       Height          =   615
  60.       Left            =   7800
  61.       TabIndex        =   0
  62.       Top             =   120
  63.       Width           =   1935
  64.    End
  65.    Begin VB.Label Beschreibung 
  66.       Caption         =   "Die Projektbeschreibung"
  67.       Height          =   1455
  68.       Left            =   120
  69.       TabIndex        =   6
  70.       Top             =   3240
  71.       Width           =   5895
  72.    End
  73. End
  74. Attribute VB_Name = "Vorschau"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = False
  77. Attribute VB_PredeclaredId = True
  78. Attribute VB_Exposed = False
  79. ' ----------------------------------------------------------------------------
  80. ' MS Visual Basic Demo-Programm zur Demonstration der ActiveX-FΣhigkeit
  81. ' von ArCon(+).
  82. '
  83. ' Der abgebildete Code dient lediglich Demonstrationszwecken.
  84. ' Es wird keinerlei Garantie fⁿr die Richtigkeit und/oder
  85. ' FunktionsfΣhigkeit ⁿbernommen. Bei Fragen wenden Sie sich bitte an
  86. '
  87. '    mb-Programme
  88. '    Software im Bauwesen GmbH
  89. '    Hermannstra▀e 1
  90. '    D-31785 Hameln
  91. '    e-mail:  arcon@mb-software.de
  92. '    Internet http://www.mb-software.de
  93. '
  94. ' ----------------------------------------------------------------------------
  95. '    A C H T U N G :
  96. '    ===============
  97. '
  98. '      Dieses Demo nicht in jeder ArCon Version, da die Projektvorschau-
  99. '      FunktionalitΣt in der Version 4.0.x noch nicht enthalten ist.
  100. ' ----------------------------------------------------------------------------
  101.  
  102. Option Explicit
  103.  
  104. Private Declare Function PictureFromArConPicture Lib "MakroUtil" (ByRef picture As Variant) As StdPicture
  105.  
  106. Dim exe As New ArCon.ArCon
  107.  
  108. Private Sub Form_Load()
  109.     exe.StartMe hWnd, ""
  110. End Sub
  111.  
  112. Private Sub ObjectLoad_Click()
  113.     Dim file As String, dir As String
  114.     file = "Pfeil.aco"
  115.     dir = "G:\Transfer"
  116.     If exe.LoadObjectDialog(hWnd, "Ein Makro Objekt laden", True, True, file, dir) Then
  117.         MsgBox "Geladen wurde " & file & " in " & dir
  118.     Else
  119.         MsgBox "Nichts geladen"
  120.     End If
  121. End Sub
  122.  
  123. Private Sub Preview_Click()
  124.     Dim Preview As ArCon.ProjectPreview
  125.     Dim file As String, dir As String
  126.     exe.LoadProjectDialog hWnd, "Projekt fⁿr Makro-Vorschau auswΣhlen", file, dir
  127.     Set Preview = exe.NewProjectPreview(file)
  128.     If Preview Is Nothing Then
  129.         Bild.picture = Nothing
  130.         DesignBild.picture = Nothing
  131.         Beschreibung.Caption = "Das Projekt enthΣlt noch keine Beschreibung oder Ihre ArCon Version kann noch keine Projekt-Vorschau anzeigen."
  132.     Else
  133.         Bild.picture = PictureFromArConPicture(Preview.ConstructionPreview)
  134.         DesignBild.picture = PictureFromArConPicture(Preview.DesignPreview)
  135.         Beschreibung.Caption = Preview.Description
  136.     End If
  137. End Sub
  138.  
  139. Private Sub Quit_Click()
  140.     Unload Me
  141. End Sub
  142.  
  143. Private Sub TextureLoad_Click()
  144.     Dim file As String, dir As String
  145.     file = "Pfeil.bmp"
  146.     dir = "G:\Transfer"
  147.     If exe.LoadTextureDialog(hWnd, "Eine Makro Textur laden", file, dir) Then
  148.         MsgBox "Geladen wurde " & file & " in " & dir
  149.     Else
  150.         MsgBox "Nichts geladen"
  151.     End If
  152. End Sub
  153.