home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Hausauswahl.frm < prev    next >
Text File  |  1998-03-11  |  9KB  |  269 lines
  1. VERSION 5.00
  2. Begin VB.Form Hausauswahl 
  3.    BackColor       =   &H00C0FFFF&
  4.    Caption         =   "Fertighauskatalog - Auswahl des Grundtyps"
  5.    ClientHeight    =   8820
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1470
  8.    ClientWidth     =   10335
  9.    Icon            =   "Hausauswahl.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'ZReihenfolge
  12.    ScaleHeight     =   8820
  13.    ScaleWidth      =   10335
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.Label RightArrowLabel 
  16.       Alignment       =   1  'Rechts
  17.       BackStyle       =   0  'Transparent
  18.       Caption         =   "WΣhlen Sie das gewⁿnschte Haus durch Anklicken mit der Maus..."
  19.       BeginProperty Font 
  20.          Name            =   "Arial"
  21.          Size            =   9.75
  22.          Charset         =   0
  23.          Weight          =   400
  24.          Underline       =   0   'False
  25.          Italic          =   0   'False
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   255
  29.       Left            =   4200
  30.       TabIndex        =   5
  31.       Top             =   8400
  32.       Width           =   6015
  33.    End
  34.    Begin VB.Line SepLine 
  35.       X1              =   0
  36.       X2              =   10320
  37.       Y1              =   8280
  38.       Y2              =   8280
  39.    End
  40.    Begin VB.Image Arrow 
  41.       Height          =   480
  42.       Left            =   20
  43.       Picture         =   "Hausauswahl.frx":0442
  44.       Top             =   8280
  45.       Width           =   480
  46.    End
  47.    Begin VB.Label ArrowLabel 
  48.       BackStyle       =   0  'Transparent
  49.       Caption         =   "Zurⁿck zum Titelbild"
  50.       BeginProperty Font 
  51.          Name            =   "Arial"
  52.          Size            =   9.75
  53.          Charset         =   0
  54.          Weight          =   700
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   255
  60.       Left            =   550
  61.       TabIndex        =   4
  62.       Top             =   8400
  63.       Width           =   2055
  64.    End
  65.    Begin VB.Label Label4 
  66.       Alignment       =   2  'Zentriert
  67.       BackStyle       =   0  'Transparent
  68.       Caption         =   "Sonderserie ""Exclusiv"""
  69.       BeginProperty Font 
  70.          Name            =   "Arial"
  71.          Size            =   9.75
  72.          Charset         =   0
  73.          Weight          =   700
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   255
  79.       Left            =   5400
  80.       TabIndex        =   3
  81.       Top             =   7920
  82.       Width           =   4815
  83.    End
  84.    Begin VB.Label Label3 
  85.       Alignment       =   2  'Zentriert
  86.       BackStyle       =   0  'Transparent
  87.       Caption         =   "Doppelhaus"
  88.       BeginProperty Font 
  89.          Name            =   "Arial"
  90.          Size            =   9.75
  91.          Charset         =   0
  92.          Weight          =   700
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       Height          =   255
  98.       Left            =   120
  99.       TabIndex        =   2
  100.       Top             =   7920
  101.       Width           =   4815
  102.    End
  103.    Begin VB.Label Label2 
  104.       Alignment       =   2  'Zentriert
  105.       BackStyle       =   0  'Transparent
  106.       Caption         =   "Standard - Zweifamilienhaus, zwei Stockwerke"
  107.       BeginProperty Font 
  108.          Name            =   "Arial"
  109.          Size            =   9.75
  110.          Charset         =   0
  111.          Weight          =   700
  112.          Underline       =   0   'False
  113.          Italic          =   0   'False
  114.          Strikethrough   =   0   'False
  115.       EndProperty
  116.       Height          =   255
  117.       Left            =   5400
  118.       TabIndex        =   1
  119.       Top             =   3720
  120.       Width           =   4815
  121.    End
  122.    Begin VB.Label Label1 
  123.       Alignment       =   2  'Zentriert
  124.       BackStyle       =   0  'Transparent
  125.       Caption         =   "Standard - Einfamilienhaus in variabler Gr÷▀e"
  126.       BeginProperty Font 
  127.          Name            =   "Arial"
  128.          Size            =   9.75
  129.          Charset         =   0
  130.          Weight          =   700
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       Height          =   255
  136.       Left            =   120
  137.       TabIndex        =   0
  138.       Top             =   3720
  139.       Width           =   4815
  140.    End
  141.    Begin VB.Image ExclusivhausBild 
  142.       BorderStyle     =   1  'Fest Einfach
  143.       Height          =   3660
  144.       Left            =   5400
  145.       Picture         =   "Hausauswahl.frx":0884
  146.       Top             =   4200
  147.       Width           =   4860
  148.    End
  149.    Begin VB.Image Zweifamilienhaus 
  150.       BorderStyle     =   1  'Fest Einfach
  151.       Height          =   3660
  152.       Left            =   5400
  153.       Picture         =   "Hausauswahl.frx":9F06
  154.       Top             =   0
  155.       Width           =   4860
  156.    End
  157.    Begin VB.Image DoppelhausBild 
  158.       BorderStyle     =   1  'Fest Einfach
  159.       Height          =   3660
  160.       Left            =   120
  161.       Picture         =   "Hausauswahl.frx":13588
  162.       Top             =   4200
  163.       Width           =   4860
  164.    End
  165.    Begin VB.Image Einfamilienhaus 
  166.       BorderStyle     =   1  'Fest Einfach
  167.       Height          =   3660
  168.       Left            =   120
  169.       Picture         =   "Hausauswahl.frx":1CC0A
  170.       Top             =   0
  171.       Width           =   4860
  172.    End
  173. End
  174. Attribute VB_Name = "Hausauswahl"
  175. Attribute VB_GlobalNameSpace = False
  176. Attribute VB_Creatable = False
  177. Attribute VB_PredeclaredId = True
  178. Attribute VB_Exposed = False
  179. Option Explicit
  180.  
  181. Private Sub DoppelhausBild_Click()
  182.     ' Dieses modale Formular wird versteckt, dafⁿr erscheint
  183.     ' das nΣchste (mit Informationen zum Einfachhaus) an der
  184.     ' gleichen Position
  185.     Visible = False
  186.     Doppelhaus.Top = Top
  187.     Doppelhaus.Left = Left
  188.     Doppelhaus.Width = Width
  189.     Doppelhaus.Height = Height
  190.     ' Jetzt fⁿhre das neue Formular aus
  191.     Doppelhaus.Show
  192.     Unload Me
  193. End Sub
  194.  
  195. Private Sub Einfamilienhaus_Click()
  196.     ' Dieses modale Formular wird versteckt, dafⁿr erscheint
  197.     ' das nΣchste (mit Informationen zum Einfachhaus) an der
  198.     ' gleichen Position
  199.     Visible = False
  200.     Einfachhaus.WindowState = 0
  201.     Einfachhaus.Top = Hausauswahl.Top
  202.     Einfachhaus.Left = Hausauswahl.Left
  203.     Einfachhaus.Width = Hausauswahl.Width
  204.     Einfachhaus.Height = Hausauswahl.Height
  205.     ' Jetzt fⁿhre das neue Formular aus
  206.     Einfachhaus.Show
  207.     Unload Me
  208. End Sub
  209.  
  210. Private Sub ExclusivhausBild_Click()
  211.     ' Dieses modale Formular wird versteckt, dafⁿr erscheint
  212.     ' das nΣchste (mit Informationen zum Einfachhaus) an der
  213.     ' gleichen Position
  214.     Visible = False
  215.     Exclusivhaus.WindowState = 0
  216.     Exclusivhaus.Top = Top
  217.     Exclusivhaus.Left = Left
  218.     Exclusivhaus.Width = Width
  219.     Exclusivhaus.Height = Height
  220.     ' Jetzt fⁿhre das neue Formular aus
  221.     Exclusivhaus.Show
  222.     Unload Me
  223. End Sub
  224.  
  225. Private Sub Form_Resize()
  226.     ' Die Gr÷▀e des Formulars wurde geΣndert, wir mⁿssen
  227.     ' die untere Leiste anpassen
  228.     SepLine.x1 = 0
  229.     SepLine.x2 = Width
  230.     SepLine.y1 = Height - 940
  231.     SepLine.y2 = SepLine.y1
  232.     ArrowLabel.Top = SepLine.y1 + 130
  233.     ArrowLabel.Left = 550
  234.     Arrow.Top = SepLine.y1 + 30
  235.     Arrow.Left = 20
  236.     RightArrowLabel.Top = SepLine.y1 + 130
  237.     RightArrowLabel.Left = Width - RightArrowLabel.Width - 200
  238. End Sub
  239.  
  240. Private Sub Form_Unload(Cancel As Integer)
  241.     ' Falls der Benutzer das modale Formular verschoben oder in der
  242.     ' Gr÷▀e verΣndert hat, ⁿbernehmen wir diese ─nderungen jetzt.
  243.     Main.WindowState = 0
  244.     Main.Top = Top
  245.     Main.Left = Left
  246.     Main.Width = Width
  247.     Main.Height = Height
  248. End Sub
  249.  
  250. Private Sub Arrow_Click()
  251.     Main.Visible = True
  252.     Unload Me
  253. End Sub
  254.  
  255. Private Sub Zweifamilienhaus_Click()
  256.     ' Dieses modale Formular wird versteckt, dafⁿr erscheint
  257.     ' das nΣchste (mit Informationen zum Zweifachhaus) an der
  258.     ' gleichen Position
  259.     Visible = False
  260.     Zweifachhaus.WindowState = 0
  261.     Zweifachhaus.Top = Hausauswahl.Top
  262.     Zweifachhaus.Left = Hausauswahl.Left
  263.     Zweifachhaus.Width = Hausauswahl.Width
  264.     Zweifachhaus.Height = Hausauswahl.Height
  265.     ' Jetzt fⁿhre das neue Formular aus
  266.     Zweifachhaus.Show
  267.     Unload Me
  268. End Sub
  269.