旋转字体

 

　           

如何使自己设计的程序具有漂亮和友好的界面，是程序员间永恒的话题。这里，

笔者向您介绍一种非常简单的技巧，使文字旋转起来。

这里的“旋转字体”指的是让一行字体的水平基线(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

补充：软件开发 , Vb ,
上一个：怎样从文件列表框中取得文件的完整路径和名称
下一个：如何转换C代码中的高字和低字
更多图片编程知识:

vb问题，解决一下

vb 如何让窗体透明，而控件不透明

EXCEL2010 FileSearch的问题，求高手指点

【建个党】分页党正式成立,哇哈哈.

VB入门新手问题

学生综合测评成绩管理
  
更多VB疑问解答：
vb把图片转换成 base64代码
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果
cloudStack 如何实现 vSphere的DRS功能
和难缠客户的那些事儿
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果