home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Houseplan Collection
/
HRCD2005.ISO
/
data1.cab
/
Zusatz
/
3DS
/
DATA2.Z
/
Main.Frm
< prev
next >
Wrap
Text File
|
1998-05-18
|
6KB
|
185 lines
VERSION 5.00
Begin VB.Form Main
BackColor = &H0000FFFF&
Caption = "Katalog"
ClientHeight = 8805
ClientLeft = 1020
ClientTop = 1470
ClientWidth = 10365
Icon = "Main.frx":0000
LinkTopic = "Form1"
PaletteMode = 1 'ZReihenfolge
Picture = "Main.frx":0442
ScaleHeight = 8805
ScaleWidth = 10365
Begin VB.Timer Ticker
Interval = 5000
Left = 240
Top = 240
End
Begin VB.Line SepLine
X1 = 10485
X2 = 0
Y1 = 8280
Y2 = 8280
End
Begin VB.Label ArrowLabel
Alignment = 1 'Rechts
BackStyle = 0 'Transparent
Caption = "Zum Katalog"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 8280
TabIndex = 2
Top = 8400
Width = 1455
End
Begin VB.Image Arrow
Height = 480
Left = 9840
Picture = "Main.frx":0888
Top = 8280
Width = 480
End
Begin VB.Image Bild
Height = 2370
Left = 3000
Picture = "Main.frx":0CCA
Top = 3720
Width = 4665
End
Begin VB.Label Status
Alignment = 2 'Zentriert
BackColor = &H0000FFFF&
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 1
Top = 7440
Width = 10095
End
Begin VB.Label Label1
Alignment = 2 'Zentriert
BackColor = &H0000FFFF&
Caption = "Visual Basic steuert"
BeginProperty Font
Name = "Arial"
Size = 48
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 2400
TabIndex = 0
Top = 1200
Width = 5655
End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' Pause bis zum selbststΣndig ablaufenden Demo
Private tickCount As Integer
Public WithEvents ArConEXE As ArCon.ArCon
Attribute ArConEXE.VB_VarHelpID = -1
Private Sub ArCon_ProgramExit()
TerminateAll
End Sub
Private Sub Bild_Click()
' Wir wechseln zum Formular "Hausauswahl". Dieses wird modal
' (gebunden) ausgefⁿhrt. Wir lade es erst (unsichtbar) und passen
' Gr÷▀e und Position an unser Hauptfenster an, bevor wir es zur
' modalen Anzeige bringen. WΣhrenddessen wird das Hauptform
' ausgeblendet. Fⁿr den Benutzer entsteht so der Eindruck, er
' habe es nur mit einem (sich verΣndernden) Fenster zu tun.
Visible = False
' Weiter geht es mit Hausauswahl
Hausauswahl.WindowState = 0
Hausauswahl.Top = Main.Top
Hausauswahl.Left = Main.Left
Hausauswahl.Width = Main.Width
Hausauswahl.Height = Main.Height
Hausauswahl.Show
' Timer zurⁿcksetzen
tickCount = 0
Status.Caption = ""
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 = Width - ArrowLabel.Width - 750
Arrow.Top = SepLine.y1 + 30
Arrow.Left = Width - 645
End Sub
Private Sub Form_Unload(Cancel As Integer)
TerminateAll
End Sub
Private Sub Arrow_Click()
Bild_Click
End Sub
Private Sub Ticker_Timer()
' alle fⁿnf Sekunden kommt ein Signal vom Zeitgeber
tickCount = tickCount + 1
If tickCount < 13 Then
' Wenn noch keine 60 Sekunden verstrichen sind, reagieren
' wir nicht darauf
If tickCount = 4 Then
Status.Caption = "... mit Hilfe von ActiveX Technologie"
ElseIf tickCount = 7 Then
Status.Caption = ".. auf dem lokalen Computer oder ..."
ElseIf tickCount = 9 Then
Status.Caption = "... per Intranet/Internet"
ElseIf tickCount = 12 Then
Status.Caption = ""
tickCount = 0
End If
Exit Sub
End If
If Not Visible Then
' Auch wenn das Hauptfenster gerade ausgeblendet ist,
' reagieren wir nicht
tickCount = 0
Exit Sub
End If
Status.Caption = ""
tickCount = 0
End Sub