153.txt

介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个API集供参考.

旋转字体 
如何使自己设计的程序具有漂亮和友好的界面，是程序员间永恒的话题。这里，
笔者向您介绍一种非常简单的技巧，使文字旋转起来。 
这里的“旋转字体”指的是让一行字体的水平基线(baseline)转过一定的角度。
正如您所看到的，旋转字体会产生轻松、活泼的视觉效果，可以给观者以特殊的联
想，是一种行之有效的显示特技。 
有一种很容易想到的办法可以实现旋转字体，即首先生成文字的点阵(位图)，
然后利用坐标旋转变换生成新的位图再输出到屏幕或打印机上。这种办法思路清晰，
不但可以用于字体的旋转，也可以用于其他种种字体变形，如同WinWord中的
WordArt或中文之星的“艺术汉字”。但这种办法实现起来比较麻烦，需要一些计
算机绘图学方面的知识，而且位图变换过程中需要占用较多的内存。而我们所要介
绍的方法，可以有效地解决这些问题，而且不需要什么专门的知识，而是充分地利
用Windows API已有的功能实现旋转字体的效果。 
我们知道，逻辑字体是一类非常重要的Windows GDI对象。我们正是通过选择
不同的逻辑字体来输出各种秀美的字体的。而所谓“旋转字体”不过是一类特殊的
逻辑字体。如同其他的GDI对象(如画笔、画刷、调色板)一样，字体对象不但具有
固有的字体，我们也可以建立自己的逻辑字体。建立字体可以使用Windows API的
CreateFontIndirect()函数。在调用该函数之前，我们将字体的特征放入LOGFONT
结构变量中。LOGFONT结构是这样定义的： 
Type LOGFONT 
lfHeight As Integer ' 字体的高度 
lfWidth As Integer ' 字体的宽度 
lfEscapement As Integer ' 字体旋转的角度 
lfOrientation As Integer 
lfWeight As Integer ' 字体的轻重 
lfItalic As String * 1 ' 是否为斜体 
lfUnderline As String * 1 ' 是否有下划线 
lfStrikeOut As String * 1 ' 是否有强调线 
lfCharSet As String * 1 ' 字符集 
lfOutPrecision As String * 1 ' 输出精度 
lfClipPrecision As String * 1 ' 剪裁精度 
lfQuality As String * 1 ' 输出质量 
lfPitchAndFamily As String * 1 ' 间距和字体族 
lfFaceName As String * LF_FACESIZE ' 字体名，如“宋体” 
End Type 

利用这个数据结构，你可以方便地设置各种字体参数，比如高度、宽度等。该
结构中同我们所要讨论的问题关系最大的是lfEscapement，它表示字符的基线同坐
标的X轴之间的旋转角度，从X轴正方向开始沿逆时针方向旋转，以十分之一度为单
位（图2）。蔡明志先生著的《Windows程序设计?绘图篇--使用Borland C++ for 
Windows》一书(科学出版社1993年9月出版)的482页上指出旋转角度以十度为单位，
为此笔者查阅了SDK手册，其英文原文为：“measured in tenths of a degree”，
似应为以十分之一度为单位。 
lfFaceName指明字体的名称，如“宋体”、“行楷”。需要指出的是，个别字
体不支持字体旋转，主要是字体宽度不可变的种类，如FixedSys就不支持字体旋转，
好在这样的字体只有一两种。 
具体的实现参见文后所附的程序（用Visual Basic 3.0编写），其中RotPrint
过程用来输出旋转字体。其步骤如下：首先，利用GetObject()函数获得当前字体
的LOGFONT结构，修改lfEscapement，设置旋转角度，然后调用
CreateFontIndirect()函数建立逻辑字体并选用之。接下来，调用TextOut()函数
输出字符串。使用TextOut()函数可以使那些不支持Print方法的控制（如标签），
同样可以输出旋转字体。最后，用DeleteObject()函数删除建立的逻辑字体并恢复
原字体。 
您可以通过示例程序的“选择”菜单中的“字体”项来尝试不同的字体效果，
从中选出令人满意的组合。 

附录：源程序 
ROTFONT.BAS文件： 
DefInt A-Z 
' 逻辑字体 
Global Const LF_FACESIZE = 32 ' 最长的字体名称 
Global Const SYSTEM_FONT = 13 
Type LOGFONT 
lfHeight As Integer 
lfWidth As Integer 
lfEscapement As Integer 
lfOrientation As Integer 
lfWeight As Integer 
lfItalic As String * 1 
lfUnderline As String * 1 
lfStrikeOut As String * 1 
lfCharSet As String * 1 
lfOutPrecision As String * 1 
lfClipPrecision As String * 1 
lfQuality As String * 1 
lfPitchAndFamily As String * 1 
lfFaceName As String * LF_FACESIZE 
End Type 
'字体的族 
Global Const FF_DONTCARE = 0 ' 无所谓 
Global Const FF_ROMAN = 16 ' 字体宽度可变，Times Roman, Century 
' Schoolbook等 
Globa