home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_1_94 / vbdos / demo2.frm < prev    next >
Text File  |  1993-11-02  |  4KB  |  187 lines
  1. Version 1.00
  2. BEGIN Form DruckForm
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(7)
  5.     BorderStyle  = 1
  6.     Caption      = "Datei drucken"
  7.     ControlBox   = 0
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height         = Char(10)
  11.     Left         = Char(5)
  12.     MaxButton    = 0
  13.     MinButton    = 0
  14.     MousePointer = 0
  15.     Tag         = ""
  16.     Top         = Char(12)
  17.     Visible      = -1
  18.     Width         = Char(28)
  19.     WindowState  = 0
  20.     BEGIN Label Bezeichnung1
  21.         Alignment    = 0
  22.         AutoSize     = 0
  23.         BackColor    = QBColor(7)
  24.         BorderStyle  = 0
  25.         Caption      = "Name der zu druckenden"
  26.         DragMode     = 0
  27.         Enabled      = -1
  28.         ForeColor    = QBColor(0)
  29.         Height         = Char(1)
  30.         Left         = Char(2)
  31.         MousePointer = 0
  32.         TabIndex     = 0
  33.         Tag         = ""
  34.         Top         = Char(1)
  35.         Visible      = -1
  36.         Width         = Char(24)
  37.     END
  38.     BEGIN Label Bezeichnung2
  39.         Alignment    = 0
  40.         AutoSize     = 0
  41.         BackColor    = QBColor(7)
  42.         BorderStyle  = 0
  43.         Caption      = "Datei:"
  44.         DragMode     = 0
  45.         Enabled      = -1
  46.         ForeColor    = QBColor(0)
  47.         Height         = Char(1)
  48.         Left         = Char(2)
  49.         MousePointer = 0
  50.         TabIndex     = 1
  51.         Tag         = ""
  52.         Top         = Char(2)
  53.         Visible      = -1
  54.         Width         = Char(6)
  55.     END
  56.     BEGIN TextBox DateiName
  57.         BackColor    = QBColor(7)
  58.         BorderStyle  = 1
  59.         DragMode     = 0
  60.         Enabled      = -1
  61.         ForeColor    = QBColor(0)
  62.         Height         = Char(1)
  63.         Left         = Char(10)
  64.         MousePointer = 0
  65.         MultiLine    = 0
  66.         ScrollBars   = 0
  67.         TabIndex     = 2
  68.         TabStop      = -1
  69.         Tag         = ""
  70.         Text         = ""
  71.         Top         = Char(2)
  72.         Visible      = -1
  73.         Width         = Char(14)
  74.     END
  75.     BEGIN CommandButton Abbruch
  76.         BackColor    = QBColor(7)
  77.         Cancel         = 0
  78.         Caption      = "&Abbruch"
  79.         Default      = 0
  80.         DragMode     = 0
  81.         Enabled      = -1
  82.         Height         = Char(3)
  83.         Left         = Char(2)
  84.         MousePointer = 0
  85.         TabIndex     = 3
  86.         TabStop      = -1
  87.         Tag         = ""
  88.         Top         = Char(5)
  89.         Visible      = -1
  90.         Width         = Char(11)
  91.     END
  92.     BEGIN CommandButton OK
  93.         BackColor    = QBColor(7)
  94.         Cancel         = 0
  95.         Caption      = "&Ok"
  96.         Default      = 0
  97.         DragMode     = 0
  98.         Enabled      = -1
  99.         Height         = Char(3)
  100.         Left         = Char(14)
  101.         MousePointer = 0
  102.         TabIndex     = 4
  103.         TabStop      = -1
  104.         Tag         = ""
  105.         Top         = Char(5)
  106.         Visible      = -1
  107.         Width         = Char(10)
  108.     END
  109.     BEGIN Label Warten
  110.         Alignment    = 0
  111.         AutoSize     = 0
  112.         BackColor    = QBColor(7)
  113.         BorderStyle  = 0
  114.         Caption      = ""
  115.         DragMode     = 0
  116.         Enabled      = -1
  117.         ForeColor    = QBColor(0)
  118.         Height         = Char(1)
  119.         Left         = Char(2)
  120.         MousePointer = 0
  121.         TabIndex     = 5
  122.         Tag         = ""
  123.         Top         = Char(3)
  124.         Visible      = -1
  125.         Width         = Char(22)
  126.     END
  127. END
  128. '$FORM MainForm
  129. REM $INCLUDE: 'CONSTANT.BI'
  130.  
  131. SUB Abbruch_Click ()
  132.  
  133.     SHARED DruckLaeuft AS INTEGER
  134.     IF DruckLaeuft THEN
  135.         IF MSGBOX("Wollen Sie den Druck abbrechen?", 4) = 7 THEN
  136.             ' Benutzer hat auf "Nein" geklickt
  137.             EXIT SUB
  138.         END IF
  139.         Tag = "Abbruch" ' Abbruch-Meldung in die
  140.                              ' OK_Click-Prozedur reichen
  141.     ELSE
  142.         UNLOAD DruckForm
  143.     END IF
  144.  
  145. END SUB
  146.  
  147. SUB Form_Load ()
  148.  
  149.     ' erneutes Aufrufen verhindern
  150.     MainForm.Druck.Enabled = FALSE
  151.  
  152. END SUB
  153.  
  154. SUB Form_Unload (Cancel AS INTEGER)
  155.  
  156.     MainForm.Druck.Enabled = TRUE
  157.  
  158. END SUB
  159.  
  160. SUB OK_Click ()
  161.  
  162.     SHARED DruckLaeuft AS INTEGER
  163.     DIM File AS INTEGER
  164.     DIM Dummy AS INTEGER, Zeile AS STRING
  165.  
  166.     IF NOT DruckLaeuft THEN
  167.         DruckLaeuft = TRUE
  168.         File = FREEFILE
  169.         OPEN DateiName.Text FOR INPUT AS #File
  170.         DO UNTIL EOF(File)
  171.             LINE INPUT #File, Zeile
  172.             Printer.PRINT Zeile
  173.             Warten.Caption = FORMAT$(100 * SEEK(File) \ LOF(File)) + "% fertig..."
  174.             Dummy = DOEVENTS()
  175.             IF Tag = "Abbruch" THEN EXIT DO
  176.         LOOP
  177.         Printer.ENDDOC
  178.         CLOSE File
  179.         IF Tag <> "Abbruch" THEN
  180.             MSGBOX "Druck der Datei abgeschlossen.", 0, "Fertig!"
  181.         END IF
  182.         UNLOAD DruckForm
  183.     END IF
  184.  
  185. END SUB
  186.  
  187.