如何使自己设计的程序具有漂亮和友好的界面，是程序员间永恒的话题。这里，笔者向您介绍一种非常简单的技巧，使文字旋转起来。 
这里的“旋转字体”指的是让一行字体的水平基线(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等 
Global Const FF_SWISS = 32 ' 宽度可变，带衬线，如Helvetica, Swiss等 
Global Const FF_MODERN = 48 ' 具有规定的宽度，衬线可有可无， 
' 如Pica, Elite, Courier等等. 
Global Const FF_SCRIPT = 64 ' 手写体，如Cursive 
Global Const FF_DECORATIVE = 80 ' 特殊字体，如Old English 
' GDI字体函数 
Declare Function CreateFontIndirect Lib "GDI" (lpLogFont As LOGFONT) As Integer 
Declare Function SelectObject Lib "GDI" (ByVal hDC%, ByVal Object%) As Integer 
Declare Sub DeleteObject Lib "GDI" (ByVal Object%) 
Declare Function GetStockObject Lib "GDI" (ByVal nIndex As Integer) As Integer 
Declare Sub GDIGetObject Lib "GDI" Alias "GetObject" (ByVal hObject As Integer, ByVal nCount As Integer, lpObject As Any) 
Declare Sub TextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer) 

ROTFONT.FRM文件： 
VERSION 2.00 
Begin Form frmRotDemo 
Caption = "旋转字体演示" 
ClientHeight = 4980 
ClientLeft = 1095 
ClientTop = 1785 
ClientWidth = 4380 
FontBold = -1 'True 
FontItalic = 0 'False 
FontName = "Courier New" 
FontSize = 18 
FontStrikethru = 0 'False 
FontUnderline = 0 'False 
Height = 5670 
Left = 1035 
LinkTopic = "Form1" 
ScaleHeight = 332 
ScaleMode = 3 'Pixel 
ScaleWidth = 292 
Top = 1155 
Width = 4500 
Begin CommonDialog CMDialog1 
Flags = 257 
Left = 0 
Top = 0 
End 
Begin Menu mnuOption 
Caption = "选择(&O)" 
Begin Menu mnuFont 
Caption = "字体(&F)..." 
Shortcut = ^F 
End 
Begin Menu mnuS1 
Caption = "-" 
End 
Begin Menu mnuExit 
Caption = "退出(&X)" 
Shortcut = ^X 
End 
End 
End 
Option Explicit 

Sub Form_Paint () 
Dim nAngle% 
Cls 
For nAngle% = 20 To 80 Step 10 
ForeColor = QBColor(nAngle% / 10 - 2) 
RotPrint hDC, "热情技术技巧 旋转字体", 10, 290, nAngle% 
Next 
End Sub 

Sub mnuExit_Click () 
End 
End Sub 

Sub mnuFont_Click () 
' 初始化对话框控制 
CMDialog1.FontName = FontName 
CMDialog1.FontSize = FontSize 
CMDialog1.FontItalic = FontItalic 
CMDialog1.FontBold = FontBold 
CMDialog1.FontUnderLine = FontUnderLine 
CMDialog1.FontStrikeThru = FontStrikeThru 
On Error GoTo ErrHandle 
CMDialog1.Action = 4 
' 设置窗体的字体属性 
FontName = CMDialog1.FontName 
FontSize = CMDialog1.FontSize 
FontItalic = CMDialog1.FontItalic 
FontBold = CMDialog1.FontBold 
FontUnderLine = CMDialog1.FontUnderLine 
FontStrikeThru = CMDialog1.FontStrikeThru 
Refresh 
ErrHandle: 
End Sub 

Sub RotPrint (ByVal hDestDC As Integer, Text$, x As Integer, y As Integer, LineAngle As Integer) 
Dim hFont As Integer, hOldFont As Integer, r% 
Dim Font As LOGFONT 
hOldFont = SelectObject(hDestDC, GetStockObject(SYSTEM_FONT)) 
GDIGetObject hOldFont, Len(Font), Font 
' 填充LOGFONT结构 
Font.lfEscapement = LineAngle * 10 ' 输出字体行与水平页底间的角度(以1/10度为单位) 
' 必须是可变点字体 
Font.lfPitchAndFamily = Chr$(VARIABLE_PITCH Or FF_DONTCARE) 
' 创建字体 
hFont = CreateFontIndirect(Font) 
' 选择旋转字体 
r% = SelectObject(hDestDC, hFont) 
' 显示字体 
TextOut hDestDC, x, y, Text$, Len(Text$) 
' 恢复原字体 
hFont = SelectObject(hDestDC, hOldFont) 
' 删除创建的字体 
DeleteObject hFont 
End Sub