Article View: alt.lang.basic
Article #229Re: How to get fast window print in VB/DOS?
From: Peter G. Millard
Date: Tue, 10 Nov 1992 04:13
Date: Tue, 10 Nov 1992 04:13
45 lines
1929 bytes
1929 bytes
stevepo@microsoft.com (Steven Podradchik) writes:
>You should get approximately the same print rate when printing to a
>form via the Print method as printing to a standard DOS screen with the
>Print statement. Could you post some of the code you're using?
>Thanks, Steve Podradchik (MS)
here is some sample code...the draw2 routine draws the number 2 on the
screen using the h & v variables which specify it's starting position.
I am using the SUB LCATE to clean up the code write now. Might this be
slowing down the execution?
I pass the horizontal & vertical positions and what character to print.
draw2:
FOR t = 1 TO 5:
lcate h + t, v, CHR$(205)
NEXT t
lcate h + 6, v, CHR$(187)
lcate h + 6, v + 1, CHR$(186)
lcate h + 6, v + 2, CHR$(188)
FOR t = 2 TO 5: lcate h + t, v + 2, CHR$(205): NEXT t
lcate h + 1, v + 2, CHR$(201)
lcate h + 1, v + 3, CHR$(186)
lcate h + 1, v + 4, CHR$(200)
FOR t = 2 TO 6:
lcate h + t, v + 4, CHR$(205):
NEXT t:
RETURN
SUB lcate (x, y, x$)
Rdscrn.disp.CurrentX = x
Rdscrn.disp.CurrentY = y
Rdscrn.disp.PRINT x$
END SUB
Thanx for any additional info which anyone can provide.
--
******************************************************************************
Peter G. Millard * INTERNET: v057n5um@ubvms.cc.buffalo.edu
SUNY @ Buffalo * : millard@acsu.buffalo.edu
*****************************************************************************
Technical Details
Message-ID:
<BxHFr0.4An@acsu.buffalo.edu>Path:
arc1-ca.pugleaf.net!sparky!uunet!zaphod.mps.ohio-state.edu!ub!acsu.buffalo.edu!millardReferences:
<BxDu9J.G2z@acsu.buffalo.edu> <1992Nov09.193601.19806@microsoft.com>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!zaphod.mps.ohio-state.edu!ub!acsu.buffalo.edu!millard From: millard@acsu.buffalo.edu (Peter G. Millard) Newsgroups: alt.lang.basic Subject: Re: How to get fast window print in VB/DOS? Message-ID: <BxHFr0.4An@acsu.buffalo.edu> Date: 10 Nov 92 04:13:47 GMT References: <BxDu9J.G2z@acsu.buffalo.edu> <1992Nov09.193601.19806@microsoft.com> Sender: nntp@acsu.buffalo.edu Organization: UB Lines: 45 Nntp-Posting-Host: autarch.acsu.buffalo.edu