home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Zweifachhaus.Frm < prev    next >
Text File  |  1998-03-11  |  9KB  |  287 lines
  1. VERSION 5.00
  2. Begin VB.Form Zweifachhaus 
  3.    BackColor       =   &H00C0FFFF&
  4.    Caption         =   "Fertighauskatalog - Informationen zum Zweifamilienhaus"
  5.    ClientHeight    =   8820
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1470
  8.    ClientWidth     =   10335
  9.    Icon            =   "Zweifachhaus.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'ZReihenfolge
  12.    ScaleHeight     =   8820
  13.    ScaleWidth      =   10335
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.Image Grundriss 
  16.       Height          =   3600
  17.       Left            =   240
  18.       Picture         =   "Zweifachhaus.frx":0442
  19.       Top             =   120
  20.       Width           =   4800
  21.    End
  22.    Begin VB.Label Label8 
  23.       BackStyle       =   0  'Transparent
  24.       BorderStyle     =   1  'Fest Einfach
  25.       Caption         =   $"Zweifachhaus.frx":9AC4
  26.       BeginProperty Font 
  27.          Name            =   "Arial"
  28.          Size            =   9.75
  29.          Charset         =   0
  30.          Weight          =   400
  31.          Underline       =   0   'False
  32.          Italic          =   0   'False
  33.          Strikethrough   =   0   'False
  34.       EndProperty
  35.       Height          =   1455
  36.       Left            =   240
  37.       TabIndex        =   9
  38.       Top             =   6600
  39.       Width           =   9975
  40.    End
  41.    Begin VB.Label Label7 
  42.       Alignment       =   2  'Zentriert
  43.       BackColor       =   &H00FFFFC0&
  44.       BorderStyle     =   1  'Fest Einfach
  45.       Caption         =   "min. 250 m▓"
  46.       BeginProperty Font 
  47.          Name            =   "Arial"
  48.          Size            =   12
  49.          Charset         =   0
  50.          Weight          =   400
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       Height          =   375
  56.       Left            =   2760
  57.       TabIndex        =   8
  58.       Top             =   5640
  59.       Width           =   1695
  60.    End
  61.    Begin VB.Label Label6 
  62.       Alignment       =   2  'Zentriert
  63.       BackColor       =   &H0080FF80&
  64.       BorderStyle     =   1  'Fest Einfach
  65.       Caption         =   "450.000,00 DM"
  66.       BeginProperty Font 
  67.          Name            =   "Arial"
  68.          Size            =   14.25
  69.          Charset         =   0
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   495
  76.       Left            =   6480
  77.       TabIndex        =   7
  78.       Top             =   5520
  79.       Width           =   2535
  80.    End
  81.    Begin VB.Label Label5 
  82.       BackStyle       =   0  'Transparent
  83.       Caption         =   "Beschreibung:"
  84.       BeginProperty Font 
  85.          Name            =   "Arial"
  86.          Size            =   12
  87.          Charset         =   0
  88.          Weight          =   700
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       Height          =   375
  94.       Left            =   240
  95.       TabIndex        =   6
  96.       Top             =   3840
  97.       Width           =   1815
  98.    End
  99.    Begin VB.Label Label4 
  100.       BackStyle       =   0  'Transparent
  101.       Caption         =   "Besonderheiten:"
  102.       BeginProperty Font 
  103.          Name            =   "Arial"
  104.          Size            =   12
  105.          Charset         =   0
  106.          Weight          =   700
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       Height          =   375
  112.       Left            =   240
  113.       TabIndex        =   5
  114.       Top             =   6240
  115.       Width           =   2295
  116.    End
  117.    Begin VB.Label Label3 
  118.       BackStyle       =   0  'Transparent
  119.       Caption         =   "Preis:"
  120.       BeginProperty Font 
  121.          Name            =   "Arial"
  122.          Size            =   12
  123.          Charset         =   0
  124.          Weight          =   700
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   375
  130.       Left            =   5160
  131.       TabIndex        =   4
  132.       Top             =   5640
  133.       Width           =   1215
  134.    End
  135.    Begin VB.Label Label2 
  136.       BackStyle       =   0  'Transparent
  137.       Caption         =   "Empfohlene Grundstⁿcksgr÷▀e:"
  138.       BeginProperty Font 
  139.          Name            =   "Arial"
  140.          Size            =   12
  141.          Charset         =   0
  142.          Weight          =   700
  143.          Underline       =   0   'False
  144.          Italic          =   0   'False
  145.          Strikethrough   =   0   'False
  146.       EndProperty
  147.       Height          =   735
  148.       Left            =   240
  149.       TabIndex        =   3
  150.       Top             =   5400
  151.       Width           =   2415
  152.    End
  153.    Begin VB.Label Label1 
  154.       BackStyle       =   0  'Transparent
  155.       Caption         =   $"Zweifachhaus.frx":9C1F
  156.       BeginProperty Font 
  157.          Name            =   "Arial"
  158.          Size            =   9.75
  159.          Charset         =   0
  160.          Weight          =   400
  161.          Underline       =   0   'False
  162.          Italic          =   0   'False
  163.          Strikethrough   =   0   'False
  164.       EndProperty
  165.       Height          =   1095
  166.       Left            =   240
  167.       TabIndex        =   2
  168.       Top             =   4200
  169.       Width           =   9975
  170.    End
  171.    Begin VB.Image Haus 
  172.       BorderStyle     =   1  'Fest Einfach
  173.       Height          =   3060
  174.       Left            =   5160
  175.       Picture         =   "Zweifachhaus.frx":9DCC
  176.       Top             =   120
  177.       Width           =   4560
  178.    End
  179.    Begin VB.Image RightArrow 
  180.       Height          =   480
  181.       Left            =   9840
  182.       Picture         =   "Zweifachhaus.frx":35D2E
  183.       Top             =   8280
  184.       Width           =   480
  185.    End
  186.    Begin VB.Label RightArrowLabel 
  187.       Alignment       =   1  'Rechts
  188.       BackStyle       =   0  'Transparent
  189.       Caption         =   "Konstruktionsdetails"
  190.       BeginProperty Font 
  191.          Name            =   "Arial"
  192.          Size            =   9.75
  193.          Charset         =   0
  194.          Weight          =   700
  195.          Underline       =   0   'False
  196.          Italic          =   0   'False
  197.          Strikethrough   =   0   'False
  198.       EndProperty
  199.       Height          =   255
  200.       Left            =   7680
  201.       TabIndex        =   1
  202.       Top             =   8400
  203.       Width           =   2055
  204.    End
  205.    Begin VB.Line SepLine 
  206.       X1              =   0
  207.       X2              =   10320
  208.       Y1              =   8280
  209.       Y2              =   8280
  210.    End
  211.    Begin VB.Image Arrow 
  212.       Height          =   480
  213.       Left            =   20
  214.       Picture         =   "Zweifachhaus.frx":36170
  215.       Top             =   8280
  216.       Width           =   480
  217.    End
  218.    Begin VB.Label ArrowLabel 
  219.       BackStyle       =   0  'Transparent
  220.       Caption         =   "Zurⁿck zur Hausauswahl"
  221.       BeginProperty Font 
  222.          Name            =   "Arial"
  223.          Size            =   9.75
  224.          Charset         =   0
  225.          Weight          =   700
  226.          Underline       =   0   'False
  227.          Italic          =   0   'False
  228.          Strikethrough   =   0   'False
  229.       EndProperty
  230.       Height          =   255
  231.       Left            =   555
  232.       TabIndex        =   0
  233.       Top             =   8400
  234.       Width           =   2460
  235.    End
  236. End
  237. Attribute VB_Name = "Zweifachhaus"
  238. Attribute VB_GlobalNameSpace = False
  239. Attribute VB_Creatable = False
  240. Attribute VB_PredeclaredId = True
  241. Attribute VB_Exposed = False
  242. Private showDetails As Boolean
  243.  
  244. Private Sub Arrow_Click()
  245.     Unload Me
  246. End Sub
  247.  
  248. Private Sub Form_Resize()
  249.     ' Die Gr÷▀e des Formulars wurde geΣndert, wir mⁿssen
  250.     ' die untere Leiste anpassen
  251.     SepLine.x1 = 0
  252.     SepLine.x2 = Width
  253.     SepLine.y1 = Height - 940
  254.     SepLine.y2 = SepLine.y1
  255.     ArrowLabel.Top = SepLine.y1 + 130
  256.     ArrowLabel.Left = 550
  257.     Arrow.Top = SepLine.y1 + 30
  258.     Arrow.Left = 20
  259.     RightArrowLabel.Top = SepLine.y1 + 130
  260.     RightArrowLabel.Left = Width - RightArrowLabel.Width - 750
  261.     RightArrow.Top = SepLine.y1 + 30
  262.     RightArrow.Left = Width - 645
  263. End Sub
  264.  
  265.  
  266. Private Sub Form_Unload(Cancel As Integer)
  267.     ' Falls der Benutzer das modale Formular verschoben oder in der
  268.     ' Gr÷▀e verΣndert hat, ⁿbernehmen wir diese ─nderungen jetzt.
  269.     If Not showDetails Then
  270.         Hausauswahl.WindowState = 0
  271.         Hausauswahl.Top = Top
  272.         Hausauswahl.Left = Left
  273.         Hausauswahl.Width = Width
  274.         Hausauswahl.Height = Height
  275.         Hausauswahl.Show
  276.     End If
  277.     showDetails = False
  278. End Sub
  279.  
  280. Private Sub RightArrow_Click()
  281.     ZweifachhausDetaildialog.Show
  282.     showDetails = True
  283.     Unload Me
  284. End Sub
  285.  
  286.  
  287.