home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_1_94
/
vbdos
/
demo2.frm
< prev
next >
Wrap
Text File
|
1993-11-02
|
4KB
|
187 lines
Version 1.00
BEGIN Form DruckForm
AutoRedraw = 0
BackColor = QBColor(7)
BorderStyle = 1
Caption = "Datei drucken"
ControlBox = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(10)
Left = Char(5)
MaxButton = 0
MinButton = 0
MousePointer = 0
Tag = ""
Top = Char(12)
Visible = -1
Width = Char(28)
WindowState = 0
BEGIN Label Bezeichnung1
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Name der zu druckenden"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Left = Char(2)
MousePointer = 0
TabIndex = 0
Tag = ""
Top = Char(1)
Visible = -1
Width = Char(24)
END
BEGIN Label Bezeichnung2
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Datei:"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Left = Char(2)
MousePointer = 0
TabIndex = 1
Tag = ""
Top = Char(2)
Visible = -1
Width = Char(6)
END
BEGIN TextBox DateiName
BackColor = QBColor(7)
BorderStyle = 1
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Left = Char(10)
MousePointer = 0
MultiLine = 0
ScrollBars = 0
TabIndex = 2
TabStop = -1
Tag = ""
Text = ""
Top = Char(2)
Visible = -1
Width = Char(14)
END
BEGIN CommandButton Abbruch
BackColor = QBColor(7)
Cancel = 0
Caption = "&Abbruch"
Default = 0
DragMode = 0
Enabled = -1
Height = Char(3)
Left = Char(2)
MousePointer = 0
TabIndex = 3
TabStop = -1
Tag = ""
Top = Char(5)
Visible = -1
Width = Char(11)
END
BEGIN CommandButton OK
BackColor = QBColor(7)
Cancel = 0
Caption = "&Ok"
Default = 0
DragMode = 0
Enabled = -1
Height = Char(3)
Left = Char(14)
MousePointer = 0
TabIndex = 4
TabStop = -1
Tag = ""
Top = Char(5)
Visible = -1
Width = Char(10)
END
BEGIN Label Warten
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = ""
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Left = Char(2)
MousePointer = 0
TabIndex = 5
Tag = ""
Top = Char(3)
Visible = -1
Width = Char(22)
END
END
'$FORM MainForm
REM $INCLUDE: 'CONSTANT.BI'
SUB Abbruch_Click ()
SHARED DruckLaeuft AS INTEGER
IF DruckLaeuft THEN
IF MSGBOX("Wollen Sie den Druck abbrechen?", 4) = 7 THEN
' Benutzer hat auf "Nein" geklickt
EXIT SUB
END IF
Tag = "Abbruch" ' Abbruch-Meldung in die
' OK_Click-Prozedur reichen
ELSE
UNLOAD DruckForm
END IF
END SUB
SUB Form_Load ()
' erneutes Aufrufen verhindern
MainForm.Druck.Enabled = FALSE
END SUB
SUB Form_Unload (Cancel AS INTEGER)
MainForm.Druck.Enabled = TRUE
END SUB
SUB OK_Click ()
SHARED DruckLaeuft AS INTEGER
DIM File AS INTEGER
DIM Dummy AS INTEGER, Zeile AS STRING
IF NOT DruckLaeuft THEN
DruckLaeuft = TRUE
File = FREEFILE
OPEN DateiName.Text FOR INPUT AS #File
DO UNTIL EOF(File)
LINE INPUT #File, Zeile
Printer.PRINT Zeile
Warten.Caption = FORMAT$(100 * SEEK(File) \ LOF(File)) + "% fertig..."
Dummy = DOEVENTS()
IF Tag = "Abbruch" THEN EXIT DO
LOOP
Printer.ENDDOC
CLOSE File
IF Tag <> "Abbruch" THEN
MSGBOX "Druck der Datei abgeschlossen.", 0, "Fertig!"
END IF
UNLOAD DruckForm
END IF
END SUB