home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
fontro
/
font.frm
(
.txt
)
next >
Wrap
Visual Basic Form
|
1992-02-28
|
3KB
|
93 lines
Form1
Form1
Form1
Label1
Label2
Command1
Sideways Print Test: GO
Command2
Form_Click
hFont]
LOGFONT
lfHeighti
lfWidth
lfEscapement
lfOrientation
lfWeight
FW_NORMAL
lfItalic
outprecision
clipprecision?
quality
default
lfPitchAndFamily
lfFaceName
CreateFontIndirect
OldhFont
SelectObject
Form1
DeleteObject
hFond
TextOut
SomeTextV
nChars
CurrentX
CurrentY
nValue
GetDeviceCapsy
Picture1
BitBlt4
StretchBlt
SRCCOPY=
hOldFont
Printer
Result
Command1_Click
Label1
TC_CR_90
TC_CR_ANY
TEXTCAPS
Caption
Label2
Command2_Click
FW_ROMAN
FW_SWISS1
FF_MODERN
oldfont
szFaceName
GetTextFace
retval
FF_ROMANI
FF_SWISS
lfQualityc
lfCharSet
OEM_CHARSET
VARIABLE_PITCH
PROOF_QUALITY
Command1_Click
-- get Text capabilites for rotating characters
Funny Note: There's a POLYGONALCAPS capability which determines whether the device cann
do interiors. I wonder if I can hire it to redecorate my place? 8-)r
TEXTCAPS
No Character Rotation is Available
90 Degree Character Rotation Available
Any Degree Character Rotation Available"
-- Note: at this point if it can't do CharRot's, then we should stop, but we'll blindlyy
forge ahead to see what happens.d
-- 24 point size
-- let Windows figure out the appropriate width based on the heightl
-- rotate 270 degrees (bottom to top)
-- normal character orientation (straight up)
-- this is important!e
Note: italic, underline, strikeout, charset, outprecision,
clipprecision, and quality are 0 (default)
Modern
-- Windows' "Modern" fontr
-- get the handle to the font we specify
-- now let's select it to our current Printer hDC
-- let's test it out!t
This is a test of sideways text 1234567890."
Print Test 1234567890"u
-- don't forget to delete the object
Command2_Click