home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Houseplan Collection
/
HRCD2005.ISO
/
data1.cab
/
Zusatz
/
3DS
/
DATA2.Z
/
Wizard2.frm
< prev
next >
Wrap
Text File
|
1999-01-27
|
4KB
|
124 lines
VERSION 5.00
Begin VB.Form Wizard2
BorderStyle = 3 'Fixed Dialog
Caption = "Hintergrundbild plazieren (Schritt 2 von 3)"
ClientHeight = 2625
ClientLeft = 45
ClientTop = 330
ClientWidth = 4965
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2625
ScaleWidth = 4965
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Eingabe
Height = 375
Left = 1560
TabIndex = 0
Text = "0"
Top = 1200
Width = 1335
End
Begin VB.CommandButton Abort
Cancel = -1 'True
Caption = "Abbrechen"
Height = 495
Left = 960
TabIndex = 2
Top = 1920
Width = 975
End
Begin VB.CommandButton Cont
Caption = "&Weiter..."
Default = -1 'True
Height = 495
Left = 2640
TabIndex = 1
Top = 1920
Width = 1035
End
Begin VB.Label Label4
Caption = "m"
Height = 255
Left = 3000
TabIndex = 6
Top = 1200
Width = 495
End
Begin VB.Label Label3
Caption = "Abstand:"
Height = 375
Left = 240
TabIndex = 5
Top = 1200
Width = 1215
End
Begin VB.Label Label1
Caption = "Wie weit sind die beiden angegebenen Punkte tatsΣchlich von einander entfernt?"
Height = 615
Left = 120
TabIndex = 4
Top = 480
Width = 4695
End
Begin VB.Label Label2
Caption = "Ma▀stab des Hintergrundbildes ermitteln:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 3
Top = 120
Width = 4935
End
End
Attribute VB_Name = "Wizard2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' MS Visual Basic Demo-Programm zur Demonstration der ActiveX-FΣhigkeit
' von ArCon(+).
'
' Der abgebildete Code dient lediglich Demonstrationszwecken.
' Es wird keinerlei Garantie fⁿr die Richtigkeit und/oder
' FunktionsfΣhigkeit ⁿbernommen. Bei Fragen wenden Sie sich bitte an
'
' mb-Programme
' Software im Bauwesen GmbH
' Hermannstra▀e 1
' D-31785 Hameln
' e-mail: arcon@mb-hameln.de
' Internet http://www.mb-hameln.de
Option Explicit
Private Sub Abort_Click()
Main.result = False
Unload Me
End Sub
Private Sub Cont_Click()
Main.result = True
Main.distance = Eingabe
Unload Me
End Sub
Private Sub Form_Load()
Main.exe.StartModalDialog hWnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
Main.exe.EndModalDialog
End Sub