home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Houseplan Collection
/
HRCD2005.ISO
/
data1.cab
/
Zusatz
/
3DS
/
DATA2.Z
/
Wizard3.frm
< prev
next >
Wrap
Text File
|
1999-01-27
|
3KB
|
99 lines
VERSION 5.00
Begin VB.Form Wizard3
BorderStyle = 3 'Fixed Dialog
Caption = "Hintergrundbild plazieren (Schritt 3 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 Abort
Cancel = -1 'True
Caption = "Abbrechen"
Height = 495
Left = 1200
TabIndex = 1
Top = 1920
Width = 975
End
Begin VB.CommandButton Cont
Caption = "&Weiter..."
Default = -1 'True
Height = 495
Left = 2880
TabIndex = 0
Top = 1920
Width = 1035
End
Begin VB.Label Label1
Caption = $"Wizard3.frx":0000
Height = 1215
Left = 120
TabIndex = 3
Top = 600
Width = 4695
End
Begin VB.Label Label2
Caption = "Position 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 = 2
Top = 120
Width = 4935
End
End
Attribute VB_Name = "Wizard3"
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
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