home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Main.Frm < prev    next >
Text File  |  1998-05-18  |  6KB  |  185 lines
  1. VERSION 5.00
  2. Begin VB.Form Main 
  3.    BackColor       =   &H0000FFFF&
  4.    Caption         =   "Katalog"
  5.    ClientHeight    =   8805
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1470
  8.    ClientWidth     =   10365
  9.    Icon            =   "Main.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'ZReihenfolge
  12.    Picture         =   "Main.frx":0442
  13.    ScaleHeight     =   8805
  14.    ScaleWidth      =   10365
  15.    Begin VB.Timer Ticker 
  16.       Interval        =   5000
  17.       Left            =   240
  18.       Top             =   240
  19.    End
  20.    Begin VB.Line SepLine 
  21.       X1              =   10485
  22.       X2              =   0
  23.       Y1              =   8280
  24.       Y2              =   8280
  25.    End
  26.    Begin VB.Label ArrowLabel 
  27.       Alignment       =   1  'Rechts
  28.       BackStyle       =   0  'Transparent
  29.       Caption         =   "Zum Katalog"
  30.       BeginProperty Font 
  31.          Name            =   "Arial"
  32.          Size            =   9.75
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   255
  40.       Left            =   8280
  41.       TabIndex        =   2
  42.       Top             =   8400
  43.       Width           =   1455
  44.    End
  45.    Begin VB.Image Arrow 
  46.       Height          =   480
  47.       Left            =   9840
  48.       Picture         =   "Main.frx":0888
  49.       Top             =   8280
  50.       Width           =   480
  51.    End
  52.    Begin VB.Image Bild 
  53.       Height          =   2370
  54.       Left            =   3000
  55.       Picture         =   "Main.frx":0CCA
  56.       Top             =   3720
  57.       Width           =   4665
  58.    End
  59.    Begin VB.Label Status 
  60.       Alignment       =   2  'Zentriert
  61.       BackColor       =   &H0000FFFF&
  62.       BeginProperty Font 
  63.          Name            =   "Arial"
  64.          Size            =   14.25
  65.          Charset         =   0
  66.          Weight          =   400
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       Height          =   495
  72.       Left            =   120
  73.       TabIndex        =   1
  74.       Top             =   7440
  75.       Width           =   10095
  76.    End
  77.    Begin VB.Label Label1 
  78.       Alignment       =   2  'Zentriert
  79.       BackColor       =   &H0000FFFF&
  80.       Caption         =   "Visual Basic steuert"
  81.       BeginProperty Font 
  82.          Name            =   "Arial"
  83.          Size            =   48
  84.          Charset         =   0
  85.          Weight          =   400
  86.          Underline       =   0   'False
  87.          Italic          =   -1  'True
  88.          Strikethrough   =   0   'False
  89.       EndProperty
  90.       Height          =   2415
  91.       Left            =   2400
  92.       TabIndex        =   0
  93.       Top             =   1200
  94.       Width           =   5655
  95.    End
  96. End
  97. Attribute VB_Name = "Main"
  98. Attribute VB_GlobalNameSpace = False
  99. Attribute VB_Creatable = False
  100. Attribute VB_PredeclaredId = True
  101. Attribute VB_Exposed = False
  102. Option Explicit
  103.  
  104. ' Pause bis zum selbststΣndig ablaufenden Demo
  105. Private tickCount As Integer
  106.  
  107. Public WithEvents ArConEXE As ArCon.ArCon
  108. Attribute ArConEXE.VB_VarHelpID = -1
  109.  
  110. Private Sub ArCon_ProgramExit()
  111.     TerminateAll
  112. End Sub
  113.  
  114. Private Sub Bild_Click()
  115.     ' Wir wechseln zum Formular "Hausauswahl". Dieses wird modal
  116.     ' (gebunden) ausgefⁿhrt. Wir lade es erst (unsichtbar) und passen
  117.     ' Gr÷▀e und Position an unser Hauptfenster an, bevor wir es zur
  118.     ' modalen Anzeige bringen. WΣhrenddessen wird das Hauptform
  119.     ' ausgeblendet. Fⁿr den Benutzer entsteht so der Eindruck, er
  120.     ' habe es nur mit einem (sich verΣndernden) Fenster zu tun.
  121.     Visible = False
  122.     
  123.     ' Weiter geht es mit Hausauswahl
  124.     Hausauswahl.WindowState = 0
  125.     Hausauswahl.Top = Main.Top
  126.     Hausauswahl.Left = Main.Left
  127.     Hausauswahl.Width = Main.Width
  128.     Hausauswahl.Height = Main.Height
  129.     Hausauswahl.Show
  130.  
  131.     ' Timer zurⁿcksetzen
  132.     tickCount = 0
  133.     Status.Caption = ""
  134. End Sub
  135.  
  136. Private Sub Form_Resize()
  137.     ' Die Gr÷▀e des Formulars wurde geΣndert, wir mⁿssen
  138.     ' die untere Leiste anpassen
  139.     SepLine.x1 = 0
  140.     SepLine.x2 = Width
  141.     SepLine.y1 = Height - 940
  142.     SepLine.y2 = SepLine.y1
  143.     ArrowLabel.Top = SepLine.y1 + 130
  144.     ArrowLabel.Left = Width - ArrowLabel.Width - 750
  145.     Arrow.Top = SepLine.y1 + 30
  146.     Arrow.Left = Width - 645
  147. End Sub
  148.  
  149. Private Sub Form_Unload(Cancel As Integer)
  150.     TerminateAll
  151. End Sub
  152.  
  153. Private Sub Arrow_Click()
  154.     Bild_Click
  155. End Sub
  156.  
  157. Private Sub Ticker_Timer()
  158.     ' alle fⁿnf Sekunden kommt ein Signal vom Zeitgeber
  159.     tickCount = tickCount + 1
  160.     If tickCount < 13 Then
  161.         ' Wenn noch keine 60 Sekunden verstrichen sind, reagieren
  162.         ' wir nicht darauf
  163.         If tickCount = 4 Then
  164.             Status.Caption = "... mit Hilfe von ActiveX Technologie"
  165.         ElseIf tickCount = 7 Then
  166.             Status.Caption = ".. auf dem lokalen Computer oder ..."
  167.         ElseIf tickCount = 9 Then
  168.             Status.Caption = "... per Intranet/Internet"
  169.         ElseIf tickCount = 12 Then
  170.             Status.Caption = ""
  171.             tickCount = 0
  172.         End If
  173.         Exit Sub
  174.     End If
  175.     If Not Visible Then
  176.         ' Auch wenn das Hauptfenster gerade ausgeblendet ist,
  177.         ' reagieren wir nicht
  178.         tickCount = 0
  179.         Exit Sub
  180.     End If
  181.     Status.Caption = ""
  182.     tickCount = 0
  183. End Sub
  184.  
  185.