home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / ZweifachhausDetaildialog.Frm < prev    next >
Text File  |  1998-03-11  |  15KB  |  445 lines
  1. VERSION 5.00
  2. Begin VB.Form ZweifachhausDetaildialog 
  3.    BackColor       =   &H00C0FFFF&
  4.    Caption         =   "Fertighauskatalog - Zweifamilienhaus Konstruktionsdetails"
  5.    ClientHeight    =   8820
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1470
  8.    ClientWidth     =   10335
  9.    Icon            =   "ZweifachhausDetaildialog.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'ZReihenfolge
  12.    ScaleHeight     =   8820
  13.    ScaleWidth      =   10335
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.Frame Frame1 
  16.       BackColor       =   &H00C0FFFF&
  17.       Caption         =   "Garage:"
  18.       BeginProperty Font 
  19.          Name            =   "Arial"
  20.          Size            =   14.25
  21.          Charset         =   0
  22.          Weight          =   700
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   1455
  28.       Left            =   7920
  29.       TabIndex        =   18
  30.       Top             =   360
  31.       Width           =   2295
  32.       Begin VB.OptionButton KeineGarage 
  33.          BackColor       =   &H00C0FFFF&
  34.          Caption         =   "keine"
  35.          BeginProperty Font 
  36.             Name            =   "Arial"
  37.             Size            =   14.25
  38.             Charset         =   0
  39.             Weight          =   700
  40.             Underline       =   0   'False
  41.             Italic          =   0   'False
  42.             Strikethrough   =   0   'False
  43.          EndProperty
  44.          Height          =   330
  45.          Left            =   120
  46.          TabIndex        =   3
  47.          Top             =   360
  48.          Width           =   1575
  49.       End
  50.       Begin VB.OptionButton Einfachgarage 
  51.          BackColor       =   &H00C0FFFF&
  52.          Caption         =   "einfach"
  53.          BeginProperty Font 
  54.             Name            =   "Arial"
  55.             Size            =   14.25
  56.             Charset         =   0
  57.             Weight          =   700
  58.             Underline       =   0   'False
  59.             Italic          =   0   'False
  60.             Strikethrough   =   0   'False
  61.          EndProperty
  62.          Height          =   330
  63.          Left            =   120
  64.          TabIndex        =   4
  65.          Top             =   720
  66.          Value           =   -1  'True
  67.          Width           =   1455
  68.       End
  69.       Begin VB.OptionButton Doppelgarage 
  70.          BackColor       =   &H00C0FFFF&
  71.          Caption         =   "doppelt"
  72.          BeginProperty Font 
  73.             Name            =   "Arial"
  74.             Size            =   14.25
  75.             Charset         =   0
  76.             Weight          =   700
  77.             Underline       =   0   'False
  78.             Italic          =   0   'False
  79.             Strikethrough   =   0   'False
  80.          EndProperty
  81.          Height          =   330
  82.          Left            =   120
  83.          TabIndex        =   5
  84.          Top             =   1080
  85.          Width           =   1455
  86.       End
  87.    End
  88.    Begin VB.Frame Frame3 
  89.       BackColor       =   &H00C0FFFF&
  90.       Caption         =   "Hausgr÷▀e"
  91.       BeginProperty Font 
  92.          Name            =   "Arial"
  93.          Size            =   14.25
  94.          Charset         =   0
  95.          Weight          =   700
  96.          Underline       =   0   'False
  97.          Italic          =   0   'False
  98.          Strikethrough   =   0   'False
  99.       EndProperty
  100.       Height          =   2415
  101.       Left            =   5280
  102.       TabIndex        =   15
  103.       Top             =   360
  104.       Width           =   2535
  105.       Begin VB.TextBox Laenge 
  106.          BeginProperty Font 
  107.             Name            =   "Arial"
  108.             Size            =   14.25
  109.             Charset         =   0
  110.             Weight          =   700
  111.             Underline       =   0   'False
  112.             Italic          =   0   'False
  113.             Strikethrough   =   0   'False
  114.          EndProperty
  115.          Height          =   450
  116.          Left            =   120
  117.          TabIndex        =   1
  118.          Text            =   "15"
  119.          Top             =   720
  120.          Width           =   2055
  121.       End
  122.       Begin VB.TextBox Breite 
  123.          BeginProperty Font 
  124.             Name            =   "Arial"
  125.             Size            =   14.25
  126.             Charset         =   0
  127.             Weight          =   700
  128.             Underline       =   0   'False
  129.             Italic          =   0   'False
  130.             Strikethrough   =   0   'False
  131.          EndProperty
  132.          Height          =   450
  133.          Left            =   120
  134.          TabIndex        =   2
  135.          Text            =   "20"
  136.          Top             =   1800
  137.          Width           =   2055
  138.       End
  139.       Begin VB.Label Label9 
  140.          BackStyle       =   0  'Transparent
  141.          Caption         =   "LΣnge:"
  142.          BeginProperty Font 
  143.             Name            =   "Arial"
  144.             Size            =   14.25
  145.             Charset         =   0
  146.             Weight          =   700
  147.             Underline       =   0   'False
  148.             Italic          =   0   'False
  149.             Strikethrough   =   0   'False
  150.          EndProperty
  151.          Height          =   375
  152.          Left            =   120
  153.          TabIndex        =   17
  154.          Top             =   360
  155.          Width           =   1935
  156.       End
  157.       Begin VB.Label Label10 
  158.          BackStyle       =   0  'Transparent
  159.          Caption         =   "Breite:"
  160.          BeginProperty Font 
  161.             Name            =   "Arial"
  162.             Size            =   14.25
  163.             Charset         =   0
  164.             Weight          =   700
  165.             Underline       =   0   'False
  166.             Italic          =   0   'False
  167.             Strikethrough   =   0   'False
  168.          EndProperty
  169.          Height          =   375
  170.          Left            =   120
  171.          TabIndex        =   16
  172.          Top             =   1440
  173.          Width           =   1935
  174.       End
  175.    End
  176.    Begin VB.Image Grundriss 
  177.       Height          =   3600
  178.       Left            =   240
  179.       Picture         =   "ZweifachhausDetaildialog.frx":0442
  180.       Top             =   120
  181.       Width           =   4800
  182.    End
  183.    Begin VB.Label Label8 
  184.       BackStyle       =   0  'Transparent
  185.       BorderStyle     =   1  'Fest Einfach
  186.       Caption         =   $"ZweifachhausDetaildialog.frx":9AC4
  187.       BeginProperty Font 
  188.          Name            =   "Arial"
  189.          Size            =   9.75
  190.          Charset         =   0
  191.          Weight          =   400
  192.          Underline       =   0   'False
  193.          Italic          =   0   'False
  194.          Strikethrough   =   0   'False
  195.       EndProperty
  196.       Height          =   1455
  197.       Left            =   240
  198.       TabIndex        =   14
  199.       Top             =   6600
  200.       Width           =   9975
  201.    End
  202.    Begin VB.Label Label7 
  203.       Alignment       =   2  'Zentriert
  204.       BackColor       =   &H00FFFFC0&
  205.       BorderStyle     =   1  'Fest Einfach
  206.       Caption         =   "min. 250 m▓"
  207.       BeginProperty Font 
  208.          Name            =   "Arial"
  209.          Size            =   12
  210.          Charset         =   0
  211.          Weight          =   400
  212.          Underline       =   0   'False
  213.          Italic          =   0   'False
  214.          Strikethrough   =   0   'False
  215.       EndProperty
  216.       Height          =   375
  217.       Left            =   2760
  218.       TabIndex        =   13
  219.       Top             =   5640
  220.       Width           =   1695
  221.    End
  222.    Begin VB.Label Label6 
  223.       Alignment       =   2  'Zentriert
  224.       BackColor       =   &H0080FF80&
  225.       BorderStyle     =   1  'Fest Einfach
  226.       Caption         =   "450.000,00 DM"
  227.       BeginProperty Font 
  228.          Name            =   "Arial"
  229.          Size            =   14.25
  230.          Charset         =   0
  231.          Weight          =   400
  232.          Underline       =   0   'False
  233.          Italic          =   0   'False
  234.          Strikethrough   =   0   'False
  235.       EndProperty
  236.       Height          =   495
  237.       Left            =   6480
  238.       TabIndex        =   12
  239.       Top             =   5520
  240.       Width           =   2535
  241.    End
  242.    Begin VB.Label Label5 
  243.       BackStyle       =   0  'Transparent
  244.       Caption         =   "Beschreibung:"
  245.       BeginProperty Font 
  246.          Name            =   "Arial"
  247.          Size            =   12
  248.          Charset         =   0
  249.          Weight          =   700
  250.          Underline       =   0   'False
  251.          Italic          =   0   'False
  252.          Strikethrough   =   0   'False
  253.       EndProperty
  254.       Height          =   375
  255.       Left            =   240
  256.       TabIndex        =   11
  257.       Top             =   3840
  258.       Width           =   1815
  259.    End
  260.    Begin VB.Label Label4 
  261.       BackStyle       =   0  'Transparent
  262.       Caption         =   "Besonderheiten:"
  263.       BeginProperty Font 
  264.          Name            =   "Arial"
  265.          Size            =   12
  266.          Charset         =   0
  267.          Weight          =   700
  268.          Underline       =   0   'False
  269.          Italic          =   0   'False
  270.          Strikethrough   =   0   'False
  271.       EndProperty
  272.       Height          =   375
  273.       Left            =   240
  274.       TabIndex        =   10
  275.       Top             =   6240
  276.       Width           =   2295
  277.    End
  278.    Begin VB.Label Label3 
  279.       BackStyle       =   0  'Transparent
  280.       Caption         =   "Preis:"
  281.       BeginProperty Font 
  282.          Name            =   "Arial"
  283.          Size            =   12
  284.          Charset         =   0
  285.          Weight          =   700
  286.          Underline       =   0   'False
  287.          Italic          =   0   'False
  288.          Strikethrough   =   0   'False
  289.       EndProperty
  290.       Height          =   375
  291.       Left            =   5160
  292.       TabIndex        =   9
  293.       Top             =   5640
  294.       Width           =   1215
  295.    End
  296.    Begin VB.Label Label2 
  297.       BackStyle       =   0  'Transparent
  298.       Caption         =   "Empfohlene Grundstⁿcksgr÷▀e:"
  299.       BeginProperty Font 
  300.          Name            =   "Arial"
  301.          Size            =   12
  302.          Charset         =   0
  303.          Weight          =   700
  304.          Underline       =   0   'False
  305.          Italic          =   0   'False
  306.          Strikethrough   =   0   'False
  307.       EndProperty
  308.       Height          =   735
  309.       Left            =   240
  310.       TabIndex        =   8
  311.       Top             =   5400
  312.       Width           =   2415
  313.    End
  314.    Begin VB.Label Label1 
  315.       BackStyle       =   0  'Transparent
  316.       Caption         =   $"ZweifachhausDetaildialog.frx":9C1F
  317.       BeginProperty Font 
  318.          Name            =   "Arial"
  319.          Size            =   9.75
  320.          Charset         =   0
  321.          Weight          =   400
  322.          Underline       =   0   'False
  323.          Italic          =   0   'False
  324.          Strikethrough   =   0   'False
  325.       EndProperty
  326.       Height          =   1215
  327.       Left            =   240
  328.       TabIndex        =   7
  329.       Top             =   4080
  330.       Width           =   9975
  331.    End
  332.    Begin VB.Image RightArrow 
  333.       Height          =   480
  334.       Left            =   9840
  335.       Picture         =   "ZweifachhausDetaildialog.frx":9DD1
  336.       Top             =   8280
  337.       Width           =   480
  338.    End
  339.    Begin VB.Label RightArrowLabel 
  340.       Alignment       =   1  'Rechts
  341.       BackStyle       =   0  'Transparent
  342.       Caption         =   "Konstruktion ausfⁿhren"
  343.       BeginProperty Font 
  344.          Name            =   "Arial"
  345.          Size            =   9.75
  346.          Charset         =   0
  347.          Weight          =   700
  348.          Underline       =   0   'False
  349.          Italic          =   0   'False
  350.          Strikethrough   =   0   'False
  351.       EndProperty
  352.       Height          =   255
  353.       Left            =   7320
  354.       TabIndex        =   6
  355.       Top             =   8400
  356.       Width           =   2415
  357.    End
  358.    Begin VB.Line SepLine 
  359.       X1              =   0
  360.       X2              =   10320
  361.       Y1              =   8280
  362.       Y2              =   8280
  363.    End
  364.    Begin VB.Image Arrow 
  365.       Height          =   480
  366.       Left            =   20
  367.       Picture         =   "ZweifachhausDetaildialog.frx":A213
  368.       Top             =   8280
  369.       Width           =   480
  370.    End
  371.    Begin VB.Label ArrowLabel 
  372.       BackStyle       =   0  'Transparent
  373.       Caption         =   "Zurⁿck zur Informationsseite"
  374.       BeginProperty Font 
  375.          Name            =   "Arial"
  376.          Size            =   9.75
  377.          Charset         =   0
  378.          Weight          =   700
  379.          Underline       =   0   'False
  380.          Italic          =   0   'False
  381.          Strikethrough   =   0   'False
  382.       EndProperty
  383.       Height          =   255
  384.       Left            =   555
  385.       TabIndex        =   0
  386.       Top             =   8400
  387.       Width           =   2820
  388.    End
  389. End
  390. Attribute VB_Name = "ZweifachhausDetaildialog"
  391. Attribute VB_GlobalNameSpace = False
  392. Attribute VB_Creatable = False
  393. Attribute VB_PredeclaredId = True
  394. Attribute VB_Exposed = False
  395.  
  396. Private Sub Arrow_Click()
  397.     Unload Me
  398. End Sub
  399.  
  400. Private Sub Form_Resize()
  401.     ' Die Gr÷▀e des Formulars wurde geΣndert, wir mⁿssen
  402.     ' die untere Leiste anpassen
  403.     SepLine.x1 = 0
  404.     SepLine.x2 = Width
  405.     SepLine.y1 = Height - 940
  406.     SepLine.y2 = SepLine.y1
  407.     ArrowLabel.Top = SepLine.y1 + 130
  408.     ArrowLabel.Left = 550
  409.     Arrow.Top = SepLine.y1 + 30
  410.     Arrow.Left = 20
  411.     RightArrowLabel.Top = SepLine.y1 + 130
  412.     RightArrowLabel.Left = Width - RightArrowLabel.Width - 750
  413.     RightArrow.Top = SepLine.y1 + 30
  414.     RightArrow.Left = Width - 645
  415. End Sub
  416.  
  417.  
  418. Private Sub Form_Unload(Cancel As Integer)
  419.     ' Falls der Benutzer das modale Formular verschoben oder in der
  420.     ' Gr÷▀e verΣndert hat, ⁿbernehmen wir diese ─nderungen jetzt.
  421.     Zweifachhaus.WindowState = 0
  422.     Zweifachhaus.Top = Top
  423.     Zweifachhaus.Left = Left
  424.     Zweifachhaus.Width = Width
  425.     Zweifachhaus.Height = Height
  426.     Zweifachhaus.Show
  427. End Sub
  428.  
  429. Private Sub RightArrow_Click()
  430.     Dim garage As Integer
  431.     
  432.     If KeineGarage.Value Then
  433.         garage = 0
  434.     ElseIf Einfachgarage.Value Then
  435.         garage = 1
  436.     Else
  437.         garage = 2
  438.     End If
  439.     
  440.     Visible = False
  441.     ErzeugeZweistockHaus garage, CDbl(Laenge), CDbl(Breite)
  442.     
  443.     TerminateAll
  444. End Sub
  445.