home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Exclusivhaus.Frm < prev    next >
Text File  |  1998-03-11  |  8KB  |  251 lines
  1. VERSION 5.00
  2. Begin VB.Form Exclusivhaus 
  3.    BackColor       =   &H00C0FFFF&
  4.    Caption         =   "Fertighauskatalog - Informationen zur ""Exclusiv"" Serie"
  5.    ClientHeight    =   8820
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1470
  8.    ClientWidth     =   10335
  9.    Icon            =   "Exclusivhaus.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         =   "Exclusivhaus.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         =   $"Exclusivhaus.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        =   8
  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. 500 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        =   7
  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         =   "620.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        =   6
  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        =   5
  96.       Top             =   3960
  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        =   4
  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        =   3
  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        =   2
  150.       Top             =   5400
  151.       Width           =   2415
  152.    End
  153.    Begin VB.Label Label1 
  154.       BackStyle       =   0  'Transparent
  155.       Caption         =   $"Exclusivhaus.frx":9C00
  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          =   735
  166.       Left            =   240
  167.       TabIndex        =   1
  168.       Top             =   4320
  169.       Width           =   9975
  170.    End
  171.    Begin VB.Image Haus 
  172.       BorderStyle     =   1  'Fest Einfach
  173.       Height          =   3060
  174.       Left            =   5160
  175.       Picture         =   "Exclusivhaus.frx":9D35
  176.       Top             =   120
  177.       Width           =   4560
  178.    End
  179.    Begin VB.Line SepLine 
  180.       X1              =   0
  181.       X2              =   10320
  182.       Y1              =   8280
  183.       Y2              =   8280
  184.    End
  185.    Begin VB.Image Arrow 
  186.       Height          =   480
  187.       Left            =   20
  188.       Picture         =   "Exclusivhaus.frx":35C97
  189.       Top             =   8280
  190.       Width           =   480
  191.    End
  192.    Begin VB.Label ArrowLabel 
  193.       BackStyle       =   0  'Transparent
  194.       Caption         =   "Zurⁿck zur Hausauswahl"
  195.       BeginProperty Font 
  196.          Name            =   "Arial"
  197.          Size            =   9.75
  198.          Charset         =   0
  199.          Weight          =   700
  200.          Underline       =   0   'False
  201.          Italic          =   0   'False
  202.          Strikethrough   =   0   'False
  203.       EndProperty
  204.       Height          =   255
  205.       Left            =   555
  206.       TabIndex        =   0
  207.       Top             =   8400
  208.       Width           =   2460
  209.    End
  210. End
  211. Attribute VB_Name = "Exclusivhaus"
  212. Attribute VB_GlobalNameSpace = False
  213. Attribute VB_Creatable = False
  214. Attribute VB_PredeclaredId = True
  215. Attribute VB_Exposed = False
  216.  
  217. Private Sub Arrow_Click()
  218.     Unload Me
  219. End Sub
  220.  
  221. Private Sub Form_Resize()
  222.     ' Die Gr÷▀e des Formulars wurde geΣndert, wir mⁿssen
  223.     ' die untere Leiste anpassen
  224.     SepLine.x1 = 0
  225.     SepLine.x2 = Width
  226.     SepLine.y1 = Height - 940
  227.     SepLine.y2 = SepLine.y1
  228.     ArrowLabel.Top = SepLine.y1 + 130
  229.     ArrowLabel.Left = 550
  230.     Arrow.Top = SepLine.y1 + 30
  231.     Arrow.Left = 20
  232.     ' RightArrowLabel.Top = SepLine.y1 + 130
  233.     ' RightArrowLabel.Left = Width - RightArrowLabel.Width - 750
  234.     ' RightArrow.Top = SepLine.y1 + 30
  235.     ' RightArrow.Left = Width - 645
  236. End Sub
  237.  
  238.  
  239. Private Sub Form_Unload(Cancel As Integer)
  240.     ' Falls der Benutzer das modale Formular verschoben oder in der
  241.     ' Gr÷▀e verΣndert hat, ⁿbernehmen wir diese ─nderungen jetzt.
  242.     Hausauswahl.WindowState = 0
  243.     Hausauswahl.Top = Top
  244.     Hausauswahl.Left = Left
  245.     Hausauswahl.Width = Width
  246.     Hausauswahl.Height = Height
  247.     Hausauswahl.Show
  248. End Sub
  249.  
  250.  
  251.