home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Houseplan Collection
/
HRCD2005.ISO
/
data1.cab
/
Zusatz
/
3DS
/
DATA2.Z
/
ZweifachhausDetaildialog.Frm
< prev
next >
Wrap
Text File
|
1998-03-11
|
15KB
|
445 lines
VERSION 5.00
Begin VB.Form ZweifachhausDetaildialog
BackColor = &H00C0FFFF&
Caption = "Fertighauskatalog - Zweifamilienhaus Konstruktionsdetails"
ClientHeight = 8820
ClientLeft = 1020
ClientTop = 1470
ClientWidth = 10335
Icon = "ZweifachhausDetaildialog.frx":0000
LinkTopic = "Form1"
PaletteMode = 1 'ZReihenfolge
ScaleHeight = 8820
ScaleWidth = 10335
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
BackColor = &H00C0FFFF&
Caption = "Garage:"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1455
Left = 7920
TabIndex = 18
Top = 360
Width = 2295
Begin VB.OptionButton KeineGarage
BackColor = &H00C0FFFF&
Caption = "keine"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 120
TabIndex = 3
Top = 360
Width = 1575
End
Begin VB.OptionButton Einfachgarage
BackColor = &H00C0FFFF&
Caption = "einfach"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 120
TabIndex = 4
Top = 720
Value = -1 'True
Width = 1455
End
Begin VB.OptionButton Doppelgarage
BackColor = &H00C0FFFF&
Caption = "doppelt"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 120
TabIndex = 5
Top = 1080
Width = 1455
End
End
Begin VB.Frame Frame3
BackColor = &H00C0FFFF&
Caption = "Hausgr÷▀e"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 5280
TabIndex = 15
Top = 360
Width = 2535
Begin VB.TextBox Laenge
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 120
TabIndex = 1
Text = "15"
Top = 720
Width = 2055
End
Begin VB.TextBox Breite
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 120
TabIndex = 2
Text = "20"
Top = 1800
Width = 2055
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "LΣnge:"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 17
Top = 360
Width = 1935
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "Breite:"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 16
Top = 1440
Width = 1935
End
End
Begin VB.Image Grundriss
Height = 3600
Left = 240
Picture = "ZweifachhausDetaildialog.frx":0442
Top = 120
Width = 4800
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
BorderStyle = 1 'Fest Einfach
Caption = $"ZweifachhausDetaildialog.frx":9AC4
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1455
Left = 240
TabIndex = 14
Top = 6600
Width = 9975
End
Begin VB.Label Label7
Alignment = 2 'Zentriert
BackColor = &H00FFFFC0&
BorderStyle = 1 'Fest Einfach
Caption = "min. 250 m▓"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
TabIndex = 13
Top = 5640
Width = 1695
End
Begin VB.Label Label6
Alignment = 2 'Zentriert
BackColor = &H0080FF80&
BorderStyle = 1 'Fest Einfach
Caption = "450.000,00 DM"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6480
TabIndex = 12
Top = 5520
Width = 2535
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Beschreibung:"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 11
Top = 3840
Width = 1815
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Besonderheiten:"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 10
Top = 6240
Width = 2295
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Preis:"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5160
TabIndex = 9
Top = 5640
Width = 1215
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Empfohlene Grundstⁿcksgr÷▀e:"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 240
TabIndex = 8
Top = 5400
Width = 2415
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"ZweifachhausDetaildialog.frx":9C1F
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1215
Left = 240
TabIndex = 7
Top = 4080
Width = 9975
End
Begin VB.Image RightArrow
Height = 480
Left = 9840
Picture = "ZweifachhausDetaildialog.frx":9DD1
Top = 8280
Width = 480
End
Begin VB.Label RightArrowLabel
Alignment = 1 'Rechts
BackStyle = 0 'Transparent
Caption = "Konstruktion ausfⁿhren"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7320
TabIndex = 6
Top = 8400
Width = 2415
End
Begin VB.Line SepLine
X1 = 0
X2 = 10320
Y1 = 8280
Y2 = 8280
End
Begin VB.Image Arrow
Height = 480
Left = 20
Picture = "ZweifachhausDetaildialog.frx":A213
Top = 8280
Width = 480
End
Begin VB.Label ArrowLabel
BackStyle = 0 'Transparent
Caption = "Zurⁿck zur Informationsseite"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 555
TabIndex = 0
Top = 8400
Width = 2820
End
End
Attribute VB_Name = "ZweifachhausDetaildialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Arrow_Click()
Unload Me
End Sub
Private Sub Form_Resize()
' Die Gr÷▀e des Formulars wurde geΣndert, wir mⁿssen
' die untere Leiste anpassen
SepLine.x1 = 0
SepLine.x2 = Width
SepLine.y1 = Height - 940
SepLine.y2 = SepLine.y1
ArrowLabel.Top = SepLine.y1 + 130
ArrowLabel.Left = 550
Arrow.Top = SepLine.y1 + 30
Arrow.Left = 20
RightArrowLabel.Top = SepLine.y1 + 130
RightArrowLabel.Left = Width - RightArrowLabel.Width - 750
RightArrow.Top = SepLine.y1 + 30
RightArrow.Left = Width - 645
End Sub
Private Sub Form_Unload(Cancel As Integer)
' Falls der Benutzer das modale Formular verschoben oder in der
' Gr÷▀e verΣndert hat, ⁿbernehmen wir diese ─nderungen jetzt.
Zweifachhaus.WindowState = 0
Zweifachhaus.Top = Top
Zweifachhaus.Left = Left
Zweifachhaus.Width = Width
Zweifachhaus.Height = Height
Zweifachhaus.Show
End Sub
Private Sub RightArrow_Click()
Dim garage As Integer
If KeineGarage.Value Then
garage = 0
ElseIf Einfachgarage.Value Then
garage = 1
Else
garage = 2
End If
Visible = False
ErzeugeZweistockHaus garage, CDbl(Laenge), CDbl(Breite)
TerminateAll
End Sub