home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_1_94 / vbdos / demo1.frm next >
Text File  |  1993-11-01  |  3KB  |  115 lines
  1. Version 1.00
  2. BEGIN Form MainForm
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(7)
  5.     BorderStyle  = 1
  6.     Caption      = "Pseudo-Multitasking-Demo"
  7.     ControlBox   = 0
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(9)
  11.     Left         = Char(21)
  12.     MaxButton    = 0
  13.     MinButton    = 0
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(2)
  17.     Visible      = -1
  18.     Width        = Char(42)
  19.     WindowState  = 0
  20.     BEGIN CommandButton Quersumme
  21.         BackColor    = QBColor(7)
  22.         Cancel       = 0
  23.         Caption      = "&Quersummen"
  24.         Default      = 0
  25.         DragMode     = 0
  26.         Enabled      = -1
  27.         Height       = Char(3)
  28.         Left         = Char(2)
  29.         MousePointer = 0
  30.         TabIndex     = 0
  31.         TabStop      = -1
  32.         Tag          = ""
  33.         Top          = Char(1)
  34.         Visible      = -1
  35.         Width        = Char(17)
  36.     END
  37.     BEGIN CommandButton Druck
  38.         BackColor    = QBColor(7)
  39.         Cancel       = 0
  40.         Caption      = "&Datei drucken"
  41.         Default      = 0
  42.         DragMode     = 0
  43.         Enabled      = -1
  44.         Height       = Char(3)
  45.         Left         = Char(21)
  46.         MousePointer = 0
  47.         TabIndex     = 1
  48.         TabStop      = -1
  49.         Tag          = ""
  50.         Top          = Char(1)
  51.         Visible      = -1
  52.         Width        = Char(17)
  53.     END
  54.     BEGIN CommandButton Quit
  55.         BackColor    = QBColor(7)
  56.         Cancel       = 0
  57.         Caption      = "&Quit"
  58.         Default      = 0
  59.         DragMode     = 0
  60.         Enabled      = -1
  61.         Height       = Char(3)
  62.         Left         = Char(11)
  63.         MousePointer = 0
  64.         TabIndex     = 2
  65.         TabStop      = -1
  66.         Tag          = ""
  67.         Top          = Char(4)
  68.         Visible      = -1
  69.         Width        = Char(17)
  70.     END
  71. END
  72. '$FORM QuerSummenForm
  73. '$FORM DruckForm
  74. REM $INCLUDE: 'CONSTANT.BI'
  75.  
  76. SUB Druck_Click ()
  77.  
  78.     DruckForm.SHOW
  79.  
  80. END SUB
  81.  
  82. SUB Quersumme_Click ()
  83.  
  84.     QuerSummenForm.SHOW
  85.  
  86. END SUB
  87.  
  88. SUB Quit_Click ()
  89.  
  90.     ' Nur beenden, wenn alle anderen Formen
  91.     ' geschlossen sind:
  92.     IF DOEVENTS() = 1 THEN
  93.         SYSTEM
  94.     ELSE
  95.         MSGBOX "Sie müssen erst alle Formen schließen!"
  96.     END IF
  97.  
  98.     ' Alternative: Richten Sie in allen Formen ein un-
  99.     ' sichtbares Beschreibungsfeld "BEFEHL" ein, und
  100.     ' schreiben Sie in BEFEHL_CHANGE jeweils die Zeile
  101.     ' IF BEFEHL.CAPTION = "ABBRUCH" THEN ABBRUCH_CLICK
  102.     ' Dann können Sie hier anstelle der MSGBOX-Meldung
  103.     ' die Befehle
  104.     ' DRUCKFORM.BEFEHL.CAPTION = "ABBRUCH"
  105.     ' QUERSUMMENFORM.BEFEHL.CAPTION = "ABBRUCH"
  106.     ' verwenden, die dafür sorgen, daß die einzelnen
  107.     ' Formen geschlossen werden, so, als hätte der
  108.     ' Benutzer überall auf Abbruch geklickt.
  109.     ' Der Umweg über BEFEHL ist nötig, da Sie aus dem
  110.     ' Code der Form MainForm keine Routinen anderer
  111.     ' Formen aufrufen können ("private Routinen").
  112.  
  113. END SUB
  114.  
  115.