图形我们已经会画了，现在还有一个问题，就是怎么显示文字呢？这一篇我将介绍GDI+中绘制文字的推荐方法（感谢reker的修正）
1.GDI+中文字的必须要素
首先，与其它软件一样，GDI+中的文字也有格式。画文字有多种画法，但是无论如何，我们都需要创建一个FontFamily，这其中包含了字体类型的信息，包括字体名称、字体对齐方式（需要设置）等等。一般的画法然后还要从这个FontFamily创建一个Font，这个Font中包括字体样式（粗体、斜体）、字号等等，再后来我们调用一个函数把文字用这个Font显示出来~；路径画法（可以显示边框画法）则不需要创建字体，直接调用函数，字体的样式包括在函数里面了。
可见，GDI+中文字是需要一个FontFamily（一般是全局的），和一些Font（各种不同样式）以及文字组成的。
2.GDI+绘制文字
GDI+绘制文字有几种，下面将分别示例。
(1)标准画法：GdipDrawString
这是一般的画文字的办法，这种画法支持ClearTypeGridFit（还需要用语句再设置下），需要创建Font。
以下是主要绘图部分（窗体）：
Option Explicit Dim graphics As Long , Brush As Long Dim fontfam As Long , strformat As Long , curfont As Long , rclayout As RECTF Private Sub Form_Load() InitGDIPlus GdipCreateFromHDC Me .hDC, graphics GdipCreateFontFamilyFromName StrPtr( "黑体" ), 0, fontfam GdipCreateStringFormat 0, 0, strformat GdipCreateSolidFill &HFFFF0000, Brush GdipSetStringFormatAlign strformat, StringAlignmentNear GdipCreateFont fontfam, 15, FontStyle.FontStyleItalic, UnitPixel, curfont GdipSetTextRenderingHint graphics, TextRenderingHintClearTypeGridFit rclayout.Left = 100 rclayout.Top = 100 rclayout.Right = 150 rclayout.Bottom = 150 GdipDrawString graphics, StrPtr( "Hellow world! 这是我们第一个GDI+文字~!!" ), -1, curfont, rclayout, strformat, Brush End Sub Private Sub Form_Unload(Cancel As Integer ) GdipDeleteFontFamily fontfam GdipDeleteStringFormat strformat GdipDeleteFont curfont GdipDeleteBrush Brush GdipDeleteGraphics graphics '释放graphics占用的内存 TerminateGDIPlus End Sub |
可以看到这种画法思路是：
1.创建FontFamily (StrPtr:获取字符串指针，这样就能支持中文了！这就是不用TLB的原因……）
2.创建stringFormat（一般也可以不创），设置样式
3.创建Font。其中一定要注意单位问题。否则不要问我进去14输出的怎么不是14px大小文字……这里我们字体样式也巧妙了下，虽然声明中可以改写为As FontStyle但是不推荐。于是我们写就写FontStyle.xxx这样又可读性高，又不会出错。
4.创建Brush（显示文字咯）
5.设置文字区域（RcLayout）
6.绘制图形
7.扫地工作
这样 完美地画出了字。
注意：rectf中虽然是right，bottom但是实际上是width height，不要被误导哟。！
(2)路径画法：GdipAddPathString
这种画法一般用于绘制旋转文字、描边的文字等等。虽然可以设置graphics的圆滑设置，但是它画出来的文字依然不怎么清晰（相对于第一种来说）
窗体中：
Option Explicit Dim graphics As Long , Brush As Long , Pen As Long Dim fontFam As Long , strFormat As Long , strPath As Long , rclayout As RECTL Private Sub Form_Load() InitGDIPlus GdipCreateFromHDC Me .hDC, graphics GdipSetSmoothingMode graphics, SmoothingModeAntiAlias GdipCreateFontFamilyFromName StrPtr( "Verdana" ), 0, fontFam GdipCreateStringFormat 0, 0, strFormat GdipSetStringFormatAlign strFormat, StringAlignmentNear GdipCreateSolidFill &HFFDEDEDE, Brush GdipCreatePen1 &HFF222222, 2, UnitPixel, Pen rclayout.Left = 10 rclayout.Top = 10 rclayout.Right = 200 rclayout.Bottom = 150 GdipCreatePath FillModeAlternate, strPath GdipAddPathStringI strPath, StrPtr( "描边 0123" ), -1, fontFam, FontStyle.FontStyleBold, 55, rclayout, strFormat GdipFillPath graphics, Brush, strPath GdipDrawPath graphics, Pen, strPath End Sub Private Sub Form_Unload(Cancel As Integer ) GdipDeleteFontFamily fontFam GdipDeleteStringFormat strFormat GdipDeletePath strPath GdipDeleteBrush Brush GdipDeletePen Pen GdipDeleteGraphics graphics '释放graphics占用的内存 TerminateGDIPlus End Sub |
好 回来了 我们来比较一下这个画法有什么好处。
看出来了 它可以描边……恩 我不是在上面说了嘛 它还支持旋转、合并等等。
对了 我还说过“画出来不怎么清晰”，这里好像很好嘛！其实不然。如果你把描边去掉，单单FillPath，并且把字号减小 比如14，字体样式为普通，你就会发现不清晰了~!
它的过程是这样的：
1.首先前面部分和画普通文字一样 都需要创建FontFamily还有可选的创建字体对齐格式等等。
2.接下来路径画法不需要创建Font，我们需要创建（初始化）一个路径，否则可是什么都没有哦~
3.然后我们需要把文字增加到Path中去。
4.我们要FillPath填充这个路径 或者是DrawPath描出这个路径。如果是实心文字自然就是FillPath咯
5.最后别忘了释放Pen(如果有)和Brush(如果有) 以及最后一个Path。
(3)底层画法：GdipDrawDriverString
如名，底层画法。这种画法是最底层的绘制文字，底层到了……它不会自动转换字体（比如用Verdana绘制中文字体就不会显示出来） 由于不常使用，这里不贴画法了。