home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1991
/
number5
/
powrhous.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-09-11
|
5KB
|
114 lines
Form1
AVisual BASIC - A Graphics Printing Powerhouse / M. Covington 1991
Form1
Picture1
Command1
Print Directly
Command2
Create a Bitmap
Command3
Create a BIG bitmap
Command4
Send Codes to Printer
Command1_Click
Form_Click
MousePointer
ScreenY
printer8
ScaleMode
Picture1_Click
Picture1
CurrentY
CurrentX
LineWidth
DrawWidth
DrawPicturee
Command2_Click
AutoRedraw
Image
SaveImage
Command3_Click
AutoResize%
AutoSize
ScaleHeightD
Height
WidthR
FontSize
Command4_Click
PrintDirectly_Click
FINISHED
Techniques
printed
resolution
Command1_Click
"PRINT DIRECTLY" BUTTON
Uses Visual BASIC commands to plot circles anda
lines directly on the printer.p
HOURGLASS CURSOR
SCALE IN INCHES
Plotting on printer...u
DRAW CIRCLES
333333
DRAW LISSAJOUS FIGURE
PC Techniques"
PRINT LABEL
ffffff
Spooling output...u
CLOSE PRINTER
Finishedu
NORMAL CURSOR
Command2_Click
"CREATE A BITMAP" BUTTON
Creates an image on a bitmap file which can be
manipulated and printed with Windows Paintbrush.
HOURGLASS CURSOR
SCALE IN INCHES
IT'S A BITMAP PICTURE
DRAW CIRCLES
333333
DRAW LISSAJOUS FIGURE
PC Techniques"
PRINT LABEL
ffffff
EXAMPLE1.BMP
NORMAL CURSOR
Command3_Click
"CREATE A BIG BITMAP" BUTTON
Creates a bitmap that is allegedly 12 x 12 inches.e
But Windows Paintbrush can "use printer resolution"
and make it 300 dpi, about 4 x 4 inches.3
HOURGLASS CURSORE
SCALE IN INCHES
IT'S A BITMAP PICTURE
in twips!
Picture1 is bigger than the screen.
No problem.
DRAW CIRCLES
ffffff
DRAW LISSAJOUS FIGURE
PC Techniques"
PRINT LABEL
EXAMPLE2.BMP
NORMAL CURSOR
Command4_Click
"SEND CODES TO PRINTER" BUTTONP
Sending codes directly to printer,u
which had better be LaserJet-II compatible!"u
Constructs LaserJet codes and sends to printer.
For brevity, this does NOT draw the same patterne
as the other three procedures.e
HOURGLASS CURSOR
OPEN PRINTER AS FILEP
PRINT SOME RECTANGLES
Position to column i, row i...t
Print a 50 x 100 rectangle with shading depending on i...
*c50ac100bt
g2P"t
*p700y100Xt
POSITION PRINT CURSOR
PC Techniques"u
PRINT LABEL
FORM FEED
CLOSE PRINTER
NORMAL CURSOR