home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / EinfachhausDetaildialog.frm < prev    next >
Text File  |  1998-03-11  |  18KB  |  546 lines
  1. VERSION 5.00
  2. Begin VB.Form EinfachhausDetaildialog 
  3.    BackColor       =   &H00C0FFFF&
  4.    Caption         =   "Fertighauskatalog - Einfamilienhaus Konstruktionsdetails"
  5.    ClientHeight    =   8820
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1515
  8.    ClientWidth     =   10335
  9.    Icon            =   "EinfachhausDetaildialog.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'ZReihenfolge
  12.    ScaleHeight     =   8820
  13.    ScaleWidth      =   10335
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.Frame Frame3 
  16.       BackColor       =   &H00C0FFFF&
  17.       Caption         =   "Hausgr÷▀e:"
  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          =   2895
  28.       Left            =   7920
  29.       TabIndex        =   20
  30.       Top             =   0
  31.       Width           =   2295
  32.       Begin VB.TextBox Breite 
  33.          BeginProperty Font 
  34.             Name            =   "Arial"
  35.             Size            =   14.25
  36.             Charset         =   0
  37.             Weight          =   700
  38.             Underline       =   0   'False
  39.             Italic          =   0   'False
  40.             Strikethrough   =   0   'False
  41.          EndProperty
  42.          Height          =   450
  43.          Left            =   240
  44.          TabIndex        =   8
  45.          Text            =   "18"
  46.          Top             =   2160
  47.          Width           =   1935
  48.       End
  49.       Begin VB.TextBox Laenge 
  50.          BeginProperty Font 
  51.             Name            =   "Arial"
  52.             Size            =   14.25
  53.             Charset         =   0
  54.             Weight          =   700
  55.             Underline       =   0   'False
  56.             Italic          =   0   'False
  57.             Strikethrough   =   0   'False
  58.          EndProperty
  59.          Height          =   450
  60.          Left            =   240
  61.          TabIndex        =   7
  62.          Text            =   "13"
  63.          Top             =   960
  64.          Width           =   1935
  65.       End
  66.       Begin VB.Label Label10 
  67.          BackStyle       =   0  'Transparent
  68.          Caption         =   "Breite:"
  69.          BeginProperty Font 
  70.             Name            =   "Arial"
  71.             Size            =   14.25
  72.             Charset         =   0
  73.             Weight          =   700
  74.             Underline       =   0   'False
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          Height          =   375
  79.          Left            =   240
  80.          TabIndex        =   22
  81.          Top             =   1800
  82.          Width           =   1815
  83.       End
  84.       Begin VB.Label Label9 
  85.          BackStyle       =   0  'Transparent
  86.          Caption         =   "LΣnge:"
  87.          BeginProperty Font 
  88.             Name            =   "Arial"
  89.             Size            =   14.25
  90.             Charset         =   0
  91.             Weight          =   700
  92.             Underline       =   0   'False
  93.             Italic          =   0   'False
  94.             Strikethrough   =   0   'False
  95.          EndProperty
  96.          Height          =   375
  97.          Left            =   240
  98.          TabIndex        =   21
  99.          Top             =   600
  100.          Width           =   1815
  101.       End
  102.    End
  103.    Begin VB.Frame Frame2 
  104.       BackColor       =   &H00C0FFFF&
  105.       Caption         =   "Kammer:"
  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          =   1695
  116.       Left            =   5160
  117.       TabIndex        =   19
  118.       Top             =   1920
  119.       Width           =   2655
  120.       Begin VB.OptionButton Dunkelkammer 
  121.          BackColor       =   &H00C0FFFF&
  122.          Caption         =   "Dunkelkammer"
  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          =   330
  133.          Left            =   120
  134.          TabIndex        =   6
  135.          Top             =   1080
  136.          Width           =   2425
  137.       End
  138.       Begin VB.OptionButton Voliere 
  139.          BackColor       =   &H00C0FFFF&
  140.          Caption         =   "Vogelvoliere"
  141.          BeginProperty Font 
  142.             Name            =   "Arial"
  143.             Size            =   14.25
  144.             Charset         =   0
  145.             Weight          =   700
  146.             Underline       =   0   'False
  147.             Italic          =   0   'False
  148.             Strikethrough   =   0   'False
  149.          EndProperty
  150.          Height          =   330
  151.          Left            =   120
  152.          TabIndex        =   5
  153.          Top             =   720
  154.          Width           =   2295
  155.       End
  156.       Begin VB.OptionButton GaesteWC 
  157.          BackColor       =   &H00C0FFFF&
  158.          Caption         =   "GΣstetoilette"
  159.          BeginProperty Font 
  160.             Name            =   "Arial"
  161.             Size            =   14.25
  162.             Charset         =   0
  163.             Weight          =   700
  164.             Underline       =   0   'False
  165.             Italic          =   0   'False
  166.             Strikethrough   =   0   'False
  167.          EndProperty
  168.          Height          =   330
  169.          Left            =   120
  170.          TabIndex        =   4
  171.          Top             =   360
  172.          Value           =   -1  'True
  173.          Width           =   2295
  174.       End
  175.    End
  176.    Begin VB.Frame Frame1 
  177.       BackColor       =   &H00C0FFFF&
  178.       Caption         =   "Zimmer:"
  179.       BeginProperty Font 
  180.          Name            =   "Arial"
  181.          Size            =   14.25
  182.          Charset         =   0
  183.          Weight          =   700
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       Height          =   1695
  189.       Left            =   5160
  190.       TabIndex        =   18
  191.       Top             =   0
  192.       Width           =   2535
  193.       Begin VB.OptionButton Hobbyraum 
  194.          BackColor       =   &H00C0FFFF&
  195.          Caption         =   "Hobbyraum"
  196.          BeginProperty Font 
  197.             Name            =   "Arial"
  198.             Size            =   14.25
  199.             Charset         =   0
  200.             Weight          =   700
  201.             Underline       =   0   'False
  202.             Italic          =   0   'False
  203.             Strikethrough   =   0   'False
  204.          EndProperty
  205.          Height          =   330
  206.          Left            =   120
  207.          TabIndex        =   3
  208.          Top             =   1080
  209.          Width           =   2055
  210.       End
  211.       Begin VB.OptionButton Buero 
  212.          BackColor       =   &H00C0FFFF&
  213.          Caption         =   "Bⁿro"
  214.          BeginProperty Font 
  215.             Name            =   "Arial"
  216.             Size            =   14.25
  217.             Charset         =   0
  218.             Weight          =   700
  219.             Underline       =   0   'False
  220.             Italic          =   0   'False
  221.             Strikethrough   =   0   'False
  222.          EndProperty
  223.          Height          =   330
  224.          Left            =   120
  225.          TabIndex        =   2
  226.          Top             =   720
  227.          Width           =   1455
  228.       End
  229.       Begin VB.OptionButton Kinderzimmer 
  230.          BackColor       =   &H00C0FFFF&
  231.          Caption         =   "Kinderzimmer"
  232.          BeginProperty Font 
  233.             Name            =   "Arial"
  234.             Size            =   14.25
  235.             Charset         =   0
  236.             Weight          =   700
  237.             Underline       =   0   'False
  238.             Italic          =   0   'False
  239.             Strikethrough   =   0   'False
  240.          EndProperty
  241.          Height          =   375
  242.          Left            =   120
  243.          TabIndex        =   1
  244.          Top             =   360
  245.          Value           =   -1  'True
  246.          Width           =   2295
  247.       End
  248.    End
  249.    Begin VB.Line Line2 
  250.       BorderColor     =   &H000000FF&
  251.       BorderWidth     =   2
  252.       X1              =   840
  253.       X2              =   5160
  254.       Y1              =   3000
  255.       Y2              =   3000
  256.    End
  257.    Begin VB.Line Line1 
  258.       BorderColor     =   &H000000FF&
  259.       BorderWidth     =   2
  260.       X1              =   3000
  261.       X2              =   5160
  262.       Y1              =   1080
  263.       Y2              =   1080
  264.    End
  265.    Begin VB.Image Grundriss 
  266.       Height          =   3600
  267.       Left            =   240
  268.       Picture         =   "EinfachhausDetaildialog.frx":0442
  269.       Top             =   0
  270.       Width           =   4800
  271.    End
  272.    Begin VB.Label Label8 
  273.       BackStyle       =   0  'Transparent
  274.       BorderStyle     =   1  'Fest Einfach
  275.       Caption         =   $"EinfachhausDetaildialog.frx":9AC4
  276.       BeginProperty Font 
  277.          Name            =   "Arial"
  278.          Size            =   9.75
  279.          Charset         =   0
  280.          Weight          =   400
  281.          Underline       =   0   'False
  282.          Italic          =   0   'False
  283.          Strikethrough   =   0   'False
  284.       EndProperty
  285.       Height          =   1455
  286.       Left            =   240
  287.       TabIndex        =   17
  288.       Top             =   6600
  289.       Width           =   9975
  290.    End
  291.    Begin VB.Label Label7 
  292.       Alignment       =   2  'Zentriert
  293.       BackColor       =   &H00FFFFC0&
  294.       BorderStyle     =   1  'Fest Einfach
  295.       Caption         =   "min. 200 m▓"
  296.       BeginProperty Font 
  297.          Name            =   "Arial"
  298.          Size            =   12
  299.          Charset         =   0
  300.          Weight          =   400
  301.          Underline       =   0   'False
  302.          Italic          =   0   'False
  303.          Strikethrough   =   0   'False
  304.       EndProperty
  305.       Height          =   375
  306.       Left            =   2760
  307.       TabIndex        =   16
  308.       Top             =   5640
  309.       Width           =   1695
  310.    End
  311.    Begin VB.Label Label6 
  312.       Alignment       =   2  'Zentriert
  313.       BackColor       =   &H0080FF80&
  314.       BorderStyle     =   1  'Fest Einfach
  315.       Caption         =   "350.000,00 DM"
  316.       BeginProperty Font 
  317.          Name            =   "Arial"
  318.          Size            =   14.25
  319.          Charset         =   0
  320.          Weight          =   400
  321.          Underline       =   0   'False
  322.          Italic          =   0   'False
  323.          Strikethrough   =   0   'False
  324.       EndProperty
  325.       Height          =   495
  326.       Left            =   6480
  327.       TabIndex        =   15
  328.       Top             =   5520
  329.       Width           =   2535
  330.    End
  331.    Begin VB.Label Label5 
  332.       BackStyle       =   0  'Transparent
  333.       Caption         =   "Beschreibung:"
  334.       BeginProperty Font 
  335.          Name            =   "Arial"
  336.          Size            =   12
  337.          Charset         =   0
  338.          Weight          =   700
  339.          Underline       =   0   'False
  340.          Italic          =   0   'False
  341.          Strikethrough   =   0   'False
  342.       EndProperty
  343.       Height          =   375
  344.       Left            =   240
  345.       TabIndex        =   14
  346.       Top             =   3720
  347.       Width           =   1815
  348.    End
  349.    Begin VB.Label Label4 
  350.       BackStyle       =   0  'Transparent
  351.       Caption         =   "Besonderheiten:"
  352.       BeginProperty Font 
  353.          Name            =   "Arial"
  354.          Size            =   12
  355.          Charset         =   0
  356.          Weight          =   700
  357.          Underline       =   0   'False
  358.          Italic          =   0   'False
  359.          Strikethrough   =   0   'False
  360.       EndProperty
  361.       Height          =   375
  362.       Left            =   240
  363.       TabIndex        =   13
  364.       Top             =   6240
  365.       Width           =   2295
  366.    End
  367.    Begin VB.Label Label3 
  368.       BackStyle       =   0  'Transparent
  369.       Caption         =   "Preis:"
  370.       BeginProperty Font 
  371.          Name            =   "Arial"
  372.          Size            =   12
  373.          Charset         =   0
  374.          Weight          =   700
  375.          Underline       =   0   'False
  376.          Italic          =   0   'False
  377.          Strikethrough   =   0   'False
  378.       EndProperty
  379.       Height          =   375
  380.       Left            =   5160
  381.       TabIndex        =   12
  382.       Top             =   5640
  383.       Width           =   1215
  384.    End
  385.    Begin VB.Label Label2 
  386.       BackStyle       =   0  'Transparent
  387.       Caption         =   "Empfohlene Grundstⁿcksgr÷▀e:"
  388.       BeginProperty Font 
  389.          Name            =   "Arial"
  390.          Size            =   12
  391.          Charset         =   0
  392.          Weight          =   700
  393.          Underline       =   0   'False
  394.          Italic          =   0   'False
  395.          Strikethrough   =   0   'False
  396.       EndProperty
  397.       Height          =   735
  398.       Left            =   240
  399.       TabIndex        =   11
  400.       Top             =   5400
  401.       Width           =   2415
  402.    End
  403.    Begin VB.Label Label1 
  404.       BackStyle       =   0  'Transparent
  405.       Caption         =   $"EinfachhausDetaildialog.frx":9CAF
  406.       BeginProperty Font 
  407.          Name            =   "Arial"
  408.          Size            =   9.75
  409.          Charset         =   0
  410.          Weight          =   400
  411.          Underline       =   0   'False
  412.          Italic          =   0   'False
  413.          Strikethrough   =   0   'False
  414.       EndProperty
  415.       Height          =   1215
  416.       Left            =   240
  417.       TabIndex        =   10
  418.       Top             =   4080
  419.       Width           =   9975
  420.    End
  421.    Begin VB.Image RightArrow 
  422.       Height          =   480
  423.       Left            =   9840
  424.       Picture         =   "EinfachhausDetaildialog.frx":9E2A
  425.       Top             =   8280
  426.       Width           =   480
  427.    End
  428.    Begin VB.Label RightArrowLabel 
  429.       Alignment       =   1  'Rechts
  430.       BackStyle       =   0  'Transparent
  431.       Caption         =   "Konstruktion ausfⁿhren"
  432.       BeginProperty Font 
  433.          Name            =   "Arial"
  434.          Size            =   9.75
  435.          Charset         =   0
  436.          Weight          =   700
  437.          Underline       =   0   'False
  438.          Italic          =   0   'False
  439.          Strikethrough   =   0   'False
  440.       EndProperty
  441.       Height          =   255
  442.       Left            =   7440
  443.       TabIndex        =   9
  444.       Top             =   8400
  445.       Width           =   2295
  446.    End
  447.    Begin VB.Line SepLine 
  448.       X1              =   0
  449.       X2              =   10320
  450.       Y1              =   8280
  451.       Y2              =   8280
  452.    End
  453.    Begin VB.Image Arrow 
  454.       Height          =   480
  455.       Left            =   20
  456.       Picture         =   "EinfachhausDetaildialog.frx":A26C
  457.       Top             =   8280
  458.       Width           =   480
  459.    End
  460.    Begin VB.Label ArrowLabel 
  461.       BackStyle       =   0  'Transparent
  462.       Caption         =   "Zurⁿck zur Informationsseite"
  463.       BeginProperty Font 
  464.          Name            =   "Arial"
  465.          Size            =   9.75
  466.          Charset         =   0
  467.          Weight          =   700
  468.          Underline       =   0   'False
  469.          Italic          =   0   'False
  470.          Strikethrough   =   0   'False
  471.       EndProperty
  472.       Height          =   255
  473.       Left            =   555
  474.       TabIndex        =   0
  475.       Top             =   8400
  476.       Width           =   2820
  477.    End
  478. End
  479. Attribute VB_Name = "EinfachhausDetaildialog"
  480. Attribute VB_GlobalNameSpace = False
  481. Attribute VB_Creatable = False
  482. Attribute VB_PredeclaredId = True
  483. Attribute VB_Exposed = False
  484.  
  485. Private Sub Arrow_Click()
  486.     Unload Me
  487. End Sub
  488.  
  489. Private Sub Form_Resize()
  490.     ' Die Gr÷▀e des Formulars wurde geΣndert, wir mⁿssen
  491.     ' die untere Leiste anpassen
  492.     SepLine.x1 = 0
  493.     SepLine.x2 = Width
  494.     SepLine.y1 = Height - 940
  495.     SepLine.y2 = SepLine.y1
  496.     ArrowLabel.Top = SepLine.y1 + 130
  497.     ArrowLabel.Left = 550
  498.     Arrow.Top = SepLine.y1 + 30
  499.     Arrow.Left = 20
  500.     RightArrowLabel.Top = SepLine.y1 + 130
  501.     RightArrowLabel.Left = Width - RightArrowLabel.Width - 750
  502.     RightArrow.Top = SepLine.y1 + 30
  503.     RightArrow.Left = Width - 645
  504. End Sub
  505.  
  506.  
  507. Private Sub Form_Unload(Cancel As Integer)
  508.     ' Falls der Benutzer das modale Formular verschoben oder in der
  509.     ' Gr÷▀e verΣndert hat, ⁿbernehmen wir diese ─nderungen jetzt.
  510.     Einfachhaus.WindowState = 0
  511.     Einfachhaus.Top = Top
  512.     Einfachhaus.Left = Left
  513.     Einfachhaus.Width = Width
  514.     Einfachhaus.Height = Height
  515.     Einfachhaus.Show
  516. End Sub
  517.  
  518. Private Sub RightArrow_Click()
  519.     Dim kZimmer As Integer, kammer As Integer
  520.     
  521.     ' Erste Optionsgruppe auswerten
  522.     If Kinderzimmer.Value Then
  523.         kZimmer = 0
  524.     ElseIf Buero.Value Then
  525.         kZimmer = 1
  526.     ElseIf Hobbyraum.Value Then
  527.         kZimmer = 2
  528.     End If
  529.     
  530.     ' Zweite Optionsgruppe
  531.     If GaesteWC.Value Then
  532.         kammer = 0
  533.     ElseIf Voliere.Value Then
  534.         kammer = 1
  535.     ElseIf Dunkelkammer.Value Then
  536.         kammer = 2
  537.     End If
  538.  
  539.     Visible = False
  540.     ErzeugeEinfachHaus kZimmer, kammer, CDbl(Laenge), Val(Breite)
  541.  
  542.     TerminateAll
  543. End Sub
  544.  
  545.  
  546.