home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Houseplan Collection
/
HRCD2005.ISO
/
data1.cab
/
Zusatz
/
3DS
/
DATA2.Z
/
Wizard1.frm
< prev
next >
Wrap
Text File
|
1999-01-27
|
4KB
|
122 lines
VERSION 5.00
Begin VB.Form Wizard1
BorderStyle = 3 'Fixed Dialog
Caption = "Hintergrundbild plazieren (Schritt 1 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.CommandButton Skip
Caption = "Nur &Position..."
Height = 495
Left = 3360
TabIndex = 4
Top = 1920
Width = 1455
End
Begin VB.CommandButton Cont
Caption = "&Weiter..."
Default = -1 'True
Height = 495
Left = 2160
TabIndex = 3
Top = 1920
Width = 1035
End
Begin VB.CommandButton Abort
Cancel = -1 'True
Caption = "Abbrechen"
Height = 495
Left = 1080
TabIndex = 2
Top = 1920
Width = 975
End
Begin VB.Label Label3
Caption = "Falls Sie nur die Position des Bildes verΣndern m÷chten, klicken Sie auf die SchaltflΣche ""Nur Position""."
Height = 615
Left = 120
TabIndex = 5
Top = 1080
Width = 4815
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 = 1
Top = 120
Width = 4935
End
Begin VB.Label Label1
Caption = "Bitte klicken Sie zwei Punkte in Ihrem Hintergrundbild an, von denen Sie die tatsΣchliche Entfernung kennen."
Height = 495
Left = 120
TabIndex = 0
Top = 480
Width = 4695
End
End
Attribute VB_Name = "Wizard1"
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.posOnly = False
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
Private Sub Skip_Click()
Main.result = True
Main.posOnly = True
Unload Me
End Sub